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 dt2<dt1 then begin showmessage('今天距大运会开幕还有 ' + inttostr(DaysBetween(dt1, dt2) * -1) + '天. '); end;