XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Zeit: Minuten umrechnen
sekunden in stunden, minuten, sekunden

Proc zeit_convert

    Parameters lang&
    let std&=@div&(lang&,3600)

    if @gt(std&,0)

        let sek&=@sub(lang&,@mul(std&,3600))
        let min&=@div&(sek&,60)
        let sek&=@sub(sek&,@mul(min&,60))

    else

        let min&=@div&(lang&,60)
        let sek&=@sub(lang&,@mul(min&,60))

    endif

endproc

Beispiel
declare lang&,min&,sek&,std&
cls
let lang&=3965    Sekunden als Vorgabe
zeit_convert lang& Aufruf der Routine
print Stunden:,std&
print Minuten:,min&
print Sekunden:,sek&
waitinput
end