Finding a time span

[wallaceka]

I have a user that would like to track the time that elapses between the time he attempts to initiate contact with someone and the time they get back to him. Ideally, if this could be tracked down to the minute, that would be grand. The span could potentially be days or hours (worst case weeks). I know this is POSSIBLE; I am just not sure how to implement it. I have posted several times to this board, always with amazing results. Thanks for any help given, Kathi.

 

[Dave Patton]

The Board is acting strange!

A small addition to my post.
A more extensive custom format

28/03/2002 10:05 04/04/2002 11:07 7 day(s) 1 Hour(s) 02 Minute(s)

d "day(s)" h "Hour(s)" mm "Minute(s)"
This message was edited by Dave Patton on 2002-04-04 09:06

 

[Yogi Anand]

Hi Dave:
That's Beautiful ... Short and Sweet!

 

[wallaceka]

and the best thing about it is that it works..you guys are the BEST!!!
*hugs.all.around*
yeah, yeah...that IS a girl thing
*laugh*
thanks again everyone!

 

[JulioNobre]

Public Function TimeSpanInSeconds(ByVal StartDateTime As Date, EndDateTime As Date) As Double

Const ThisProcName = "TimeSpanInSeconds"
On Error GoTo ExitLabel
​

Dim DifferenceInDays As Double
DifferenceInDays = (EndDateTime - StartDateTime)

TimeSpanInSeconds = DifferenceInDays * 24 * 60 * 60
​

ExitLabel:

On Error GoTo 0
Exit Function
​

ErrorLabel:

MsgBox "Error " & Err.Description & " occured on " & ThisProcName
Resume ExitLabel
​

End Function



Public Function TimeSpanInDays(ByVal StartDateTime As Date, EndDateTime As Date) As Double

Const ThisProcName = "TimeSpanInSeconds"
On Error GoTo ExitLabel
​

TimeSpanInDays = (EndDateTime - StartDateTime)
​

ExitLabel:

On Error GoTo 0
Exit Function
​

ErrorLabel:

MsgBox "Error " & Err.Description & " occured on " & ThisProcName
Resume ExitLabel
​

End Function