Error en ISLEAP()?, SOLUCIONADO

[Armando]

Amigos del foro:

Estoy probando la función IsLeap() para determinar si el año dado es bisiesto

? IsLeap(2024) => .T.
? IsLeap(2025) => .T.
? IsLeap(2026) => .T.

2024 sí es bisiesto pero 2025 y 2026 No.

Que estoy haciendo mal?

Saludos

Fue mi error, debemos pasar la fecha completa y yo estoy pasando solo el año

Mil disculpas

[cpheraclio]

IsLeap()
Checks if a Date value belongs to a leap year.
Syntax
IsLeap( [<dDate>] ) --> lIsLeapYear

Arguments
<dDate>
Any Date value, except for an empty date, can be passed. The default is the return value of Date(). Return
The function returns .F. (true), when <dDate> falls into a leap year, otherwise .F. (false) is returned.

[paquitohm]

Code: Select all  Expand view

#Define lYEAR_BISIESTO(nYear) ( Mod(nYear, 4) == 0 )

[Enrico Maria Giordano]

Code: Select all  Expand view

#Define lYEAR_BISIESTO(nYear) ( Mod(nYear, 4) == 0 )

It is not correct.

[paquitohm]

Code: Select all  Expand view

#Define lYEAR_BISIESTO(nYear) ( Mod(nYear, 4) == 0 )

It is not correct.

Ok ! Sorry, my error !!!

From ChatGPT:

Code: Select all  Expand view

FUNCTION EsBisiesto(nAno)
    // Comprueba si el año es divisible por 4
    IF (nAno % 4 == 0)
        // Si es divisible por 4, comprueba si también es divisible por 100
        IF (nAno % 100 == 0)
            // Si es divisible por 100, debe ser también divisible por 400 para ser bisiesto
            IF (nAno % 400 == 0)
                RETURN .T.  // Es bisiesto
            ELSE
                RETURN .F.  // No es bisiesto
            ENDIF
        ELSE
            RETURN .T.  // Es bisiesto
        ENDIF
    ELSE
        RETURN .F.  // No es bisiesto
    ENDIF
RETURN .F.  // Por defecto, no es bisiesto (aunque esta línea nunca se alcanzará)

[nageswaragunupudi]

Code: Select all  Expand view

#Define lYEAR_BISIESTO(nYear) ( Mod(nYear, 4) == 0 )

It is not correct.

Ok ! Sorry, my error !!!

From ChatGPT:

Code: Select all  Expand view

FUNCTION EsBisiesto(nAno)
    // Comprueba si el año es divisible por 4
    IF (nAno % 4 == 0)
        // Si es divisible por 4, comprueba si también es divisible por 100
        IF (nAno % 100 == 0)
            // Si es divisible por 100, debe ser también divisible por 400 para ser bisiesto
            IF (nAno % 400 == 0)
                RETURN .T.  // Es bisiesto
            ELSE
                RETURN .F.  // No es bisiesto
            ENDIF
        ELSE
            RETURN .T.  // Es bisiesto
        ENDIF
    ELSE
        RETURN .F.  // No es bisiesto
    ENDIF
RETURN .F.  // Por defecto, no es bisiesto (aunque esta línea nunca se alcanzará)

Why such long code with so many lines?

Code: Select all  Expand view

function IsLeapYear( nYear ); return ( nYear % 4 ) == 0 .and. ( nYear % 100 ) != 0

[paquitohm]

Why such long code with so many lines?

Code: Select all  Expand view

function IsLeapYear( nYear ); return ( nYear % 4 ) == 0 .and. ( nYear % 100 ) != 0

IMHO, It is not correct.

[Enrico Maria Giordano]

Why not using the function ISLEAP() that Harbour and xHarbour already provide?

[karinha]

Why not using the function ISLEAP() that Harbour and xHarbour already provide?

Code: Select all  Expand view

// C:\FHW\SAMPLES\SLEEPARM.PRG

#include "FiveWin.ch"

FUNCTION Main()

   SET CENTURY ON
   SET DATE BRITISH
   SET EPOCH TO YEAR( DATE() ) - 30

   ? Date(), IsLeap()

   ? AddMonth( 12 ),  IsLeap( AddMonth(  12 ) )

   ? AddMonth( -12 ), IsLeap( AddMonth( -12 ) )

RETURN NIL

// FIN / END
 

Regards, saludos.

[Armando]

Friends:
Amigos:

This is my IsLeap function.
Esta es mi función IsLeap

Code: Select all  Expand view

FUNCTION IsLeap(nAmo)
RETURN( ((nAmo % 4) == 0 .AND.;
    (nAmo % 100) <> 0) .OR.;
    ((nAmo % 400) == 0) )
 

As you can see, in my function I only require the year while in Harbor's function
it requires the full date, that created confusion for me in my first post

Como pueden ver, solo requiero el año mientras que IsLeap de Harbour requiere
la fecha completa, eso me creó la confusión de mi primer post, estaba usando la función de Harbour.

With many greetings