Returning Seconds as a formatted Hour/Minute/Seconds String

[Moonshine]

Hi All

I have a little form, that is used for recording time spent on a task, mainly receiving a phonecall. It has other information on it, but for this task we are just working from the start time and end time of a "call"

So, i have fields and they have the time in. When the record i want the completion message box to show the total time, using this piece of code:

intCallDuration = DateDiff("s", Me.txtCallStart, Me.txtCallEnd)

That assigns the total, in seconds to a variable which i use in this:

MsgBox "Record Added" & vbCrLf & "Call Duration (Seconds): " & intCallDuration, , strTitle

Works OK, however if its a long call and you say get 4370 seconds, its just numbers so id like it to show a formatted string like below, depending on the time spent:

Record Added, Call Duration: 4minutes 37seconds.
Record Added, Call Duration: 1hr, 32minutes, 32seconds.

Is this possible?

 

[KeithG]

It is definetly possble you will have to create a custome VBA function to make the string

 

[Moonshine]

Never have much luck at functions, i'll have a google and see what i can find. Thanks

 

[Rabbie]

I found this article which you should be able to adapt for your message.
http://office.microsoft.com/en-gb/access/HA011102181033.aspx?pid=CL100570041033

Hope this Helps

 

[Moonshine]

I found this article which you should be able to adapt for your message.
http://office.microsoft.com/en-gb/access/HA011102181033.aspx?pid=CL100570041033

Hope this Helps

ElapsedTimeString looks perfect, trying it out now!

 

[Moonshine]

Worked like a charm, thanks all