Jak zjistit přechodný rok

Function IsLeapYearA(ByVal yr As Integer) As Boolean

   If ((yr Mod 4) = 0) Then
        IsLeapYearA = ((yr Mod 100) > 0) Or ((yr Mod 400) = 0)
   End If

End Function

Public Function IsLeapYearB(ByVal yr As Integer) As Boolean

   IsLeapYearB = Day(DateSerial(yr, 2, 29)) = 29

End Function

Volání:
X=IsLeapYearA(1999)
X=IsLeapYearB(1999)

Zpět