SoloCodigo

Que tal amigos habrá otra forma para saber si un año es bisiesto o diferente a que tiene que ser multiplo de 4  excluyendo aquellos que son multiplo de 100 y no de 400.

por ejemplo si se coloca en el text el 2004 determinar a traves de una formula si es bisiesto o no.

gracias y saludos

if Año Mod 4 = 0 then
'es bisiesto
else
'no lo es
end if

Ay tomas incluso los que son de 100.
No vale.

si la pregunta es que si hay otra forma diferente pork yo lo estoy haciendo asi

If (Val(Text1.Text) Mod 400 = 0) Or (Val(Text1.Text) Mod 4 = 0) And (Val(Text1.Text) Mod 100 <> 0) Then
    MsgBox "Es un Año Bisiesto"
Else
    MsgBox "No es un año bisiesto"
End If

pensé que existía un metodo diferente de que no hable de 400 y 4 y 100
pero bueno hasta el momento he visto que no.
gracias de todas formas