delphi中怎么计算两个日期差？

Question

delphi中怎么计算两个日期差？就是计算机借款日期和还款日期之间隔着几天？我用下面的方法怎么提示出错。edit1.Text:=inttostr(DaysBetween(formatdatetime('ddd',now),formatdatetime('ddd',now)));

Answer 1

var D1,D2 :Tdatetime;
begin
  D2:=StrToDate('2001-4-27');
  D1:=StrToDate('2001-4-26');
  MessageDlg('天数'+IntToStr(Trunc(D2-D1)),mtInformation,[mbOK],0);
end;

Answer 2

看一下daysbetween的帮助，里面的参数类型不一样。formatdatetime返回的是string型