delphi7中有两个DateTime变量相加的方法吗？

各位专家：
    delphi7中有两个DateTime变量相加的方法吗？我没查到。
请指教! 谢谢！

解决方案 »

  1.   

    可以的
    procedure TForm1.Button2Click(Sender: TObject);
    var
      d1,d2,d3:TDateTime;
    begin
      d1:=12;
      d2:=11;
      d3:=d1-d2;
      showmessage(datetimetostr(d3));
    end;
      

  2.   

    相加一样的，TDateTime其实就是double,TDateTime = type Double;
      

  3.   

    TDateTime就是double型
    不知道你要相加做什么
      

  4.   

    uses DateUtils;IncSecond
    IncMinute
    IncHour
    IncDay
    IncMonth
    IncYear帮助里都有的。
      

  5.   

    uses DateUtils; 里面有很多日期相关的常用函数,自己看看吧
      

  6.   

    uses dateutils;var d1,d2:tdatetime;d1:=now;
    d2:=d1-dayofthemonth(d1)//算出当前月的第一天日期
      

  7.   

    谢谢各位我！告诉我：TDateTime就是double型 。问题就解决了！
        相加目的：我有一个以分为单位的时间值（比如3657），
    除以1440（一天的分数）变成以日为单位的double型数，
    加到DayeTime变量vrq（也是以日为单位的double型数）,这样就
    得到一个推算日期：
        vrq:=vrq+3657/1440;
    实现了我的目的。
        所以我非常感谢各位老师费心关照！！无奈我能给的分数太少，
    请原谅。