Cita:
Empezado por ecfisa
Hola.
Para aportar mas datos de la función IsLeapYear (que no conocía), esta es la implementación que tiene en SysUtils :
Código Delphi [-]function IsLeapYear(Year: Word): Boolean; begin Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)); end;
Saludos.  |
Es que se han copiado de tu código y seguro que no te pagan derechos de autor