SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: arielb en Sábado 14 de Mayo de 2005, 23:09
-
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
-
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.
-
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.
-
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
-
juez revisa estos links puede que algo de esto te sirva o te dé ideas...
Link1 (http://www.mvp-access.com/buho/ficheros/masfuncionesfechas.txt)
Link2 (http://mvp-access.com/buho/ficheros/diasfebrero.txt)
Link3 (http://www.mvp-access.com/buho/ficheros/bisiesto.txt)
DiabloRojo.