然后算出两个时间的差值,并且把它折算成月、年。如2003年6月1日减去2003年4月12日的值是49天,换算到月是1又30分之19。

解决方案 »

  1.   

    datetostr(datetimepicker2.date)-datetostr(datetimepicker1.date)的值不对。
      

  2.   

    用encodedate  decodedate函数 先分解,再计算
      

  3.   

    楼主,你只要记住一个问题:
    时间类型在 delphi 中是以个 doulbe类型
    可以直接加减
    整数部分代表天数
    小数部分代表一天中的时间
    你用小数部分×24 =小时数
    在×60 =分钟数
      

  4.   

    var
      d1,d2:TDateTime;
      Year, Month, Day,
      Year, Month, Day, Hour, Min, Sec, MSec: Word;
    DecodeDate(d2-d1, Year, Month, Day);
    DecodeTime(d2-d1, Hour, Min, Sec, MSec)
    在计算机中,时间是一个real型的数据,是从某一天到现在的距离