date.ml
core
core.base_for_tests
core.command
core.filename_base
core.heap_block
core.top
core.univ_map
core.validate
1 2 3 4 5 6 7 include Date0 let of_time time ~zone = Time_float.to_date ~zone time let today ~zone = of_time (Time_float.now ()) ~zone let format = `Use_Date_unix let of_tm = `Use_Date_unix let parse = `Use_Date_unix
1 2 3 4 5 6 7
include Date0 let of_time time ~zone = Time_float.to_date ~zone time let today ~zone = of_time (Time_float.now ()) ~zone let format = `Use_Date_unix let of_tm = `Use_Date_unix let parse = `Use_Date_unix