Time the running time of a procedure

[DougStroud]

How could I add a timer to check the running time.
One approach given to me was this:
In the beginning of my code>>>>

mTimer = Timer

at the end of my code>>>>

MsgBox Time - mTimer

At the end of my procedure the MsgBox showed 11:13:55pm
So it showed what appears to me the finish time, not the elapsed time.

thanks

 

[jindon]

try

Format(Timer - mTimer, "#,##0.000")

 

[DougStroud]

That works.
But I may have another problem w/ my approach-
The above method works on anything small- .5 to 15 seconds.
I have a procedure I want to time that takes 3-5 minutes to run, the msgbox returns a value of 0.00 no matter what format every single time I run it, upon completion of the procedure.
I have dimmed mTimer as a Single or Double in case it needed more space but that did nothing different.
This calls a number of Subs to run, would this have anything to do w/ it?

 

[VoG]

See this similar query http://www.mrexcel.com/board2/viewtopic.php?t=285498

 

[royUK]

Check out Aaron Blood's tool

http://www.ozgrid.com/forum/showthread.php?t=47350

 

[VoG]

Linked back from http://www.mrexcel.com/board2/viewtopic.php?t=285498

Doug

Try this

Sub Timer()
Dim StartTime As Variant, StopTime As Variant, Elapsed As Variant
StartTime = Time
'
'The code that you want to time goes here
'
StopTime = Time
Elapsed = StopTime - StartTime
MsgBox "Time elapsed:" & Chr(13) & Format(Elapsed, "hh:mm:ss")
End Sub

 

[DougStroud]

That was beautiful- thanks Vog!

 

[DougStroud]

Roy,
I was looking this through- have downloaded it and will install and see how it goes. Vog got me squared away w/ what I needed currently. But that tools looks like it will come in real handy.
I will post back later after I get it working- I do have some macros that i want to test/compare for time-

Thanks