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
 



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