sig
  type t = Time.Date.t * Time.Ofday.t
  val of_time : Time.t -> TZ.Zone.t -> TZ.Date_time.t
  val to_time : TZ.Date_time.t -> TZ.Zone.t -> Time.t
  val convert :
    from_tz:TZ.Zone.t -> to_tz:TZ.Zone.t -> TZ.Date_time.t -> TZ.Date_time.t
end