(* Convert Unix timestamp to Date in SML *) val unix_timestamp = Time.fromSeconds 1721818631; val date = Time.toDate unix_timestamp; (* Extract the date components *) val year = Date.year date; val month = Date.month date; val day = Date.day date; val hour = Date.hour date; val minute = Date.minute date; val second = Date.second date; (* Print the result *) val _ = print ("Converted Date: " ^ Int.toString year ^ "-" ^ Int.toString (Date.monthToInt month) ^ "-" ^ Int.toString day ^ " " ^ Int.toString hour ^ ":" ^ Int.toString minute ^ ":" ^ Int.toString second ^ "\n");
Time.fromSeconds 1721818631
1721818631
Time.time
Time.toDate unix_timestamp
Date.date
Date.year
Date.month
Date.day
Date.monthToInt
2024-07-24 10:57:11
print
Time.fromSeconds()
Time.fromSeconds 1514764800
Time.toDate()
Time.toDate (Time.fromSeconds 1514764800)
Time.toSeconds()
Time.toSeconds (Date.toTime date)
Date.fromTime()
Date.fromTime (2018, Date.Jan, 1, 0, 0, 0)
Date.toTime()
Date.toTime (Date.fromTime (2018, Date.Jan, 1, 0, 0, 0))
Date.year()
Date.year (Date.fromTime (2018, Date.Jan, 1, 0, 0, 0))
Date.month()
Date.month (Date.fromTime (2018, Date.Jan, 1, 0, 0, 0))
Date.day()
Date.day (Date.fromTime (2018, Date.Jan, 1, 0, 0, 0))
Date.hour()
Date.hour (Date.fromTime (2018, Date.Jan, 1, 0, 0, 0))
Date.minute()
Date.minute (Date.fromTime (2018, Date.Jan, 1, 0, 0, 0))
Date.second()
Date.second (Date.fromTime (2018, Date.Jan, 1, 0, 0, 0))