Module Civil

type date = {
  1. year : int;
  2. month : int;
  3. day : int;
}
val is_leap_year : int -> bool
val days_in_month : int -> int -> int
val is_valid : date -> bool
val days_from_civil : date -> int
val civil_from_days : int -> date
val weekday : int -> int
val zeller : date -> int
val add_months : date -> int -> date
val month_name : int -> string
val weekday_name : int -> string
val to_string : date -> string