IncMonth(EncodeDate(2002, 3, 18), 3);

解决方案 »

  1.   

    或者用
    var
      year,month,day : word;
    year := 2002;
    month := 3 + 3;
    day := 8;EncodeDate(year,month,day)也可以的
      

  2.   

    chechy(我爱洁洁)日期可以是  变量吗???
    还有可不可以加进时间
      

  3.   

    cobi(我是小新) 这样是可以,但我的日期是动态的,我要得到现在的时间来减去3个月
      

  4.   

    IncMonth(EncodeDate(2002, 3, 18), -3)
      

  5.   

    可以是任何日期变量。比如比现在多3个月
    var
     a: TDateTime;a := IncMonth(Now, 3);
      

  6.   

    To Chechy
    为什么有incMonth而没有incYear,incDay,incHour等函数?
      

  7.   

    Day不需要,直接+1,-1就可以了。
    IncYear,IncHour都有,不过需要uses DateUtils;
      

  8.   

    TDatetime类型是个浮点型,其整数部分为天数,是自1899年12月30日12:00:00am起到现在的天数;小数部分是把24小时平分的,就是说0.5表示的是12小时。