Ano Bissexto

[kuroi]

Public Function Bissexto(intAno As Integer) As Boolean
    Bissexto = (intAno Mod 4 = 0 And ((Not intAno Mod 100 = 0) Or intAno Mod 400 = 0))
End Function[/code]