一个关于日期的问题!

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  Date1,Date2,Date3:TDateTime;
begin
   Date1:=StrToDate(Edit1.Text);
   Date2:=StrToDate(Edit2.Text);
   Date3:=Date1-Date2;
   showmessage(DateToStr(Date3));
end;这么得出的结果会不正确?

Answer 1

是不是想这样？procedure TForm1.Button1Click(Sender: TObject);
var
  Date1,Date2:TDateTime;
begin
   Date1:=StrToDate('2002-11-18');
   Date2:=StrToDate('2002-10-18');
   showmessage(IntToStr(DaysBetween(Date1, Date2))) ;
end;