delphi中时间的比较

[qwe0828]

在delphi中用datatime类型的数据进行时间比较时我是这样处理的：
例如：var systime : datetime;
beforeopertime: datetime; --上次操作时间
begin
TimeOut := 6; -- 单位：秒
systime := now();
if systime - beforeopertime > (TimeOut/(24*60*60) then
--处理内容
end if;
end;
请问这样的处理方法是否正确？谢谢

[Devidzhang]

时间可以直接比较

[qwe0828]

可以具体一点吗？
因为我现在这样的做法有时候会出错。

[oracle_lover]

你的写法好象没什么错。不过有另一种方法可能更好些：
var
beforeopertime:LongWord;
TimeOut:LongWord;
begin
TimeOut:=6000; //设置延迟为6秒
beforeopertime:=GetTickCount;
......

if GetTickCount>(beforeopertime+TimeOut) then
......
end;