Simple Time Converters

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)

        return TurnToMessage("{HourString}{Seperator}{MinuteString}{Seperator}{SecondString}")

    TurnToMSFormat<public>(TotalSeconds: int, ?Seperator: string = ":"):message=
        Minutes := Floor(TotalSeconds / 60) or 0
        Seconds := Mod[TotalSeconds, 60] or 0