XProfan

cls
print Seconds_to_Hours&Minutes&Seconds(5122)

while 1

Endwhile

Proc Seconds_to_Hours&Minutes&Seconds

    Parameters Sekunden%
    declare Zeit$,Minuten%,Stunden%

    if Sekunden%>-1

        while Sekunden%>=60

            Minuten%=Minuten%+1
            Sekunden%=Sekunden%-60

        Endwhile

        while Minuten%>=60

            Stunden%=Stunden%+1
            Minuten%=Minuten%-60

        Endwhile

        Zeit$=Str$(Stunden%)+":"+Str$(Minuten%)+":"+Str$(Sekunden%)

    Else

        Zeit$="Unbekannt"

    Endif

    Return Zeit$

EndProc

Cls

Proc Change_SecondtoHMS

    Parameters Sekundenzahl%
    var Sekunden% = Sekundenzahl% MOD 60
    var Minuten%  = (Sekundenzahl% / 60) MOD 60
    var Stunden%  = (Sekundenzahl% / 60 / 60) MOD 24
    var Zeit$ = Format$("00",Stunden%)+":"+Format$("00",Minuten%)+":"+Format$("00",Sekunden%)
    Return Zeit$

EndProc

Print Change_SecondtoHMS(5122)
WaitInput