JS-Soft

Cls
Print Str$(5122)+" Sekunden entsprechen "+Second2HMS(5122)+" Stunden:Minuten:Sekunden"
Waitinput

Proc Second2HMS

    Parameters Sekundenzahl%
    Return Format$("00",(Sekundenzahl% / 60 / 60) MOD 24)+":"+Format$("00",(Sekundenzahl% / 60) MOD 60)+":"+Format$("00",Sekundenzahl% MOD 60)

EndProc

Proc HMS2Second

    Parameters Zeit$
    Return Val(SubStr$(Zeit$,3,":"))+(Val(SubStr$(Zeit$,2,":"))*60)+(Val(SubStr$(Zeit$,1,":"))*3600)

EndProc