Diese Funktion wandelt eine beliebige Anzahl an Sekunden in Tage, Stunden, Minuten und Sekunden um
z. B. _secsToStr(1234567) gibt "14 days, 6 hours, 56 minutes, 7 seconds" aus
Func _secsToStr($s)
If $s >= 86400 Then
$d = floor($s / 86400)
$s = mod($s, 86400)
$r = $d & " day" & (($d <> 1) ? "s" : "") & (($s > 0) ? ", " : "") ; EN
;$r = $d & " Tag" & (($d <> 1) ? "e" : "") & (($s > 0) ? ", " : "") ; DE
EndIf
If $s >= 3600 Then
$h = floor($s / 3600)
$s = mod($s, 3600)
$r &= $h & " hour" & (($h <> 1) ? "s" : "") & (($s > 0) ? ", " : "") ; EN
;$r &= $h & " Stunde" & (($h <> 1) ? "n" : "") & (($s > 0) ? ", " : "") ; DE
EndIf
If $s >= 60 Then
$m = floor($s / 60)
$s = mod($s, 60)
$r &= $m & " minute" & (($m <> 1) ? "s" : "") & (($s > 0) ? ", " : "") ; EN
;$r &= $m & " Minute" & (($m <> 1) ? "n" : "") & (($s > 0) ? ", " : "") ; DE
EndIf
$r &= $s & " second" & (($s <> 1) ? "s" : "") ; EN
;$r &= $s & " Sekunde" & (($s <> 1) ? "n" : "") ; DE
Return $r
EndFunc ;==>_secsToStr
MsgBox(0, "secsToStr", _secsToStr(1234567))
[/autoit]