Page 1 of 1
Error en ISLEAP()?, SOLUCIONADO
Posted: Wed Jul 03, 2024 4:55 pm
by 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
Re: Error en ISLEAP()?, SOLUCIONADO
Posted: Wed Jul 03, 2024 5:23 pm
by 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.
Re: Error en ISLEAP()?, SOLUCIONADO
Posted: Wed Jul 03, 2024 5:44 pm
by paquitohm
Re: Error en ISLEAP()?, SOLUCIONADO
Posted: Wed Jul 03, 2024 7:17 pm
by Enrico Maria Giordano
Re: Error en ISLEAP()?, SOLUCIONADO
Posted: Thu Jul 04, 2024 7:27 am
by paquitohm
Enrico Maria Giordano wrote:
It is not correct.
Ok ! Sorry, my error !!!
From ChatGPT:
Code: Select all | Expand
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á)
Re: Error en ISLEAP()?, SOLUCIONADO
Posted: Thu Jul 04, 2024 7:44 am
by nageswaragunupudi
paquitohm wrote:Enrico Maria Giordano wrote:
It is not correct.
Ok ! Sorry, my error !!!
From ChatGPT:
Code: Select all | Expand
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
function IsLeapYear( nYear ); return ( nYear % 4 ) == 0 .and. ( nYear % 100 ) != 0
Re: Error en ISLEAP()?, SOLUCIONADO
Posted: Thu Jul 04, 2024 2:48 pm
by paquitohm
Why such long code with so many lines?
Code: Select all | Expand
function IsLeapYear( nYear ); return ( nYear % 4 ) == 0 .and. ( nYear % 100 ) != 0
IMHO, It is not correct.
Re: Error en ISLEAP()?, SOLUCIONADO
Posted: Thu Jul 04, 2024 2:56 pm
by Enrico Maria Giordano
Why not using the function ISLEAP() that Harbour and xHarbour already provide?
Re: Error en ISLEAP()?, SOLUCIONADO
Posted: Thu Jul 04, 2024 3:11 pm
by karinha
Enrico Maria Giordano wrote:Why not using the function ISLEAP() that Harbour and xHarbour already provide?
Code: Select all | Expand
// 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.
Re: Error en ISLEAP()?, SOLUCIONADO
Posted: Thu Jul 04, 2024 4:15 pm
by Armando
Friends:
Amigos:
This is my IsLeap function.
Esta es mi función IsLeap
Code: Select all | Expand
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