Разное
Облака / Clouds

The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>

time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: MonthDays
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)); |
Константа (Unit SysUtils)
|
Выдает число дней в месяце
|
Описание:
|
Константа MonthDays - полезная часть модуля SysUtils. Она выдает число дней в месяце; 29 возвращается для февраля, если год високосный (первый параметр Булев массив). Это лучше всего показано на предоставленном примере кода. |
Пример кода: Сколько дней в феврале 2000г.?
|
begin // Сколько дней в феврале 2000г.? ShowMessage('Количество дней в Феврале 2000г. = '+ IntToStr(MonthDays[IsLeapYear(2000)][2])); end;
Результат:
|
Количество дней в Феврале 2000г. = 29 |