if strtodatetime('2003-12-8')>strtodatetime('2003-12-15') then showmessage('2003-12-8>2003-12-15') else showmessage('2003-12-8<2003-12-15');
----------------------------------------------
-
var A, B : TDateTime; begin A := 一个日期; B := 另一个日期; if A > B then ShowMessage('A大啊') else ShowMessage('B大啊'); end;
----------------------------------------------
米软科技有限公司http://www.szmesoft.com