Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Show Milliseconds
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! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
hh:mm:ss AND Milliseconds? | Excel Discussion (Misc queries) | |||
Working With Times / Milliseconds | Excel Worksheet Functions | |||
Milliseconds in a Pivot Table | Excel Discussion (Misc queries) | |||
Milliseconds in Excel | Excel Programming | |||
Milliseconds In VB | Excel Programming |