Simple Time Converters

41,802 Views

Report

• time_converter<public> := module:
      TurnToMessage<localizes>(String: string):message="{String}"
  
      TurnToDHMFormat<public>(TotalSeconds: int, ?Seperator: string = ":"):message=
          Days := Floor(TotalSeconds / 86400) or 0
          Hours := Floor(Mod[TotalSeconds, 86400] / 3600) or 0
          Minutes := Floor(Mod[TotalSeconds, 3600] / 60) or 0
  
          DayString := GetFormattedString(Days)
          HourString := GetFormattedString(Hours)
          MinuteString := GetFormattedString(Minutes)
  
          return TurnToMessage("{DayString}{Seperator}{HourString}{Seperator}{MinuteString}")
  
      TurnToHMSFormat<public>(TotalSeconds: int, ?Seperator: string = ":"):message=
          Hours := Floor(TotalSeconds / 3600) or 0
          Minutes := Floor(Mod[TotalSeconds, 3600] / 60) or 0
          Seconds := Mod[TotalSeconds, 60] or 0
  
          HourString := GetFormattedString(Hours)
          MinuteString := GetFormattedString(Minutes)
          SecondString := GetFormattedString(Seconds)