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
IncDay
Функция
Приращивает переменную типа TDateTime на + или - число дней DateUtils unit
  function IncDay ( const StartDateTime : TDateTime {; NumberOfDays : Integer = 1} ) : TDateTime;
Описание
Функция IncDay возвращает значение TDateTime, которое на NumberOfDays дней больше, чем переданное значение StartDateTime.

Год и значения месяца увеличиваются соответствующе.

Значение приращения является произвольным (по умолчанию 1).
Примечания
Нет функции DecDay.

Вместо этого, используйте IncDay с отрицательным приращением.
Похожие команды
IncMinute  Приращивает переменную типа TDateTime на + или - число минут.

IncMonth  Увеличивает TDateTime переменную на некоторое число месяцев

IncYear  Увеличивает TDateTime переменную на количество лет

IncSecond  Приращивает переменную типа TDateTime на + или - число секунд

IncMillisecond  Приращивает переменную типа TDateTime на + или - число миллисекунд

 
Пример кода : Простой пример приращения и декремента
var
  myDate : TDateTime;
begin
  // Устанавливаем нашу дату как раз перед концом 2000 года
  myDate := EncodeDate(2000, 12, 30);
  ShowMessage('моя дата = '+DateToStr(myDate));

  // Добавить 10 дней к этой дате
  myDate := IncDay(myDate, 10);
  ShowMessage('моя дата + 10 дней = '+DateToStr(myDate));

  // Subtract 12 days from this date
  myDate := IncDay(myDate, -12);
  ShowMessage('моя дата - 12 дней = '+DateToStr(myDate));
end;
моя дата = 30/12/2000
моя дата + 10 дней = 09/01/2001
моя дата - 12 дней = 29/12/2000
 



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