Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: elmango80 en Jueves 11 de Marzo de 2004, 10:12
Título: Codigo Para Años Bisiesto
Publicado por: elmango80 en Jueves 11 de Marzo de 2004, 10:12
Hola a Todos!!! :hola:
Estaba dando vueltas por el foro y recordando viejos lenguajes en los cuales he programado y entre al foro de Pascal, viendo los post que hay publicados hay encontre un codigo fuente para verificar si un año es bisiesto muy bueno y demasiado corto, el codigo funciona a la perfección...
Código: Text
Public Function ComprobarBisiesto(ByVal intAño As Integer) As Boolean
ComprobarBisiesto = False
If Año Mod 400 = 0 Then
ComprobarBisiesto = True
Else
If Año Mod 100 = 0 Then
ComprobarBisiesto = False
Else
If Año Mod 4 = 0 Then
ComprobarBisiesto = True
End If
End If
End If
End Function
Este codigo es mas corto aun
Código: Text
Public Function ComprobarBisiesto(ByVal intAño As Integer) As Boolean
ComprobarBisiesto = (intAño mod 4 = 0) and ((intAño mod 100 <> 0) or (intAño mod 400 = 0))
End Function
P.D: Gracias a _.B._ :comp: y a BlackTigerX :comp:
:devil: ------------------------ :angel:
Título: Re: Codigo Para Años Bisiesto
Publicado por: 9tnix en Jueves 11 de Marzo de 2004, 10:43
Salu2 elmango80
Buen codigo amigo.
Un saludo zeekel ® [KGT]
Título: Re: Codigo Para Años Bisiesto
Publicado por: Brroz en Jueves 11 de Marzo de 2004, 11:56
Hola companheir@s.
Ahí va otro, a ver si os gusta:
Código: Text
Public Function ComprobarBisiesto(ByVal intAño As Integer) As Boolean
If DateDiff("d", "1/2/" & intAño,"1/3/" & intAño)=29 Then ComprobarBisiesto=True
End Function
Abur.
Título: Re: Codigo Para Años Bisiesto
Publicado por: sercas en Jueves 11 de Marzo de 2004, 22:20
Como se retan entre Grandes,,,, y uno ........... nada papa. enseñennos,
Saludos
Título: Re: Codigo Para Años Bisiesto
Publicado por: Cyclop en Viernes 12 de Marzo de 2004, 00:28
Cita de: "elmango80"
Código: Text
Public Function ComprobarBisiesto(ByVal intAño As Integer) As Boolean
ComprobarBisiesto = (intAño mod 4 = 0) and ((intAño mod 100 <> 0) or (intAño mod 400 = 0));
End Function
Esto no funciona para el 2004
Título: Re: Codigo Para Años Bisiesto
Publicado por: elmango80 en Viernes 12 de Marzo de 2004, 06:04
Hola Cyclop!
Disculpar pero yo personalmente he probado los dos codigos y funcionan perfectamente para todos los años...