Programación General > Visual Basic 6.0 e inferiores

 Bisiesto

(1/2) > >>

arielb:
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

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

RadicalEd:

--- Cita de: "tyron" --- if Año Mod 4 = 0 then
'es bisiesto
else
'no lo es
end if
--- Fin de la cita ---
Ay tomas incluso los que son de 100.
No vale.

tyron:
Es verdad  :P  jeje. A ver esto:

If Año Mod 4 = 0 Then
    If (Año Mod 100 = 0) And Not (Año Mod 400 = 0) Then
        'No es bisiesto
    Else
        'Es bisiesto
    End If
Else
    'No es bisiesto
End If

Entonces la pregunta es que si hay otra forma diferente a esta de sacar si un año es bisiesto? o es esto lo que buscas?
Un saludo.

arielb:
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. :blink:
gracias de todas formas

Navegación

[0] Índice de Mensajes

[#] Página Siguiente