2,495
社区成员
发帖
与我相关
我的任务
分享
uses DateUtils;
DaysBetween(Now(), date1)
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;