Delphi-Help

Описание

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));

Константа MonthDays - полезная часть модуля SysUtils. Она выдает число дней в месяце; 29 возвращается для февраля, если год високосный (первый параметр Булев массив). Это лучше всего показано на предоставленном примере кода.

Пример кода

begin
// Сколько дней в феврале 2000г.?
ShowMessage('Количество дней в Феврале 2000г. = '+
IntToStr(MonthDays[IsLeapYear(2000)][2]));
end;

Количество дней в Феврале 2000г. = 29

Примечание