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