Source file date.ml

1
2
3
4
include Date0

let of_time time ~zone = Time_float.to_date ~zone time
let today ~zone = of_time (Time_float.now ()) ~zone