Ejercicio 5: Determinar si un año es bisiesto

Ejercicio 5: Determinar si un año es bisiesto

Escribe una macro que solicite al usuario un año y determine si es bisiesto.
Un año es bisiesto si:
- Es divisible entre 400, o
- Es divisible entre 4 pero no entre 100.

1. Iniciar macro
2. Pedir al usuario que ingrese un año y guardar en variable
3. Si el año es divisible entre 400, es bisiesto
4. Sino, si el año es divisible entre 4 y no divisible entre 100, es bisiesto
5. Si no cumple ninguna condición anterior, no es bisiesto
6. Mostrar mensaje según corresponda
7. Terminar macro

Sub AñoBisiesto()
  Dim año As Integer
  año = CInt(InputBox("Ingrese un año:"))
  If (año Mod 400 = 0) Then
    MsgBox "El año " & año & " es bisiesto."
  ElseIf (año Mod 4 = 0) And (año Mod 100 <> 0) Then
    MsgBox "El año " & año & " es bisiesto."
  Else
    MsgBox "El año " & año & " NO es bisiesto."
  End If
End Sub