Function AgeIn() As String
If StartIme = 0 Then
StartTime = Now
AgeIn = ""
Else
AgeIn = Format(Now - StartTime, "mm:ss.####)
StartTime = 0
End If
End Function
If AgeIn = "" Then DO Nothing
IF AgeIn = (A value) then that is the process time
Sub StartProcess
ProcessTime = AgeIn 'Starts Timer
'Blah
'Blah
'Blah
End Sub
Sub Process End
'Blah
'Blah
'Blah
Process Time = AgeIn 'This is the Time
End Sub
Sub ReSetAgeIn()
StartTime = ""
EndSub
If you use the MicroTimer, Do the conversions to decimal seconds after reading the value from Access.