Test for Leap Year

Test for Leap Year

The tip “Leap Year Rules” [“101 Hot Tech Tips for VB Developers,” Supplement to the August 1996 issue of VBPJ, page 22] illustrated how to easily determine if any given year is a leap year. I believe I can offer a simpler, smaller function that does the same thing.Simply pass in the year you are testing, append that year to 02/29/, and use the IsDate function to see if that is a valid date. If 02/29/xx is not a valid date, then you know it is not a leap year:

 Function IsLeap(sYear As String) As Integer	If IsDate("02/29/" & sYear) Then		IsLeap = True	Else		IsLeap = False	End IfEnd Function


Share the Post: