delphi中用DBedit获取数据库中date类型时间，如何和系统时间比较获得差值

Question

delphi中用DBedit获取数据库中date类型时间，如何和系统时间比较获得差值天数？大神们求指教哇

Answer 1

前题，数据库的相关表，已打开：[code=dellphi]
var D:TDateTime;
    L:integer;
begin
  D:=ClientDataSet1.FieldByName('时间').AsDateTime;
//或D:=ADOQuery1.FieldByName('时间').AsDateTime;
  L:=Trunc(Now-D);
  if L>0 then ShowMessage('已过'+IntToStr(L)+'天！')
         else ShowMessage('还差'+IntToStr(L)+'天！'); 
end;
[/code]

Answer 2

前题，数据库的相关表，已打开：
var D:TDateTime;
    L:integer;
begin
  D:=ClientDataSet1.FieldByName('时间').AsDateTime;
//或D:=ADOQuery1.FieldByName('时间').AsDateTime;
  L:=Trunc(Now-D);
  if L>0 then ShowMessage('已过'+IntToStr(L)+'天！')
         else ShowMessage('还差'+IntToStr(L)+'天！'); 
end;

Answer 3

MinutesBetween,自带函数

Answer 4

uses DateUtils;
DaysBetween(Now(), date1)

Answer 5

DaysBetween(Now(), date1)
仅地二者之间差几天，不能判别未到，过期值。

Answer 6

相减取整trunc(now-date1)