ConvertSecondsToString()

//******************************************************************************
// Funktion: konvertiert Sekunden in Tage, Stunden, Minuten und Sekunden.
// @nInputSeconds: nInputSeconds:N - Eingabe der zu Konvertierenden Sekunden
// @cTrennzeichen: cTrennzeichen:C - Zeichen, welches als Trennzeichen für die Ausgabe wirkt
// @Result: string
//******************************************************************************
function _ConvertSecondsToString(nInputSeconds, cTrennzeichen)
   | nSeconds, cSecondsLeer, nMinutes, nHours, nDays, cFinal |

   nDays     := (nInputSeconds - Mod(nInputSeconds , 86400)) / 86400,
   nInputSeconds := nInputSeconds - nDays * 86400,
   nHours    := (nInputSeconds - Mod(nInputSeconds, 3600)) / 3600,
   nInputSeconds := nInputSeconds - nHours * 3600,
   nMinutes  := (nInputSeconds - Mod(nInputSeconds, 60)) / 60,
   nSeconds  := nInputSeconds - nMinutes * 60,

   Result := '',
   Result += iif(nDays > 0 , strzero(nDays,2)+'d'+cTrennzeichen,''),
   Result += iif(nHours > 0 , strzero(nHours,2)+'h'+cTrennzeichen,''),
   Result += iif(nMinutes > 0 , strzero(nMinutes,2)+'m'+cTrennzeichen,''),
   Result += strzero(nSeconds,2)+'s',
end,

ConvertSecondsToString(14567, '.')    // Ergebnis:  "04h.02m.47s"