From: Richard J. <ri...@an...> - 2004-10-29 14:42:38
|
On Fri, Oct 29, 2004 at 04:31:15PM +0200, Julien Signoles wrote: > # let business_of_standard d =3D week d, day_of_week d;; > val business_of_standard : Date.t -> int * Date.day =3D <fun> Actually, come to think of it, even if you sort out the year problem this still may not work. You'll need to have a look at how it's implemented in GregorianDate. I checked that implementation for correctness pretty thoroughly. Rich. --=20 Richard Jones. http://www.annexia.org/ http://www.j-london.com/ >>> http://www.team-notepad.com/ - collaboration tools for teams <<< Merjis Ltd. http://www.merjis.com/ - improving website return on investment http://winwinsales.co.uk/ - CRM consultancy |