lfg

1 files changed, 15 insertions, 0 deletions

diff --git a/bs5/server/rsc/Date.ml b/bs5/server/rsc/Date.ml
new file mode 100644
index 0000000..5abf9c3
--- /dev/null
+++ b/bs5/server/rsc/Date.ml
@@ -0,0 +1,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)