Maybe...
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
Option Explicit
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Sub test()
Dim ntime As String
Dim counter As Integer
Dim lngStart As Long
Dim lngTicks As Single
counter = 0
'milliseconds
lngStart = timeGetTime
Do While counter < 5
lngTicks = (timeGetTime - lngStart) / 1000
ntime = Format$(lngTicks, "00.000")
Range("e7").Value = ntime
counter = counter + 1
MsgBox ntime
Loop
End Sub
'-----------------
"Ndel40"
wrote in message
I am trying to build a program to show elapsed time and I want to display the
time in "hh:mm:ss.000" format (the worksheet cell is formated as indicated).
However, I can't get milliseconds to change... always stays at 000.
Here is a test module I am using to try and get the right format... any help
would be appreciated.
Sub test()
Dim ntime As Date
Dim counter As Integer
counter = 0
Do While counter < 5
ntime = Time
Range("e7").Value = Format(ntime, "hh:mm:ss.000")
counter = counter + 1
MsgBox Format(ntime, "hh:mm:ss.000")
Loop
End Sub
Thanks!