Lembit Soobik
lembit.dbamail at t-online.de
Fri Jun 15 11:16:24 CDT 2007
Thanks Arthur and Bryan. will use this function Lembit ----- Original Message ----- From: "Bryan Carbonnell" <carbonnb at gmail.com> To: "Access Developers discussion and problem solving" <accessd at databaseadvisors.com> Sent: Friday, June 15, 2007 5:54 PM Subject: Re: [AccessD] Birthday in table > On 6/15/07, Arthur Fuller <fuller.artful at gmail.com> wrote: >> The definition of a leap year is a two-step: >> >> 1. if the year is evenly divisible by four then you're cool, except: >> 2. if the year ends in 00 then it must be evenly divisible by 400 -- thus >> 1900 was not a leap year but 2000 was. >> >> That should be enough data. > > Determining Leap years are actually a 3 step process > > Is the year evenly divisible by 4? If so, it is a leap year, > unless... > Is the year evenly divisible by 100? (for example, 1500?) If so, it is > not a leap year, > unless... > Is the year evenly divisible by 400? If so, it is a leap year. > > Here is a function I cribbed from wikipedia to determine if a year is > a leap year. > > Function ISLEAPYEAR(Year As Integer) > ' This is a function which returns a simple TRUE > ' or FALSE depending on whether it fits. > > Dim varAns As Boolean > If Year Mod 400 = 0 Then > varAns = True > Else > If Year Mod 100 = 0 Then > varAns = False > Else > If Year Mod 4 = 0 Then > varAns = True > Else > varAns = False > End If > End If > End If > > ISLEAPYEAR = varAns > End Function > > -- > Bryan Carbonnell - carbonnb at gmail.com > Life's journey is not to arrive at the grave safely in a well > preserved body, but rather to skid in sideways, totally worn out, > shouting "What a great ride!" > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > > -- > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.472 / Virus Database: 269.8.16/849 - Release Date: 14.06.2007 > 12:44 >