怎么样计算时间的差值？？？？高手请进

var d1,d2:Tdatetime;
d1:=date;
d2:=date;
天数=d2-d1

解决方案 »

  1.   

    　回复人：Apollo47(阿波罗)　(2001-7-10 10:39:21)  得0分 
    Abs(Trunc(date2)-Trunc(date1)); 
    就可以了
      

  2.   

    showmessage(inttostr(trunc(strtodate('2001-1-2')- strtodate('2000-3-12'))));
    我试了：结果296
      

  3.   

    kuangning的方法可以呀，可以计算出天数的
    用edit显示edit1.text:=inttostr(abs(trunc(datetimepicker1.date)-trunc(datetimepicker2.date)));
      

  4.   

    时间是可以相减的！！！
    type TDatetime  = type Double
    也就是说TDateTime其实是Double型，整数部分是天数，具体可以看帮助。你的要求楼上的几位兄弟都给你实现了！
      

  5.   

    对呀，时间确实是可以相减的！！！
    正如楼上所说的那样，Tdatetime其实是Double型的
    我也这样用过，做过毕业设计的
    datenum:=strtodate('2001-1-2')- strtodate('2000-3-12');
    如何，还有问题吗？