Time a sub routine in thousanths of a second

  • Thread starter Thread starter Rocky McKinley
  • Start date Start date
R

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
 
Hi Rocky,
Sub test()
t-timer
'lots of code
t1=timer
debug.print t1-t 'or msgbox t1-t
end sub
 
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.
 
Sub test()
t=timer '<===
'lots of code
t1=timer
debug.print t1-t 'or msgbox t1-t
end sub
 
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
 
Back
Top