Convert Unix Timestamp To Date

5735 Views

Report

• SafeFloor(Value: float)<transacts>:int =
      if(Floored := Floor[Value]) then Floored else 0
  
  SafeMod(Value: int, Modulo: int)<transacts>:int =
      if(Modded := Mod[Value, Modulo]) then Modded else 0
  
  # Convert a Unix timestamp to a formatted date string
  ConvertTimestampToDate<public>(Timestamp : int)<transacts>:string =
      # Ensure we're working with floats
      TimestampFloat := Timestamp * 1.0
  
      # Calculate days (using float multiplication and division)
      DaysSinceEpoch := SafeFloor(TimestampFloat / (86400.0 * 1.0))
      RemainingSeconds := SafeFloor(SafeMod(Timestamp, 86400) * 1.0)
  
      # Calculate components
      Year := CalculateYear(DaysSinceEpoch)
      DaysInYear := CalculateDaysInYear(Year)
      DayOfYear := DaysSinceEpoch - CalculateDaysSinceEpoch(Year)
      
      # Calculate month and day
      MonthAndDay := CalculateMonthAndDay(Year, DayOfYear)
      Month := MonthAndDay(0)
      Day := MonthAndDay(1)