Año bisiesto
Hola experto.
Estoy desarrollando un formulario en donde necesito visualzar si el año es bisiesto en una etiqueta
Estoy desarrollando un formulario en donde necesito visualzar si el año es bisiesto en una etiqueta
Respuesta de parmijo
1
Encontré esta macro de la página de support. Microsoft que evalúa la fecha de la celda "a1" y manda un msgbox con el resultado:
Sub LeapYearTest()
Dim x As Boolean
Dim z As Integer
z = Year(Range("A1").Value)
x = False
If z Mod 4 = 0 And z Mod 100 > 0 Then x = True
If z Mod 400 = 0 Then x = True
If x Then
MsgBox z & ("Es un año Bisiesto")
Else
MsgBox z & (" No es un año Bisiesto")
End If
End Sub
Espero que te sirva de base para tu formulario
saludos
Sub LeapYearTest()
Dim x As Boolean
Dim z As Integer
z = Year(Range("A1").Value)
x = False
If z Mod 4 = 0 And z Mod 100 > 0 Then x = True
If z Mod 400 = 0 Then x = True
If x Then
MsgBox z & ("Es un año Bisiesto")
Else
MsgBox z & (" No es un año Bisiesto")
End If
End Sub
Espero que te sirva de base para tu formulario
saludos
