Código Delphi [-] const DaysPerYear: array [Boolean] of Word = (365, 366); function DaysInAYear(const AYear: Word): Word; begin Result := DaysPerYear[IsLeapYear(AYear)]; end;
const DaysPerYear: array [Boolean] of Word = (365, 366); function DaysInAYear(const AYear: Word): Word; begin Result := DaysPerYear[IsLeapYear(AYear)]; end;