module Date: sig end
type
t
type
day =
| |
Sun |
| |
Mon |
| |
Tue |
| |
Wed |
| |
Thu |
| |
Fri |
| |
Sat |
type
month =
| |
Jan |
| |
Feb |
| |
Mar |
| |
Apr |
| |
May |
| |
Jun |
| |
Jul |
| |
Aug |
| |
Sep |
| |
Oct |
| |
Nov |
| |
Dec |
type
field = [ `Day | `Month | `Week | `Year ]
exception Out_of_bounds
exception Undefined
val make : int -> int -> int -> t
val lmake : year:int -> ?month:int -> ?day:int -> unit -> t
val today : unit -> t
val from_jd : int -> t
val from_mjd : int -> t
val days_in_month : t -> int
val day_of_week : t -> day
val day_of_month : t -> int
val day_of_year : t -> int
val week : t -> int
val month : t -> month
val year : t -> int
val to_jd : t -> int
val to_mjd : t -> int
val compare : t -> t -> int
val is_leap_day : t -> bool
val is_gregorian : t -> bool
val is_julian : t -> bool
val to_unixtm : t -> Unix.tm
val from_unixtm : Unix.tm -> t
val to_unixfloat : t -> float
val from_unixfloat : float -> t
val int_of_day : day -> int
val day_of_int : int -> day
val int_of_month : month -> int
val month_of_int : int -> month
module Period: sig end
val add : t -> Period.t -> t
val sub : t -> t -> Period.t
val rem : t -> Period.t -> t
val next : t -> field -> t
val prev : t -> field -> t
val is_leap_year : int -> bool
val same_calendar : int -> int -> bool
val days_in_year : int -> int
val weeks_in_year : int -> int
val century : int -> int
val millenium : int -> int
val solar_number : int -> int
val indiction : int -> int
val golden_number : int -> int
val epact : int -> int
val easter : int -> t