Sección de códigos , trucos y ejemplos para visual basic

395 - Año bisiesto

Función que retorna True o false , para comprobar si una fecha determinada corresponde a un año bisiesto

A la función Comprobar , se le debe pasar el número de año , por ejemplo

Resultado = Comprobar(2001)

Código fuente :

Option Explicit ' función que comprueba si el año es bisiesto ''''''''''''''''''''''''''''''''''''''''''''' Public Function Comprobar(Año As Variant) As Boolean If VarType(Año) = vbDate Then Comprobar = (Day(DateSerial(Year(Año), 2, 29)) = 29) Else Comprobar = (Day(DateSerial(Año, 2, 29)) = 29) End If End Function Private Sub Form_Load() ' falso MsgBox "¿ Año bisiesto ? " & Comprobar(2007), vbInformation, "Año 2007" ' Verdadero MsgBox "¿ Año bisiesto ? " & Comprobar(2008), vbInformation, "Año 2008" End Sub

Recursos visual basic 6.0 - Enlaces relacionados

Funciones para trabajar con fechas en vb 6

Buscar en Recursos vb