Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Un año es bisiesto si es divisible por 4, a menos que sea divisible por 100 y no por 400. En http://es.wikipedia.org/wiki/A%F1o_bisiesto está la explicación.
Para VB puede ser:
(Year(Date) Mod 4)=0 Or ((Year(Date) Mod 100)=0 And Not (Year(Date) Mod 400)=0)