Тема закрыта! Вопрос решился вот если кому то пригодится
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
|