para saber si un año es biciesto


Public Function EsBiciesto(Año As Integer) As Boolean
EsBiciesto = False
If (Año Mod 4 = 0) And Not (Año Mod 100 = 0) Or (Año Mod 400 = 0) Then EsBiciesto =...