XProfan

Code von Jörg Sellmeyer

Proc Time2Min

    Parameters T$
    Declare Std&,Min&
    Std& = Val(SubStr$(T$,1,":")) * 60
    Min& = Val(SubStr$(T$,2,":"))
    Return Std& + Min&

EndProc

Proc Min2Time

    Parameters T&
    Declare Std%,Min%
    Min% = T& Mod 60
    Std% = (T& - Min%) / 60- Min% * 60
    Return Str$(Std%) + ":" + Format$("00",Min%)

EndProc

Randomize
Print Time2Min(Time$(0))
Print Min2Time(Time2Min(Time$(0)))
Print
Print Time2Min("8:46")
Print Min2Time(Rnd(24 * 60 + 1))
WaitInput