XProfan

cls
print Seconds_to_Hours&Minutes&Seconds(5122)

while 1

Endwhile

Proc Seconds_to_Hours&Minutes&Seconds

    Parameters sec%
    declare Time$,minutes%,hours%

    if sec%>-1

        while sec%>=60

            minutes%=minutes%+1
            sec%=sec%-60

        Endwhile

        while minutes%>=60

            hours%=hours%+1
            minutes%=minutes%-60

        Endwhile

        Time$=Str $(hours%)+":"+Str $(minutes%)+":"+Str $(sec%)

    Else

        Time$="Unbekannt"

    Endif

    Return Time$

ENDPROC

Cls

Proc Change_SecondtoHMS

    Parameters Sekundenzahl%
    var sec% = Sekundenzahl% MOD 60
    var minutes%  = (Sekundenzahl% / 60) MOD 60
    var hours%  = (Sekundenzahl% / 60 / 60) MOD 24
    var Time$ = stature$("00",hours%)+":"+stature$("00",minutes%)+":"+stature$("00",sec%)
    Return Time$

ENDPROC

Print Change_SecondtoHMS(5122)
WaitInput