Código de Visual Basic - Año bisiesto

Año bisiestográfica de visualizaciones


Visual Basic

estrellaestrellaestrellaestrellaestrella(6)
Publicado el 09 de Abril del 2002 por Santiago
23.164 visualizaciones desde el 09 de Abril del 2002. Una media de 35 por semana
Esta función determina si un año es o no bisiesto

Versión 1
estrellaestrellaestrellaestrellaestrella(6)

Publicado el 09 de Abril del 2002gráfica de visualizaciones de la versión: Versión 1
23.165 visualizaciones desde el 09 de Abril del 2002. Una media de 35 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Public Function Es_Bisiesto(Año As Integer) As Boolean
On Error GoTo ErrorEs_Bisiesto
If Año Mod 4 = 0 Then
If (Año Mod 100 = 0) And Not (Año Mod 400 = 0) Then
Es_Bisiesto = False
Else
Es_Bisiesto = True
End If
Else
Es_Bisiesto = False
End If
Exit Function
ErrorEs_Bisiesto:
Es_Bisiesto = False
End Function

1
 



Comentarios sobre la versión: Versión 1 (6)

John Brown
05 de Mayo del 2002
estrellaestrellaestrellaestrellaestrella
El ejemplo es bueno pero un poco complejo y enredado. Los años bisiestos son multiplos de cuatro, por consiguiente el código quedaría resumido así:

Public Function Es_Bisiesto(Anyo As Integer) As Boolean
If (Anyo Mod 4) = 0 Then Es_Bisiesto = True Else Es_Bisiesto = False
End Function

Pasa ASP:
<%
Function Es_Bisiesto(Anyo)
If (Anyo Mod 4) = 0 Then Es_Bisiesto = True Else Es_Bisiesto = False
End Function
%>
Responder
mendru
11 de Mayo del 2002
estrellaestrellaestrellaestrellaestrella
Es_Bisiesto =( Año Mod 4 = 0) AND Not (Año Mod 100 = 0) And (Año Mod 400 = 0)

Creo que así estaría más elegante.
Responder
Santiago Fernandez
20 de Mayo del 2002
estrellaestrellaestrellaestrellaestrella
La duración del año (el tiempo que la Tierra tarda en dar una vuelta completa al Sol) no es exáctamente 365 días, sino aproximadamente 365 días y un cuarto de día. Al confeccionarse el calendario gregoriano, el actual vigente, se adoptó una duración media del año solar de 365,2425 días, conocido como año gregoriano. La manera de ajustar el desfase de 1/4 de día fue estableciendo (como en el anterior calendario juliano) como años bisiestos los múltiplos de cuatro, pero como el año gregoriano es un poco más corto que el verdadero o año trópico, se suprimen tres bisiestos julianos cada 400 años, en los años seculares no divisibles por 400, tales como 1700, 1800, 1900 y 2100, en tanto que si son bisiestos 1600, 2000, etc., que son divisibles por 400.

Responder
JB
29 de Mayo del 2002
estrellaestrellaestrellaestrellaestrella
Está muy bién, para enseñar a programar, que supongo que es el fin.
Lo mas práctico sería utilizar la función "DateDiff" que te devolvería los días transcurridos entre el 1 de Febrero y el 1 de Marzo (pasándole el año como parámetro), te retornará los días transcurridos, Si = 29...

Saludos.
Responder
Greg
19 de Julio del 2002
estrellaestrellaestrellaestrellaestrella
¡Perfecto!
La simplicidad sobre todas las cosas a la hora de programar.
Responder
gustavo
02 de Febrero del 2009
estrellaestrellaestrellaestrellaestrella
excelente me sirvio mucho
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s161