Hundreths

Trying to see the hundredths, waht am I missing?

Sub TimerTest()

Dim StartTime, EndTime, TotalTime, C
StartTime = Now
Do Until C = 10
C = C + 1
Loop
EndTime = Now
TotalTime = EndTime - StartTime
MsgBox ("Total Time " & Format(TotalTime, "ss.00"))

End Sub



ww

I think, probably the function NOW does not deal in fractions of seconds. Use the following instead:

Sub TimerTest()

Dim StartTime, EndTime, TotalTime, C
StartTime = Timer
Do Until C > 1230
C = C + 1
Loop
EndTime = Timer
TotalTime = EndTime - StartTime
MsgBox "Total Time " & Round(TotalTime, 2)

End Sub

Thanks!

Had to replace Round with Format. Got an error message with round in, but this works just like I wanted it too!

Thanks again.

ww




Sub TimerTest()

Dim StartTime, EndTime, TotalTime, C
StartTime = Timer
Do Until C > 1230
C = C + 1
Loop
EndTime = Timer
TotalTime = EndTime - StartTime
MsgBox "Total Time " & Format(TotalTime, "#0.0#")

End Sub