Saber si un año es bisiesto

[xavi]

Palabras clave: año bisiesto, año de traspaso
Autor: Desconocido
Extraído de: La web del Búho quién, a su vez, extrajo de http://www.terra.es/personal2/sfortiz/ (web que parece estar actualmente vacia

Objetivo
Averiguar si un año es o no bisiesto.

Código [Seleccionar] Expandir


Public Function Es_Bisiesto(Año As Integer) As Boolean

if datediff("d","01/02/"& Año,"01/03/" & Año )=29 then

        Es_Bisiesto = True

else

        Es_Bisiesto = False

end if
End Function


Código de marjan[/]
Preguntar si es una fecha también vale...

Código [Seleccionar] Expandir


If IsDate("29/02/" & vAño) Then...


Alternativa de Xavi: Otra forma que se me ocurre de saber si es bisiesto

Es_Bisiesto = (Day(DateSerial(Año, 3,0)) = 29)