Autor Tema: Codigo Para Años Bisiesto (Leído 1772 veces)

elmango80 · « **en:** Jueves 11 de Marzo de 2004, 10:12 »

Hola a Todos!!!

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 &#60;&#62; 0) or (intAño mod 400 = 0))
End Function

P.D: Gracias a _.B._

y a BlackTigerX

------------------------

9tnix

Salu2 elmango80

Buen codigo amigo.

Un saludo zeekel ®
[KGT]

Brroz

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(&#34;d&#34;, &#34;1/2/&#34; & intAño,&#34;1/3/&#34; & intAño)=29 Then ComprobarBisiesto=True
End Function

Abur.

sercas

Como se retan entre Grandes,,,,
y uno ........... nada papa.
enseñennos,

Saludos

Cyclop

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

elmango80

Hola Cyclop!

Disculpar pero yo personalmente he probado los dos codigos y funcionan perfectamente para todos los años...

SoloCodigo

Autor Tema: Codigo Para Años Bisiesto (Leído 1772 veces)

elmango80

Codigo Para Años Bisiesto

9tnix

Re: Codigo Para Años Bisiesto

Brroz

Re: Codigo Para Años Bisiesto

sercas

Re: Codigo Para Años Bisiesto

Cyclop

Re: Codigo Para Años Bisiesto

elmango80

Re: Codigo Para Años Bisiesto