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]

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]

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)