Function SecondsToHour(Seconds As Integer)
Dim h
Dim m
Dim s
h = Int(Seconds / 3600)
m = (Seconds / 60) Mod 60
s = Seconds Mod 60
SecondsToTime = Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00")
End Function
Sub a()
MsgBox SecondsToHour(80)
End Sub