Timer And Stopwatch Decimal Formatting

FromSecondsToTimerFormat<public>(Time : float, ?Decimals : int = 3):string=
    DecimalPanner := Pow(10.0, Decimals * 1.0)   

    if:
        TruncatedFormat := (Round[Time * DecimalPanner] * 1.0) / DecimalPanner
        TotSecs := Floor[TruncatedFormat]
        Dec := Round[(TruncatedFormat - (TotSecs * 1.0)) * DecimalPanner]
    then:
        var String_Dec : string = "{Dec}"
        DecLength := String_Dec.Length
        for(i := 0..(Decimals - DecLength - 1)):
            set String_Dec = "0" + String_Dec

        var String_Secs : string = "00"
        var String_Mins : string = "00"

        if(Secs := Mod[TotSecs, 60]):
            if(Secs > 9):
                set String_Secs = ToString(Secs)  
            else:
                set String_Secs = "0" + ToString(Secs)

        if(Mins := Floor[Time / 60.0]):
            if(Mins > 9):
                set String_Mins = ToString(Mins)  
            else:
                set String_Mins = "0" + ToString(Mins)

        return String_Mins + " : " + String_Secs + " : " + String_Dec

    ""
Timer And Stopwatch Decimal Formatting

Comments
