高手们可以来解决一个小问题吗（关于DELPHI中的日期差计算）

Question

用SQL语句:
var
   Date1,Date2:string;//把两个日期转化为字符型
------------------------------------------------
过程:
begin
  with Query do
  begin
    close;
    sql.clear;
    sql.add('select 日差=datediff(day,'''+date1+''','''+date2+''') ');
    Open;
  end;
  DayReturn:=Query.fieldbyname('日差').asstring;//你可以转换为你需要的类型
end;

Answer 1

直接用头号即可，我试过的。
now-day1 结果为整型 即二者的相差天数

Answer 2

直接用头号即可，我试过的。
now-day1 结果为整型 即二者的相差天数

Answer 3

//相差的天数:
 days:=trunc(date1)-trunc(date2);//days 为一个整形变量;date1,date2为两个日期类型
                                  //变量;

Answer 4

procedure TfmTest.Button1Click(Sender: TObject);
begin  
  ShowMessage('相差的天数:'+IntToStr(round(date1.date)-round(date2.date)));
end;