[fpc-pascal]Week Day

[Rich Pasco]

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.

     - Rich