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