Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!samsung!munnari.oz.au!bruce!monu0.cc.monash.edu.au!monu4!ins845b
From: ins845b@monu4.cc.monash.edu.au (mr  k.l. lentin)
Newsgroups: comp.lang.pascal
Subject: Re: Leap year function
Message-ID: <1991May18.112519.3371@monu0.cc.monash.edu.au>
Date: 18 May 91 11:25:19 GMT
References: <26912@adm.brl.mil> <1991May17.074806.130@hls.com>
Sender: ins845b@monu4.cc.monash.edu.au (kevin lentin)
Organization: Monash University, Clayton, Vic 3168, Australia
Lines: 17

In article <1991May17.074806.130@hls.com> neile@hls.com writes:
>In article <26912@adm.brl.mil>, bakerre@tawc1.eglin.af.mil (Baker, Robert E.) writes:
>> 
>> 	I'm looking for source for a function that determines whether or not a
>> year is a leap year.  Anybody got it.  ADVthanksANCE.
>> 
>The test for a leap year is simple; year mod 4 = 0.  There is no reason to
>add complexity as indicated in other postings.
>
>Neil Everhart 

Not altogether true. All century years that are not multiples of 400 are NOT
leap years so 1600 IS a leap year 1700,1800,1900 WERE and 2000 will be!
If thats not a problem year mod 4 = 0 works fine.

|/
|\evin