Вычисление оставшегося времени

[_-Re@l-_]

Вот сейчас, например, 9.10.10 17:42. А как вычислить, сколько дней, часов, минут и секунд осталось,например, до 19 декабря?

[Stilet]

DaysBetween,HoursBetween,MinutesBet ween,MonthsBetween...
И так далее из DateUtils

[_-Re@l-_]

Я не совсем понимаю как использовать эти функции.можно пример кода?

[russian-stalker]

Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
  d1,d2:TDateTime;
begin
  d1 := EncodeDateTime(2010,10,9,17,42,0,0);
  d2 := EncodeDateTime(2010,12,19,0,0,0,0);
  ShowMessage('Осталось: '+IntToStr(DaysBetween(d1,d2))+' дней');
end;

[_-Re@l-_]

Почему-то пишет Undeclared identifier про EncodeDateTime....
Всё, проблема решена, всем спасибо.

Однако, теперь другая проблема.
Делаю вот так:

var
  Form1: TForm1;
  d1,d2:TDate;
  t1,t2:TTime;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
      d2:=EncodeDate(2010,12,19);
      t2:=EncodeTime(0,0,0,0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
      d1:=Now;
      t1:=Now;
      Edit1.Text:=IntToStr(DaysBetween(d1,d2));
      Edit2.Text:=IntToStr(HoursBetween(t1,t2));
      Edit3.Text:=IntToStr(MinutesBetween(t1,t2));
      Edit4.Text:=IntToStr(SecondsBetween(t1,t2));
      Form1.SetFocus;
end;

Однако, каждую секунду вместо того чтобы уменьшаться, время увеличивается!Почему же так??



Опять же проблема решена, надо было так:

var
  Form1: TForm1;
  d1,d2:TDateTime;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
      d1:=EncodeDateTime(2010,12,19,0,0,0,0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
      d2:=Now;
      Edit1.Text:=IntToStr(DaysBetween(d1,d2));
      Edit2.Text:=IntToStr(HoursBetween(d1,d2));
      Edit3.Text:=IntToStr(MinutesBetween(d1,d2));
      Edit4.Text:=IntToStr(SecondsBetween(d1,d2));
      Form1.SetFocus;
end;

[_SERGEYX_]

Потому, что время не стоит на месте :=))

var t1,t2:TDateTime;

d2:=EncodeDate(2010,12,19);
t2:=d2 + EncodeTime(0,0,0,0);