eño bisiesto
yese
20 de Enero del 2009
hola me podrian ayudar ah hacer un codigo en visual basic para saber cuando un año es bisiest o no. por fis espero y me puedan ayudar me urge!!
Pere
20 de Enero del 2009
Prueba esto:
Dim año%
año = 2004
Bisiesto.IsBisiesto (año)
En un módulo, por ejemplo: Bisiesto.bas
Public Function IsBisiesto(iAny As Integer)
If (iAny Mod 4 = 0) And _
((iAny Mod 100 <> 0) Or (iAny Mod 400 = 0)) Then
Bisiesto = True
Else
Bisiesto = False
End If
End Function
ModifÃcalo a tu gusto.
Saludos
Dim año%
año = 2004
Bisiesto.IsBisiesto (año)
En un módulo, por ejemplo: Bisiesto.bas
Public Function IsBisiesto(iAny As Integer)
If (iAny Mod 4 = 0) And _
((iAny Mod 100 <> 0) Or (iAny Mod 400 = 0)) Then
Bisiesto = True
Else
Bisiesto = False
End If
End Function
ModifÃcalo a tu gusto.
Saludos
El mejor
20 de Enero del 2009
Un año es bisiesto si dura 366 dÃas, en vez de los 365 de un año común. Ese dÃa adicional se añade al final del mes más corto, fechándose como 29 de febrero.
Un año es bisiesto si es divisible por 4, excepto el último de cada siglo (aquel divisible por 100), salvo que éste último sea divisible por 400.
Conociendo esta elemental regla ya te puedes hacer el algoritmo para averiguar que año es bisiesto y el que no lo es.
Un año es bisiesto si es divisible por 4, excepto el último de cada siglo (aquel divisible por 100), salvo que éste último sea divisible por 400.
Conociendo esta elemental regla ya te puedes hacer el algoritmo para averiguar que año es bisiesto y el que no lo es.