求助！！关于查询时间的

有很多种方法可以实现？可以先用CompareDateTime函数比较。也可用下面的代码比较时间的大小：
procedure TForm1.Button1Click(Sender: TObject);
var
t1,t2:Tdate;
t:integer;
begin
t1:=now;
t2:=datetimepicker1.Date;
t:=round(t1-t2);
showmessage(inttostr(t));

end;
因为时间其实是一个double类型的数据。可以直接相减。--------------------------

[此贴子已经被作者于2006-4-5 15:06:44编辑过]