(* Convert Date to Unix timestamp in SML *) val date = Date.fromTime (2018, Date.Jan, 1, 0, 0, 0); (* 2018-01-01 00:00:00 *) val unix_timestamp = Time.toSeconds (Date.toTime date); (* Print the Unix timestamp *) val _ = print ("Unix Timestamp: " ^ Int.toString unix_timestamp ^ "\n");
Date.fromTime (2018, Date.Jan, 1, 0, 0, 0)
Date.date
Date.toTime date
Time.time
Time.toSeconds (Date.toTime date)
print
Time.fromSeconds()
Time.fromSeconds 1514764800
Time.toDate()
Time.toDate (Time.fromSeconds 1514764800)
Time.toSeconds()
Date.fromTime()
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))