topic-42028

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Determinar año bisiesto
Posted: Tue Aug 02, 2022 03:05 PM

Hola Amigos del foro:

Por necesidad, hace tiempo desarrollé una pequeña función para
determinar si el año de una fecha es bisiesto.

Code (fw): Select all Collapse

/*
    IsLeap      :   Función para determinar si el año es bisiesto (.T.)
                        o no (.F.)
    Recibe      :   El año a determinar
    Parámetros :   nAmo = El año a determinar si es bisiesto o no
    Devuelve        :   (.T.) en caso se ser bisiesto o (.F.) en caso contrario
    Fecha           :   11/Jul/2004
    Autor           :   Armando Estrada Bucio
    Compañia       :   SOI, s.a. de c.v.
*/
FUNCTION IsLeap(nAmo)
RETURN( ((nAmo % 4) == 0 .AND.;
    (nAmo % 100) <> 0) .OR.;
    ((nAmo % 400) == 0) )

Adjunto la función por si a alguien le es de ayuda, a ver si no estoy inventando el agua caliente.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Determinar año bisiesto
Posted: Tue Aug 02, 2022 03:52 PM

Hola,

Harbour ya tiene una funcion IsLeap(<dDate>)

https://harbour.github.io/doc/clct3.html#isleap

Saludos

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Determinar año bisiesto
Posted: Tue Aug 02, 2022 05:20 PM

hmpaquito:

Parece que sí descubrí el agua caliente
Esta función la construí cuando yo usaba xHarbour (Mira la fecha de la función)
tal vez a los que aún usan xHarbour le pueda servir.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion