<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="index.html"> <link title="Index of types" rel=Appendix href="index_types.html"> <link title="Index of exceptions" rel=Appendix href="index_exceptions.html"> <link title="Index of values" rel=Appendix href="index_values.html"> <link title="Index of modules" rel=Appendix href="index_modules.html"> <link title="Index of module types" rel=Appendix href="index_module_types.html"> <link title="Utils" rel="Chapter" href="Utils.html"> <link title="Time_Zone" rel="Chapter" href="Time_Zone.html"> <link title="Period" rel="Chapter" href="Period.html"> <link title="Time_sig" rel="Chapter" href="Time_sig.html"> <link title="Time" rel="Chapter" href="Time.html"> <link title="Ftime" rel="Chapter" href="Ftime.html"> <link title="Date_sig" rel="Chapter" href="Date_sig.html"> <link title="Date" rel="Chapter" href="Date.html"> <link title="Calendar_sig" rel="Chapter" href="Calendar_sig.html"> <link title="Calendar_builder" rel="Chapter" href="Calendar_builder.html"> <link title="Calendar" rel="Chapter" href="Calendar.html"> <link title="Fcalendar" rel="Chapter" href="Fcalendar.html"> <link title="Printer" rel="Chapter" href="Printer.html"> <link title="Version" rel="Chapter" href="Version.html"><title>Date_sig</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">module</span> <span class="keyword">type</span> <span class="constructor">S</span> =<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> t<br> <span class="keyword">type</span> day = <span class="constructor">Sun</span> <span class="keywordsign">|</span> <span class="constructor">Mon</span> <span class="keywordsign">|</span> <span class="constructor">Tue</span> <span class="keywordsign">|</span> <span class="constructor">Wed</span> <span class="keywordsign">|</span> <span class="constructor">Thu</span> <span class="keywordsign">|</span> <span class="constructor">Fri</span> <span class="keywordsign">|</span> <span class="constructor">Sat</span><br> <span class="keyword">type</span> month =<br> <span class="constructor">Jan</span><br> <span class="keywordsign">|</span> <span class="constructor">Feb</span><br> <span class="keywordsign">|</span> <span class="constructor">Mar</span><br> <span class="keywordsign">|</span> <span class="constructor">Apr</span><br> <span class="keywordsign">|</span> <span class="constructor">May</span><br> <span class="keywordsign">|</span> <span class="constructor">Jun</span><br> <span class="keywordsign">|</span> <span class="constructor">Jul</span><br> <span class="keywordsign">|</span> <span class="constructor">Aug</span><br> <span class="keywordsign">|</span> <span class="constructor">Sep</span><br> <span class="keywordsign">|</span> <span class="constructor">Oct</span><br> <span class="keywordsign">|</span> <span class="constructor">Nov</span><br> <span class="keywordsign">|</span> <span class="constructor">Dec</span><br> <span class="keyword">type</span> year = int<br> <span class="keyword">type</span> field = [ <span class="keywordsign">`</span><span class="constructor">Day</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Month</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Week</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Year</span> ]<br> <span class="keyword">exception</span> <span class="constructor">Out_of_bounds</span><br> <span class="keyword">exception</span> <span class="constructor">Undefined</span><br> <span class="keyword">val</span> make : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> lmake :<br> year:<span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span><br> ?month:int <span class="keywordsign">-></span> ?day:int <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> today : unit <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> from_jd : int <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> from_mjd : int <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> from_day_of_year : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> days_in_month : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> day_of_week : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.day<br> <span class="keyword">val</span> day_of_month : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> day_of_year : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> week : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> month : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.month<br> <span class="keyword">val</span> year : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year<br> <span class="keyword">val</span> to_jd : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> to_mjd : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> equal : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> compare : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> hash : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> is_valid_date : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> is_leap_day : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> is_gregorian : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> is_julian : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> to_unixtm : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> <span class="constructor">Unix</span>.tm<br> <span class="keyword">val</span> from_unixtm : <span class="constructor">Unix</span>.tm <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> to_unixfloat : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> float<br> <span class="keyword">val</span> from_unixfloat : float <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> to_business :<br> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year * int * <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.day<br> <span class="keyword">val</span> from_business :<br> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.day <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> int_of_day : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.day <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> day_of_int : int <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.day<br> <span class="keyword">val</span> int_of_month : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.month <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> month_of_int : int <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.month<br> <span class="keyword">module</span> <span class="constructor">Period</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> t<br> <span class="keyword">val</span> empty : t<br> <span class="keyword">val</span> add : t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> sub : t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> opp : t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> equal : t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> compare : t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> hash : t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> make : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> lmake :<br> ?year:int <span class="keywordsign">-></span> ?month:int <span class="keywordsign">-></span> ?day:int <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> year : int <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> month : int <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> week : int <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> day : int <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">exception</span> <span class="constructor">Not_computable</span><br> <span class="keyword">val</span> nb_days : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> ymd : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> int * int * int<br> <span class="keyword">end</span><br> <span class="keyword">val</span> add : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.<span class="constructor">Period</span>.t <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> sub : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.<span class="constructor">Period</span>.t<br> <span class="keyword">val</span> rem : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.<span class="constructor">Period</span>.t <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> next : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.field <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> prev : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.field <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> is_leap_year : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> same_calendar : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> days_in_year : ?month:<span class="constructor">Date_sig</span>.<span class="constructor">S</span>.month <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> weeks_in_year : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> week_first_last :<br> int <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t * <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> nth_weekday_of_month :<br> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span><br> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.month <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.day <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> century : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> millenium : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> solar_number : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> indiction : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> golden_number : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> epact : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> easter : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> carnaval : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> mardi_gras : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> ash : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> palm : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> easter_friday : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> easter_saturday : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> easter_monday : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> ascension : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> withsunday : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> withmonday : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">val</span> corpus_christi : <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.year <span class="keywordsign">-></span> <span class="constructor">Date_sig</span>.<span class="constructor">S</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">end</span></code></body></html>