Convert Seconds to Hours, Minutes Seconds as h:mm:ss

Category:

Dates and Math

Type:

Snippets

Difficulty:

Intermediate

Author:

Lyle E. Dodge

Version Compatibility:

More information:

Drop it in and run.

Handles up to 65533 seconds which returns 18:12:13, as in 18 hours, 12 minutes, and 13 seconds. That should suffice for most operations. If not, write me, and if I am compelled enough I might juice it up some more.

It's well commented but you might want to remove my wise-ass remarks if you want to hack on it some once you've figured out how it works.

Enjoy.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Public Function ConvertSeconds(lSeconds As Long) As String

'Declare temporary variables
    Dim lTmpMinutes As Long
    Dim lTmpSeconds As Long
    Dim lTmpHours As Long
    
    'Do we even need to do all this math for nothin'?
    If lSeconds > 59 Then
        'Get's *just* the amount of seconds that will be returned
        lTmpSeconds = lSeconds Mod 60
        'Do we have more than an hour's worth of seconds?
        If lSeconds > 3599 Then
            'How many hours are we talking about
            lTmpHours = Fix(lSeconds / 3600)
  
           'Oooh fun. Take the original seconds and figure out
            'how many minutes we have.  Then remove from that
            'anything that says "60" for the minutes.  So we
             'don't have "2:60:05"
 
           lTmpMinutes = lSeconds / 60 - (60 * lTmpHours)

'Finally return the value all nicely formatted up
            ConvertSeconds = lTmpHours & ":" & Format _
           (lTmpMinutes, "00") & ":" & Format(lTmpSeconds, "00")
        Else
            'Ok.  We've got something less than an hour, whew!
            'How many minutes do we have?
            lTmpMinutes = Fix(lSeconds / 60)
            
             'Seconds were already figured above (lSeconds Mod
             '60) so we just return the value and we be done.
            ConvertSeconds = lTmpMinutes & ":" & _
                 Format(lTmpSeconds, "00")
        End If
    Else
        'This is for the lazy that sends us less than even a
        '*minutes* worth of seconds.   Just dress it up and send
        'it back.
        ConvertSeconds = "0:" & Format(lSeconds, "00")
    End If

End Function