Convert seconds or a date range to hours, minutes, seconds (hh:mm:ss

Category:

Dates and Math

Type:

Snippets

Difficulty:

Beginning

Author:

Anonymous

Version Compatibility: Visual Basic 6

More information:

This function takes 3 optional parameters: Seconds Start Date End Date It will cpnvert seconds to a formatted time string or determine elapsed time between to "Date" variables. If you do a "ctrl-A" in the code window and paste into VB, it will show in the intended formatting/alignment.

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

Declarations:
' (None)

Code:

Public Function gfstrFormattedTime(Optional ByVal alngSeconds As Long, _
                                   Optional ByVal adatStartTime As Date, _
                                   Optional ByVal adatEndTime As Date) _
                As String

Dim lngMinsSecsRemainder As Long
    
    
    If alngSeconds = 0 Then
        
        ' DATES PASSED IN; CALCULATE SECONDS:
        alngSeconds = DateDiff("s", adatStartTime, adatEndTime)
    End If
    
    If alngSeconds > 59 Then
    
        If alngSeconds > 3599 Then
    
            ' START THINGS OFF WITH THE HIGH-LEVEL HOURS:
            gfstrFormattedTime = Format(CStr(Fix(alngSeconds / 3600)), "00") & ":"
            
            ' FORMAT MINUTES/SECONDS FROM THE REMAINDER AFTER HOURS EXTRACTED:
            lngMinsSecsRemainder = alngSeconds Mod 3600
            If lngMinsSecsRemainder > 59 Then
                gfstrFormattedTime = gfstrFormattedTime & _
                                     Format(CStr(Fix(lngMinsSecsRemainder / 60)), "00") & ":" & _
                                     Format(CStr(alngSeconds Mod 60), "00")
            End If
        Else
            ' JUST DO MINUTES/SECONDS:
            gfstrFormattedTime = Format(CStr(Fix(alngSeconds / 60)), "00") & ":" & _
                                 Format(CStr(alngSeconds Mod 60), "00")
        End If
        
    Else
        ' JUST DO SECONDS:
        gfstrFormattedTime = "00:" & Format(alngSeconds, "00")
    End If

End Function