Расчет даты (дата+цел.число)

[zallza]

Здраствуйте. Мой вопрос заключается в следубщем: есть у меня DatePicker и 2 Edit'a, в DatePicker устанавливаем дату, в 1-й Edit вводим целое число (как бы число дней, на которое должна увеличится дата), в 2-м Edit'е хочу получить результат. Как сделать ето? есть мож стандартные функции для работы с датой? Ибо контролировать выход количества дней в месяце за его предел не реально как мне кажится. Помоги пожалуйста, спасибо зарание!

[Пепел Феникса]

посмотрите модуль DateUtils

[bitSoft]

Uses DateUtils;

.......

Edit2.Text := DateTimeToStr(IncDay(DateTimePicker.Date,StrToInt(Edit1.Text)));

.....

Probuval v Lazarus, Rabotaet, Delphi ne na meste..., tolika Lazarus,

[zallza]

Спасибо огромное, все работает

[alexandro704]

Есть у меня DateTimePicker1, Edit1, Edit2.
в DatePicker устанавливаем дату, в 1-й Edit вводим целое число (как бы число дней, на которое должна увеличится дата), в 2-м Edit'е хочу получить результат, но если в этот интервал попадают такие даты как :
1 января ,8 марта , 9 мая то нужно +1 день к результату.

Edit2.Text := DateTimeToStr(IncDay(DateTimePicker.Date,StrToInt(Edit1.Text)));

[Valio]

Сообщение от alexandro704

Есть у меня DateTimePicker1, Edit1, Edit2.
в DatePicker устанавливаем дату, в 1-й Edit вводим целое число (как бы число дней, на которое должна увеличится дата), в 2-м Edit'е хочу получить результат, но если в этот интервал попадают такие даты как :
1 января ,8 марта , 9 мая то нужно +1 день к результату.

Edit2.Text := DateTimeToStr(IncDay(DateTimePicker.Date,StrToInt(Edit1.Text)));

И что же делать?

[alexandro704]

Сообщение от Valio

И что же делать?

если в этот интервал попадают такие даты как :
1 января ,8 марта , 9 мая то нужно +1 день к результату.
Например:

01.03.2011р + 8 дней = 09.03.2011р. (а не 08.03.2011р)

[alexandro704]

Может есть у когото идеи как это сделать ?

[evg_m]

dt:=Date;
nn:=8;
for j:=1 to nn do  begin
  dt:=dt+1; //IncDay(dt,1);
  decodeDate(dt, y, m, d);
  if (m=3) and (d=8) then dt:=dt+1;
  if (m=1) and (d=1) then dt:=dt+1;
  if (m=5) and (d=9) then dt:=dt+1;
// для проверок лучше будет организовать массив и процедуру(функцию)
// if specialday(m,d) then dt:=dt+1;
end;