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 может сделать это для вас :
1 |
Writeln('Дней в 2018: ', MonthDays[IsLeapYear(2018)][2]); |
***