Saber si un año es bisiesto

Artículo por Club Developers · 31 diciembre 2005

5674 vistas

Para que un año sea bisiesto es necesario que sea múltiplo de 4 sin ser un múltiplo de 100 a excepción de si es múltiplo de 400. Los años 1700, 1800 y 1900 no son bisiestos mientras que 2000 sà lo es.

Para este menester, Delphi nos ofrece la función IsInLeapYear declarada en la unit DateUtils.



delphi
  1. uses
  2.   DateUtils;
  3. var
  4.   MiDate: TDate;
  5. begin
  6.   MiDate := EncodeDate(2004,12,35);
  7.   if IsInLeapYear(MiDate) then
  8.     ShowMessage('Año bisiesto')
  9.   else
  10.     ShowMessage('No es año bisiesto');
  11. end;