sig
  type t = float
  val make : int -> int -> int -> int -> int -> int -> float
  val make_from_gmt : int -> int -> int -> int -> int -> int -> float
  val now : unit -> Util.Date.t
  val year : float -> int
  val mon : float -> int
  val day : float -> int
  val hour : float -> int
  val min : float -> int
  val sec : float -> int
  val lt : Util.Date.t -> Util.Date.t -> bool
  val to_string : Util.Date.t -> string
  val pmonth : string -> int
end