XProfan

cls
imprimir Seconds_to_Hours&Minutes&Seconds(5122)

mientras que 1

Endwhile

Proc Seconds_to_Hours&Minutes&Seconds

    Parámetros Sekunden%
    declarar Tiempo$,Minuten%,Stunden%

    if Sekunden%>-1

        mientras que Sekunden%>=60

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

        Endwhile

        mientras que Minuten%>=60

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

        Endwhile

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

    Más

        Tiempo$="Unbekannt"

    Endif

    Volver Tiempo$

ENDPROC

Cls

Proc Change_SecondtoHMS

    Parámetros Sekundenzahl%
    var Sekunden% = Sekundenzahl% MOD 60
    var Minuten%  = (Sekundenzahl% / 60) MOD 60
    var Stunden%  = (Sekundenzahl% / 60 / 60) MOD 24
    var Tiempo$ = Formato$("00",Stunden%)+":"+Formato$("00",Minuten%)+":"+Formato$("00",Sekunden%)
    Volver Tiempo$

ENDPROC

Imprimir Change_SecondtoHMS(5122)
WaitInput