jueves, 11 de mayo de 2017

Como saber si el año actual es bisiesto

Un año es bisiesto si cumple los siguientes criterios:
  • Es divisible entre 4.
  • Si termina en 00, es divisible entre 400 (2000 y 2400 sí son bisiestos. 2100, 2200 y 2300 no lo son).

SI ((año actual divisible por 4) Y ((año actual no divisible por 100) O (año actual divisible por 400)))
Podremos utilizar la función MOD que da como resultado el residuo de la división, por ejemplo:
2017 Mod 4 = 1, porque 2017/4 da como residuo 1.

Dim anio_actual As Integer =Date.Now.Year
If (anio_actual Mod 4 = 0 And anio_actual Mod 100 <> 0 Or anio_actual Mod 400 = 0) Then
      'Año bisiesto
Else
      'Año no bisiesto
 End If

Comparte