Public Function DisplayTime(ByVal Sek As Long, _
  Optional ByVal Ausgabe As String = "hh:nn:ss")
  Dim t As Variant
 
  'Falls anstelle nn mm im Ausgabeformat
  'angegeben wurde
  Ausgabe = Replace(Ausgabe, "mm", "nn")
 
  Dim h As Long
  Dim m As Long
  Dim s As Long
 
  m = Int(Sek / 60)
  h = Int(m / 60): m = m Mod 60
  s = Sek - (h * 3600) - (m * 60)
 
  t = TimeSerial(h, m, s)
  DisplayTime = Format$(t, Ausgabe)
End Function