SoloCodigo

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
  1.  
  2. Public Function ComprobarBisiesto(ByVal intAño As Integer) As Boolean
  3.     ComprobarBisiesto = False
  4.     If Año Mod 400 = 0 Then
  5.         ComprobarBisiesto = True
  6.     Else
  7.         If Año Mod 100 = 0 Then
  8.             ComprobarBisiesto = False
  9.         Else
  10.             If Año Mod 4 = 0 Then
  11.                 ComprobarBisiesto = True
  12.             End If
  13.         End If
  14.     End If
  15. End Function
  16.  
  17.  


Este codigo es mas corto aun

Código: Text
  1.  
  2. Public Function ComprobarBisiesto(ByVal intAño As Integer) As Boolean
  3.     ComprobarBisiesto = (intAño mod 4 = 0) and ((intAño mod 100 <> 0) or (intAño mod 400 = 0))
  4. End Function
  5.  
  6.  


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
  1.  
  2. Public Function ComprobarBisiesto(ByVal intAño As Integer) As Boolean
  3. If DateDiff("d", "1/2/" & intAño,"1/3/" & intAño)=29 Then ComprobarBisiesto=True
  4. End Function
  5.  
  6.  

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
  1.  
  2. Public Function ComprobarBisiesto(ByVal intAño As Integer) As Boolean
  3.     ComprobarBisiesto = (intAño mod 4 = 0) and ((intAño mod 100 <> 0) or (intAño mod 400 = 0));
  4. End Function
  5.  
  6.  

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...