MonthDays

const
 MonthDays : array [Boolean] of TDayTable =
      ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
       (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));

Stała tablicowa przechowuje ilości dni w danych miesiącach w roku. Ponieważ tablica jest dwuwymiarowa należy określić czy mamy do czynienia z rokiem przystępnym czy też nie. Do tego może posłużyć nam funkcja IsLeapYear:

Writeln('Dni w lutym 2006: ', MonthDays[IsLeapYear(2006)][2]);

Zobacz też:

• IsLeapYear