(NULL)

解决方案 »

  1.   

    datetostr(date1-date2)结果是yy-mm-dd的格式,你再把它换算成日就可以了
      

  2.   

    delphi的Tdatetime的整数部分的1就代表一天。
    先将那一天用EncodeDate合成日期格式的变量old然后
    int(now)-int(old)成了
      

  3.   

    uses
     DateUtils;
    function DaysBetween(const ANow, AThen: TDateTime): Integer;描述:
    根据两个TDateTime类型的日期时间变量 ANow 和 AThen,DaysBetween函数能得到两者之间的
    天数的差距。
    DaysBetween 仅仅根据天数的不同来计算。因此,对于 1999年12月31日 下午11点59分 到
    2000年1月1日 11点58分,该函数得到的结果是 0,因为两者之间的时间差别还差 1 分钟才到
    1 天。
      

  4.   

    uses
     DateUtils;
    function DaysBetween(const ANow, AThen: TDateTime): Integer;描述:
    根据两个TDateTime类型的日期时间变量 ANow 和 AThen,DaysBetween函数能得到两者之间的
    天数的差距。
    DaysBetween 仅仅根据天数的不同来计算。因此,对于 1999年12月31日 下午11点59分 到
    2000年1月1日 11点58分,该函数得到的结果是 0,因为两者之间的时间差别还差 1 分钟才到
    1 天。都说过了.
      

  5.   

    Trunc(Date)-Trunc(过去的时间)
      

  6.   

    zhaofuquan(福全) 
    根本就没有DateUtils这个单元你看了没有?就乱说,我崩溃,没有delphi还混什么啊?