Código de Visual Basic - Año bisiesto

sin imagen de perfil

Año bisiestográfica de visualizaciones


Visual Basic

Publicado el 9 de Abril del 2002 por Santiago
30.335 visualizaciones desde el 9 de Abril del 2002
Esta función determina si un año es o no bisiesto

Versión 1
estrellaestrellaestrellaestrellaestrella(6)

Publicado el 9 de Abril del 2002gráfica de visualizaciones de la versión: Versión 1
30.336 visualizaciones desde el 9 de Abril del 2002
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)

5 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
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
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
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
19 de Julio del 2002
estrellaestrellaestrellaestrellaestrella
¡Perfecto!
La simplicidad sobre todas las cosas a la hora de programar.
Responder
2 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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s161