leap year function

[tziviak]

is there a way to check if a certain date-is a leap year?

 

[Norris68]

There is a lot of stuff on the web, and the general rule is:

if (year mod 4 <> 0)
{use 28 for days in February}
else if (year mod 400 = 0)
{use 29 for days in February}
else if (year mod 100 = 0)
{use 28 for days in February}
else
{use 29 for days in February}

However, I saw another solution on

http://stanner.com/pitstop/pbtip15.htm

that is incredibly simple, using the built-in VBA functions (although web example in PowerBuilder):

IsLeapYear = IsDate(&quot;29 Feb yyyy&quot

Substitute your year for the 'yyyy'.
e.g. IsDate(&quot;29 Feb 2000&quot is True, IsDate(&quot;29 Feb 2002&quot is False.

 

[MichaelRed]

Just for the fun of it:

MyDate = Date
IsLpYr2 = IsDate("2/29/" & Year(MyDate))
IsLpYr3 = DateDiff("d", "1/1/" & Year(MyDate), "1/1/" & Year(MyDate) + 1) = 366
? IsLpYr, IsLpYr2, IsLpYr3
False         False         False



strMyDate = "3/13/96"
IsLpYr4 = IsDate("2/29/" & Year(strMyDate))
IsLpYr5 = IsDate("2/29/" & Year(strMyDate))
IsLpYr6 = DateDiff("d", "1/1/" & Year(strMyDate), "1/1/" & Year(strMyDate) + 1) = 366
? IsLpYr4, IsLpYr5, IsLpYr6
True          True          True
[code]




MichaelRed
m.red@att.net

Searching for employment in all the wrong places