Time Sub
 

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

Time Sub
 

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" wrote in message
ps.com...
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

Time Sub
 

Thanks Bob, I appreciate the help.

All the Best.
Paul

On Aug 13, 1:42 pm, "Bob Phillips" wrote:
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" wrote in message

ps.com...



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- Hide quoted text -

- Show quoted text -

Time Sub
 

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" wrote:

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

Time Sub
 

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

On Aug 13, 1:48 pm, Joel wrote:
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" wrote:
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- Hide quoted text -

- Show quoted text -

Time Sub
 

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

On Aug 13, 1:59 pm, Paul Black wrote:
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

On Aug 13, 1:48 pm, Joel wrote:



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" wrote:
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- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -