Changeset 43 in code for trunk/lib/date.ml

Timestamp:

Dec 18, 2022, 2:49:25 PM (2 years ago)

Author:

fox

Message:

Relation dates, with conversion condition upon it

File:

• trunk/lib/date.ml (modified) (1 diff)

trunk/lib/date.ml

@@ -16 +16 @@
         Scanf.sscanf date "%4d-%02d-%02dT%02d:%02d:%02d"
                 (fun y mo d h mi s -> (y-1970)*31557600 + mo*2629800 + d*86400 + h*3600 + mi*60 + s)
+let of_secs s =
+        let { Unix.tm_sec=seconds; tm_min=minutes; tm_hour=hours;
+                tm_mday=day; tm_mon=month; tm_year=year; _ } = Unix.localtime (float_of_int s) in
+                Printf.sprintf "%4d-%02d-%02dT%02d:%02d:%02d"
+                        (year+1900) (month+1) day hours minutes seconds