[[egostar]]

Empezado por roman

¡Pues a eso me refiero! Los métodos que describen, requieren, de una u otra forma, saber si el año es o no bisiesto. Por ello, lo más práctico es, o usar IsLeapYear que usa la fórmula que comenta basti.

// Saludos

Y si a mi me gusta complicarme la vida y no quiero usar esa función de IsLeapYear.......

Bueno, aqui les dejo un pequeño código que iba a poner en el hilo de código sin utilidad.

Código Delphi [-]
function TForm1.EsBisiesto(year:integer):bool;
begin
  result := false;
  If ( (year mod 100)= 0) or
     ( (year mod 400)= 0) or
     ( (year mod 4)= 0) then
     result := true;
end;

//Con el método DecodeDate se obtiene el año y es pasado a la función
  DecodeDate(Now,Anio,Mes,Dia);
  If EsBisiesto(Anio) then
     ShowMessage('Es Bisiesto')
  else ShowMessage('NO es Bisiesto');

Saludos.