Public Function IsRunnian(ByVal n As Integer) As Boolean Dim res As Boolean res = False If n Mod 400 = 0 Then res = True End If If (n Mod 100 <> 0) And (n Mod 4 = 0) Then res = True End If Return res End Function
