Formatting Timer with DateDiff

[mduplantis]

Hi,



I'm working on a timer project, but I can't figure out what is happening with my timer when I try to format it. My project works without formatting, but as soon as I format it, the timer stops counting, although the formatting is correct. My overall goal is to format the timer to Ss.

Thanks for any help!


Option Compare Database
Option Explicit
Dim StartTime As Date
Dim ElapsedTime As Date




Private Sub cmdReset_Click()
txtTimeOutput.Value = ":00"
Me.TimerInterval = 0
End Sub


Private Sub cmdStart_Click()


Me.TimerInterval = 1000 ' 1 second
StartTime = Time()


End Sub


Private Sub cmdStop_Click()


Me.TimerInterval = 0
'Me.txtTimeOutput.Value = ":00"


End Sub


Private Sub Form_Load()


Me.TimerInterval = 0


End Sub


Private Sub Form_Timer()


'txtTimeOutput.Value = DateDiff("s", StartTime, Time() )
txtTimeOutput.Value = Format(DateDiff("s", StartTime, Time()), "Ss")


End Sub

[ItsMe]

The Forms' TimerInterval property needs to be set during the Form's On Load event.

However, I do not see you using the Form's Timer Event.

I see you using the DateDiff function. The Date Diff function returns a Long Integer. It does not return a Date type. Also, if memory served me correctly, the Time() function has been deprecated in VBA so recommend using Now().

In the click event to start
Dim dtStart As Date
dtStart = Now

and in the click event to stop
Dim lngAnswer As Long
lngAnswer = DateDiff("s", dtStart, Now)
Me.txtTimeOutput.Value = lngAnswer


Now that you have counted the seconds from start to stop, using the System's clock, you can not format that result to HH:MM:SS using VBA. I am not aware of a time conversion method in VBA. There is in other programming languages.
http://msdn.microsoft.com/en-us/libr...v=vs.110).aspx

Using the system clock is not always accurate to the second, and I don't know of a way to get fractions of a second using the system clock and VBA. To get fractions of a second and also make sure that you do not lose a second in your overall count, use the form's timer event.

[mduplantis]

Okay, I will start over again with the form's timer event. Thank you for the help! Brent