Function ExtendHours(InTime As Date, TimeType As String) As String
Dim x As Single
Select Case TimeType
Case "Days"
x = 1440 * InTime - Int(InTime * 24) * 60
ExtendHours = Int(InTime * 24) & ":" & Format(Int(x), "00")
Case "Seconds"
x = (InTime - Int(InTime / 3600) * 3600) / 60
ExtendHours = Int(InTime / 3600) & ":" & Format(Int(x), "00")
End Select
End Function