blob: 5abf9c3fba3fb13937f529616441699ec82e8943 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
let is_today date =
let now = Unix.localtime (Unix.time ()) in
let d = Unix.localtime date in
now.tm_year = d.tm_year && now.tm_mon = d.tm_mon && now.tm_mday = d.tm_mday
let format_time date =
let t = Unix.localtime date in
let hour = t.tm_hour mod 12 in
let hour = if hour = 0 then 12 else hour in
let ampm = if t.tm_hour >= 12 then "pm" else "am" in
Printf.sprintf "%d:%02d %s" hour t.tm_min ampm
let format_date date =
let t = Unix.localtime date in
Printf.sprintf "%d/%d/%02d" (t.tm_mon + 1) t.tm_mday (t.tm_year mod 100)
|
