[Karsh]

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

и как работать с DateUtils - DaysBeteen я вообще ниразу с датами не работал....

небольшой пример:

Код:

uses
  DateUtils; // не забываем указать этот модуль

procedure TForm1.Button1Click(Sender: TObject);
var
  DateNow, DateOld: TDateTime;
  i: Integer;
begin
  DateNow:= Date;  // получаем текущую дату
  DateOld:= StrToDate('01.02.2009'); // задаем произвольную дату
  i:= DaysBetween(DateNow, DateOld); // узнаем временной промежуток
  ShowMessage(IntToStr(i) + ' дней.'); // показываем результат
end;