delphi 日期相减 比较大小 过期时间函数

var
dt1: TDate;
dt2: TDate;
begin
//比较日期,//www.delphitop.com 花了5元购买的代码

dt1 := StrToDate('2010/7/1');   //winxp  时间格式为 2011-8-4  win7下则是 2011/8/4
dt2 := StrToDate('2011/8/12');

if dt2>=dt1 then
begin
showmessage('今天距大运会开幕还有 ' + inttostr(DaysBetween(dt1, dt2)) + '天. ');
end;
if dt2begin
showmessage('今天距大运会开幕还有 ' + inttostr(DaysBetween(dt1, dt2) * -1) + '天. ');
end;