TDate和TDateTime

写一个比较日期的函数，以为日期类型就是TDate，可是编译时老提示出错，把TDate改为TDatetime后问题解决！

function  CheckCloseAccount(tDate: TDatetime;
   var  szDate:  string ): Boolean;
var
  szDateK:  string ;
begin
  szDateK : =  GetSysValue( ' CloseAccountCN ' );
   if  szDateK  <>   ''   then
   begin
     if  tDate  <=  StrToDate(szDateK)  then
      Result : =  False
     else
      Result : =  True;
   end
   else
    Result : =  True;

  szDate : =  szDateK;
end ;

转载于:https://www.cnblogs.com/Handll/archive/2009/07/27/1531938.html