Jim,
BEGIN
LOGICAL PROCEDURE LEAPYEAR (YEAR);
INTEGER YEAR;
BEGIN
LEAPYEAR :=
IF YEAR MOD 4 = 0 AND YEAR MOD 100 <> 0 OR
YEAR MOD 400 = 0 THEN
TRUE
ELSE
FALSE;
END; << End of LEAPYEAR function >>
Regards
Paul H. Christidis
______________________________ Reply Separator _________________________________
Subject: Y2K: Leap Year Or Not?
Author: Jim Phillips <[log in to unmask]> at CCGATE
Date: 11/11/97 08:38 AM
Knowledgable listers:
I thought I had this year 2000 stuff down. But now I get a letter =
from one of our customers that really confused me. My understanding =
of the leap year algorithm is:
A year is a leap year if it is evenly divisible by 4, except for =
those years that are evenly divisible by 400.
Is this correct? Or am I (as usual) deluded? Is the year 2000 =
a leap year or not?
Jim Phillips Manager of Information Systems
E-Mail: [log in to unmask] Therm-O-Link, Inc.
Phone: (330) 527-2124 P. O. Box 285
Fax: (330) 527-2123 Garrettsville, Ohio 44231