MonthDays Delphi

MonthDays

Модуль: SysUtils
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));

Константа массива хранит количество дней в данных месяцах года. Поскольку массив двумерный, необходимо указать, доступен ли этот год или нет. Функция IsLeapYear может сделать это для вас :

***