Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
MonthDays
Константа
Выдает число дней в месяце SysUtils unit
  
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 возвращается для февраля, если год високосный (первый параметр Булев массив). Это лучше всего показано на предоставленном примере кода.
Похожие команды
DaysInAMonth  Выдает число дней в месяце

DaysInAYear  Выдает число дней в году

MinsPerDay  Выдает число минут в дне

SecsPerDay  Выдает число секунд в дне

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



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия