Conocer si es año bisiesto.

Prueba esta función, si devuelve True es que es Bisiesto.

Function BisiestoSINO(Year As Date) As Boolean
    Dim Mod400 As Long, Mod100 As Long, Mod4 As Long
    
    BisiestoSINO = False 'Indica si es bisiesto o no
    Mod400 = Year Mod 400
    Mod100 = Year Mod 100
    Mod4 = Year Mod 4
    
    If (Mod400 = 0) Then BisiestoSINO = True
    If (Mod100 = 0) And (Mod400  0) Then BisiestoSINO = False
    If (Mod4 = 0) And (Mod100  0) Or ((Mod4 = 0) And (Mod400 = 0)) Then BisiestoSINO = True
End Function

Publicado en microsoft.public.es.asp por Pablo Viojo

Function BisiestoSINO(Year As Date) As Boolean
    BisiestoSINO = Day(DateSerial(Year(Fecha), 3, 0)) = 29
End Function

Tagen nos ha enviado otra función más cortita.

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s