<code>Function DisplayTime(ByVal Sek As Long, ByVal Ausgabe As String) As String
 
  <font color=green>' Wenn für Ausgabeformat nichts angegeben wurde.
  ' "hh:nn:ss" verwenden</font>
  If Ausgabe = "" Then Ausgabe = "hh:nn:ss"
 
  <font color=green>' Falls anstelle nn mm im Ausgabeformat
  ' angegeben wurde</font>
  If InStr(Ausgabe, "mm") > 0 Then _
    Mid$(Ausgabe, InStr(Ausgabe, "mm"), 2) = "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</code>