Autor Tema: Saber si un año es bisiesto  (Leído 1266 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 194
Saber si un año es bisiesto
« en: Abril 14, 2012, 07:41:53 pm »
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)
« Última modificación: Abril 14, 2012, 07:48:19 pm por xavi »