Access - Año Bisiesto

 
Vista:

Año Bisiesto

Publicado por Oscar Gómez (46 intervenciones) el 23/10/2001 23:52:46
Cordial saludo

Gracias de antemano por leer esta pregunta.

Para una aplicación que estoy desarrolando, necesito saber como se sabe si un año es bisiesto o no (por medio de programación en el Visual Basic de Acces).

Sí alguien tiene el código de como se hace, me haría un gran favor si me lo facilita.

Gracias.

Atentamente,

Oscar Gómez
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Año Bisiesto

Publicado por Luis Fernando Melo (323 intervenciones) el 24/10/2001 15:42:09
Hola
Puedes hacer solución rápida, no será la mejor pero funciona

Function AñoBiciesto(Año As Integer) As Boolean
On Error GoTo Err_Biciesto
Dim d As Date
AñoBiciesto = True

d = CDate("29/02/" & Año)

Exit_Biciesto:
Exit Function
Err_Biciesto:
AñoBiciesto = False
Resume Exit_Biciesto
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar