求一时间差的语句，语法

在delphi中如何表示SQL数据库表的时间字段（如ltime）与DateTimePicker1中时间相差20天直接 ADOQuery1.FieldByName('ltime').AsString-QuotedStr(datetostr(DateTimePicker1.Date))=20;好象不行？？

解决方案 »

  1.   

    直接使用SQL的函数就可以啊
    DateDiff函数
      

  2.   

    更正一下：uses DateUtils;DaysBetween(Dt1, Dt2)返回一个整数就是相差的天数
      

  3.   


    uses
    DateUtils;var
    i:integer;
    begin
    i:=DaysBetween(strtodate(ADOQuery1.FieldByName('ltime').AsString),DateTimePicker1.Date);
    showmessage(inttostr(i));
    end;
      

  4.   

    if Trunc(ADOQuery1.FieldByName('ltime').AsDateTime)-Trunc(DateTimePicker1.DateTime)=20 then
    ...
      

  5.   

    uses DateUtils;if Abs(DaysBetween(ADOQuery1.FieldByName('ltime').AsDateTime, DateTimePicker1.Date)) = 20 then
      

  6.   


    if round(ADOQuery1.FieldByName('ltime').AsDateTime-DateTimePicker1.DateTime)=20 then
        showmessage('恭喜中奖!');