pasco at acm.org
Fri Apr 20 04:46:11 CEST 2001
James_Wilson at i2.com asked, about my function Weekday:
> One question; does it properly handle leap years? Is that what the "if M >
> 2 then Y1..." line is for?
Yes and yes, respectively.
Unlike a call to function DayOfWeek in unit SysUtils, my function
Weekday is self-contained; i.e. it encapsulates the entire calendar
algorithm in pure Pascal code with no dependence on external libraries.
Add a second table giving the number of days in each month and you can
draw the calendar of any month you like.
More information about the fpc-pascal