请问两个日期相差的函数是？

直接比较。因为日期类型是浮点数。
var
  a1, a2, diff:TDateTime;  diff := a1 - a2;
  if (a1 > a2) then

解决方案 »

  1.   

    定义两个string变量，将时间转换成String给两个函数，再相减、还原成时间，也可以呀。不过用楼上的就可以了，我只是说另一种方法。
      

  2.   

    但在SQL语句中如果你不用参数比较就是错误的因为如果你直接将SQL语句统统写成一个字符串那么这种比较方法就不对[email protected]
    http://nizvoo.myrice.com
      

  3.   

    不过我一般还是把浮点转换成整数来运算。
    diff:=floattoint(a1)-floattoint(a2);
      

  4.   

    我同意chechy(chechy)的意见，因为TDateTime是从实数继承下来的。直接比较即可！