Time a sub routine in thousanths of a second

[Rocky McKinley]

With the following code provided by this forum I'm able to pause a sub
routine in thousanths of a second.
Is there a way to time how long it takes a sub routine to run in thousanths
of a second?


Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub SleepOneSecond()
Sleep 1000
End Sub

 

[jaf]

Hi Rocky,
Sub test()
t-timer
'lots of code
t1=timer
debug.print t1-t 'or msgbox t1-t
end sub

 

[Rocky McKinley]

John, I tried your code and I get an error "Sub or Function not defined."

 

[Vasant Nanavati]

Hi Rocky:

Sub TimeIt()
Dim StartTime As Double
StartTime = Timer
'lots of code here
MsgBox Format((Timer - StartTime)*1000, "#.00") & " milliseconds"
End Sub

Regards,

Vasant.

 

[Tom Ogilvy]

Sub test()
t=timer '<===
'lots of code
t1=timer
debug.print t1-t 'or msgbox t1-t
end sub

 

[Rocky McKinley]

Thanks Guys

--
Regards,
Rocky McKinley

Sub test()
t=timer '<===
'lots of code
t1=timer
debug.print t1-t 'or msgbox t1-t
end sub

 

[Bob]

I use the class control provided by Karl Peterson for VB which should work
with VBA, grate for timing big storage loops etc

It uses the OS Multimedia timer and is very accurate and very easy to
stop/start.

he also has tip sheet about using

Can be found at http://www.mvps.org/vb/ file Stopwatch.zip

to use
add class to VBA project and in your code especially loops ...

'Create instance of stopwatch class
Set tmr = New CStopWatch
tmr.Reset


'to end after your code
StorageTime = tmr.Elapsed
LogFile "TIME for Data Storage:" & CStr(StorageTime / 1000) & " secs"

Cheers

Bob