Determinar año bisiesto

[Armando]

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: Select all  Expand view  RUN

/*
    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

[hmpaquito]

Hola,

Harbour ya tiene una funcion IsLeap(<dDate>)

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

Saludos

[Armando]

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