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