XProfan

cls
imprimer Seconds_to_Hours&Minutes&Seconds(5122)

tandis que 1

Endwhile

Proc Seconds_to_Hours&Minutes&Seconds

    Paramètres Sekunden%
    declare Zeit$,Minuten%,Stunden%

    si Sekunden%>-1

        tandis que Sekunden%>=60

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

        Endwhile

        tandis que Minuten%>=60

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

        Endwhile

        Zeit$=Str$(Stunden%)+»+Str$(Minuten%)+»+Str$(Sekunden%)

    D'autre

        Zeit$="Unbekannt"

    Endif

    Retour Zeit$

ENDPROC

Cls

Proc Change_SecondtoHMS

    Paramètres 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%)
    Retour Zeit$

ENDPROC

Imprimer Change_SecondtoHMS(5122)
WaitInput