Module Time.Date

module Date: sig .. end

include Date

val of_time : Time.t -> Date.t

val today : unit -> Date.t

val format : Date.t -> string -> string