Работа с датами

[Ozerich]

ИМЕЮ:
1.дата 1
2.колво дней.

необходимо проверить является ли сегодня в промежутке дата1...дата1+кол-во дней.

Как сделать??

[Crivel]

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

необходимо проверить является ли сегодня в промежутке дата1...дата1+кол-во дней.

Не понял... надо узнать какая сегодня дата? или сравнить какую-то дату с сегодняшней?

[Ozerich]

Мне дана дата ну например 1.01.2000 и дана цифра 9
как мне проверить является ли сегодняшняя дата в промежутке 1.01.2000..09.01.2008

[BOBAH13]

Юзаем для хранения даты и времени Double, он же TDateTime. Так же для получения всех состовляющий времени и даты, ну год, месяц, день, час ,минуты и т.д. EncodeTime, DecodeTime. Все... дальше простая арифметика и парачка if

[DearHunter]

Поможет функция IncDay в сочетании с операторами > и <.

[FaTaL]

Вот как вариант:

procedure TForm1.Button1Click(Sender: TObject);
var
dt  : TDate;
begin
  dt:=now;
    If (dt<StrToDate('01.01.2008')) or (dt>StrToDate('09.01.2008')) then
        ShowMessage('Дата не входит в диапазон') else
        ShowMessage('Дата входит в диапазон');
end;

[Ozerich]

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

Вот как вариант:

procedure TForm1.Button1Click(Sender: TObject);
var
dt  : TDate;
begin
  dt:=now;
    If (dt<StrToDate('01.01.2008')) or (dt>StrToDate('09.01.2008')) then
        ShowMessage('Дата не входит в диапазон') else
        ShowMessage('Дата входит в диапазон');
end;

Я это знаю но мне надо было найти конечную дату.
Спасибо,DearHunter.