Intentando con Try ....

[marcoszorrilla]

Mejor puedes utilizar la función IsLeapYear, que viene incorporada en la unidad SysUtils de Delphi.

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsleapYear(2004) then
ShowMessage('Es bisiesto.');
end;

Un Saludo.

[roman]

Empezado por marcoszorrilla

Mejor puedes utilizar la función IsLeapYear, que viene incorporada en la unidad SysUtils de Delphi.

Claro que sí pues ya está hecha, como se lo indiqué. El código que puse fue solo para enfatizar que el ejemplo que puso no fue muy afortunado en el sentido de que aún cuando no estuviera, es muy fácil.

// Saludos

[marcoszorrilla]

Tienes toda la razón Román, tenía que haber insertado este código:

 { Date encoding and decoding }
 
 function IsLeapYear(Year: Word): Boolean;
 begin
   Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
 end;

O no haber dicho nada.

Un Saludo.

[roman]

Empezado por marcoszorrilla

O no haber dicho nada.

¡Eso sí que no! Todo lo que tú dices es interesante (y no lo digo nada más por decir algo)

Por cierto, ¿no sería maravilloso que el código de la función EsBisiesto compilara? ¡Porque no compila!

// saludos

[marcoszorrilla]

 function EsBisiesto(Agnus: Integer): Boolean;
 begin
   Result :=
 	((Agnus mod 4) = 0) // es múltiplo de 4
 	and
 	(
 		  (Agnus mod 400 = 0) or// a menos que también de 400
 	  (Agnus mod 100 <> 0)  // pero no de 100
 	);
 end;

Poniéndolo en latín funciona, jeje.

[roman]

Empezado por marcoszorrilla

Poniéndolo en latín funciona, jeje.

O bien en PHP:

Código PHP:

function esBisiesto($año)
{
  return
    (fmod($año, 4) == 0) // es múltiplo de 4
    &&
    (
      (fmod($año, 100) != 0) // pero no de 100
      ||
      (fmod($año, 400) == 0) // a menos que también de 400
    );
} 


No conozco otro lenguaje que lo permita.

// Saludos