Функция IncDay

Автор: | 16.11.2017

Функция IncDay Delphi модуля DateUtils

функция

Функция IncDay содержится в модуле DateUtils. Ее предназначение заключается в прибавлении или отнимании от выбранной даты нескольких дней.

Пример функции

В блоке Var объявляем переменную типа TDateTime.

var
myDate : TDateTime;

begin

//Далее устанавливаем в эту переменную нужную дату с помощью функции EncodeDate(год, мес, чис);
myDate := EncodeDate(2017, 12, 30);
ShowMessage(‘моя дата = ‘+DateToStr(myDate));

myDate := IncDay(myDate, 10);
ShowMessage(‘моя дата + 10 дней = ‘+DateToStr(myDate));

myDate := IncDay(myDate, -12);
ShowMessage(‘моя дата — 12 дней = ‘+DateToStr(myDate));
end;

Результатом выполнения кода будут новые даты 29.12.2017 и 09.01.2018 

 

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *