' Listing 16: The convertTime Function

Private Function convertTime(seconds)
  Dim ConvSec, ConvMin, ConvHour, ConvDay, strDay
  ConvSec = seconds Mod 60
  If Len(ConvSec) = 1 Then
    ConvSec = "0" & ConvSec
  End If
  ConvMin = (seconds Mod 3600)\60
  If Len(ConvMin) = 1 Then
    ConvMin = "0" & ConvMin
  End If
  ConvHour =  seconds\3600
  If Len(ConvHour) = 1 Then
    ConvHour = "0" & ConvHour
  End If
  If ConvHour = 24 Then
    ConvHour = 00
    convertTime = "1 Day, " & ConvHour & ":" & ConvMin & ":" & ConvSec
  ElseIf ConvHour > 24 Then
    ConvDay = ConvHour\24
    ConvHour = ConvHour Mod 24
    If Len(ConvHour) = 1 Then ConvHour = "0" & ConvHour
    If ConvDay = 1 Then
      strDay = " Day, "
    Else
      strDay = " Days, "
    End If
    convertTime = ConvDay & strDay & ConvHour & ":" & ConvMin & ":" & ConvSec
  Else
    convertTime = ConvHour & ":" & ConvMin & ":" & ConvSec
  End If
End Function