Assistance With Building Timer to Track Test Runs

[chaserankin]

Hello everyone. I am trying to build an Access Database to create records each time we run a test case(SimMode) and track how long it takes the SimMode to turn on(AgeIn) and turn off(AgeOut). The issue I am having right now is that I only need/want seconds/milliseconds to be displayed and I feel like I'm hitting a wall :doh:.

So to break it down I have two questions.

1) How can I get my data to store into Access as 00:00.00?

2) How should I go about building this stopwatch/timer?


Ideally I would thrilled if I could control the timer with one button. i.e. MouseClick down to start and MouseClick Up to stop.


Side Note: I'm an absolute amateur but I am desperately trying to improve my skills. (see horrible code below)

Any help would be greatly appreciated

Private Sub Command51_MouseDown()


Dim StartTime As Date
Dim StopTime As Date


StartTime = Now()


Expression.MouseUp


StopTime = Now()


AGEIN = StopTime - StartTime




End Sub

Also tried this one with two buttons. It seems to work down to the second but I would also like the value to be stored as seconds/milliseconds in my database if possible


Private Sub Command51_Click()


AGEIN = Now()

End Sub


Private Sub Command52_Click()


Dim StartTime As Date
Dim NewTime As Date

StartTime = AGEIN

AGEIN = Now() - StartTime

End Sub

[SamT]

http://www.vbaexpress.com/kb/getarticle.php?kb_id=1068

[SamT]

Static StartTime As Date


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.

[arnelgp]

sample demo.

[chaserankin]

Thanks everyone for the help. arnelgp I don't know how you built such a perfect implementation of what I was looking for based off of my weak description. Well done.

[arnelgp]

:friends: