Código de Visual Basic - Año bisiesto

Año bisiesto

Visual Basic

(8)

Publicado el 9 de Abril del 2002 por Santiago

38.892 visualizaciones desde el 9 de Abril del 2002

Esta función determina si un año es o no bisiesto

Versión 1
(8)

Publicado el 9 de Abril del 2002

gráfica de visualizaciones de la versión: Versión 1

38.893 visualizaciones desde el 9 de Abril del 2002

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

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

John Brown

5 de Mayo del 2002

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

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

aibanez3

24 de Enero del 2021

Creo que es un poco tarde para contestar, pero creo que la versión correcta sería algo así:

EsBisiesto = (anno Mod 4 = 0) And (Not (anno Mod 100 = 0) Or (anno Mod 400 = 0))

Responder

dino

18 de Marzo del 2021

Gracias he aprovado un examen gracias a ti

Responder

Santiago Fernandez

20 de Mayo del 2002

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

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

¡Perfecto!
La simplicidad sobre todas las cosas a la hora de programar.

Responder

gustavo

2 de Febrero del 2009

excelente me sirvio mucho

Responder