Question

Delphi 时间比较的问题

在线程里做时间比较

vDate: TDateTime;
vDate := StrToDateTime(Edit2.Text);
if vDate > StrToDateTime(Edit1.Text) then //这里出现错误
begin
end;

提示Operator not applicable to this operand type错误

Answer 1

看看这个例子，比较时用formatdatetime将两个日期的格式重新统一一下：
var
S,D:tdatetime;
begin
S:=Date; //当天
D:=strtodate('2004-5-19'); //以前的某一天
if formatdatetime('MMDD',s)>formatdatetime('MMDD',D) then
showmessage('Y')
else
showmessage('N'); //判断当天是不是以前某年中的某一天

Answer 2

在D7中试验是正确的，估计是不是edit1和edit2的内容输入不正确？还是您使用的delphi低于D7版.