Timer Stopwatch Time Format With Decimals

6762 Views

Report

• 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)