Time Sub

[Paul Black]

Hi everyone,

How can I get the total processing time of a Sub to appear in a
message box once the Sub has finished please.
I have got ...

Dim start As Double
Start = Timer

.... so far but want it to produce the processing time in the format x
hours y minutes & z seconds.
I know it will be something like Timer - Start but then I am at a
loss.
Perhaps something like ...

"Processing Time " & Format(Timer - Start) / 24 / 60 / 60) = x hours y
minutes & z seconds)

Thanks in Advance.
All the Best.
Paul

 

[Bob Phillips]

MsgBox "Processing time " & Format((Timer - Start) / 24 / 60 / 60,
"hh:mm:ss")


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Paul Black]

Thanks Bob, I appreciate the help.

All the Best.
Paul

 

[Joel]

Sub mytime()

Start = Now - 5
Timeelapse = (Timer - Start) / 24 / 60 / 60

timestring = "Processing Time " & Format(Timeelapse, "hh") & " hours " & _
Format(Timeelapse, "mm") & " minutes " & Format(Timeelapse, "ss") & _
" seconds"

End Sub

 

[Paul Black]

Thanks Joel,

One final point please. Is there any way to only get the actual time
elapsed please. What I mean by that is if the Sub only takes 9 minutes
& 24 seconds to run, then the time will only show the minutes and the
seconds and exclude the hours part. This also applies if it only took
seconds to run.

Thanks in Advance.
All the Best.
Paul

 

[Paul Black]

Hi,

I have hunted high and low to try and find something that accomodates
this on this Forum but to no avail.
I assume that nobody has either never asked for this before or it is a
limitation of Excel.

Thanks in Advance.
All the Best.
Paul