Example

This example displays a message box showing the duration of the current connection in hours, minutes and seconds.

Sub ShowConnectionTime()

'Display connection time in hours, minutes and seconds

Dim connectTime As Long 'connect time

Dim hours As Long 'hours connected

Dim minutes As Long 'minutes connected

Dim seconds As Long 'seconds connected

connectTime = Session.TimeSinceConnected

hours = connectTime / 3600

connectTime = connectTime Mod 3600

minutes = connectTime / 60

seconds = connectTime Mod 60

MsgBox "You have been connected " & hours & " hours, " _

& minutes & " minutes, and " _

& seconds & " seconds."

End Sub