Elapsed time - milisecond

[Starbucks_33]

Hi,

I wanted to get the elapsed time for running my program. The problem was that the smallest units of time I could do was seconds. Is there a way to display how many mili seconds have elapsed?

To get the seconds I was just using.


Time_Run = Now
.... executes code
TimeElapsed = (60 * Minute(Now - Time_Run) + Second(Now - Time_Run))

But I wanted to get hundreths of a second?

Thanks

 

[Datsmart]

This will give you seconds...

Sub TimeCheck()
'
    Start = Timer
    'your code to run here
    MsgBox "Process took " & Timer - Start & " Seconds"
End Sub

 

[Starbucks_33]

THats the code I currently use, but my question was can you get time in finer units the seconds?

I wanted hundreths or thousandths of a second.

Is there any way to do this?

 

[Datsmart]

Try formating the cell your time value goes in:

Sub TimeCheck()
    Start = Timer
    '.... execute code here"
    Range("K4").Value = Timer - Start
    Range("K4").NumberFormat = "0.####"
End Sub

 

[Richard Schollar]

Hi

You can use an API function to get this (it returns the time elapsed in milliseconds since Windows was started):

Declare Function GetTickCount Lib "kernel32" () As Long

Sub test()

Dim i As Long, j As Long

i = GetTickCount

Application.Wait Now + TimeSerial(0, 0, 1)

j = GetTickCount

MsgBox "time elapsed = " & (j - i) / 1000 & " seconds"

End Sub

 

[pgc01]

For hundredths of second you can use the worksheet function Now() instead of the vba one:

Sub Test()
Dim tStart As Double
 
tStart = [now()]
 
' some code
 
MsgBox Application.WorksheetFunction.Text([now()] - tStart, "h:mm:ss.00")
 
End Sub

 

[Starbucks_33]

Thanks you guys are great!

 

[PoggiPJ]

For hundredths of second you can use the worksheet function Now() instead of the vba one:

Sub Test()
Dim tStart As Double
 
tStart = [now()]
 
' some code
 
MsgBox Application.WorksheetFunction.Text([now()] - tStart, "h:mm:ss.00")
 
End Sub

I've tried this using Excel 2003 - it doesn't work. The milliseconds are still truncating to 000.

 

[tusharm]

I find that this level of measurement leaves a lot to be desired because the results are subject to other multi-tasking activities, including system interrupts to carry out 'system critical' tasks. Further, even the system timer does not support millisecond accuracy -- the documentation for GetTickCount states its accuracy is somewhere in the range of 10 to 16 milliseconds.

If you are interested check out the 'standard' high resolution timer. I search google whenever I want to look it up. This time around I found http://msdn.microsoft.com/en-us/library/aa964692(VS.80).aspx

THats the code I currently use, but my question was can you get time in finer units the seconds?

I wanted hundreths or thousandths of a second.

Is there any way to do this?

 

[PoggiPJ]

wow... i took a look at that.. way out of my league, i'm afraid. But thank you.