delphi的日期问题

请问如何让dxDateEdit控件的日期加上几年? var yea,non,dat:word;
begin
 DecodeDate(dxDateEdit6.Date,yea,non,dat);
 dxDateEdit6.Date:=strtodate(yea+wordtostr(copy(dxEdit3.Text,1,1))+'-12-31');
end;
以上代码出错

解决方案 »

  1.   

    var yea,non,dat:word;
    begin
     DecodeDate(dxDateEdit6.Date,yea,non,dat);
     dxDateEdit6.Date := EncodeDate(yea + 5,non,dat); //加5年
    end;
      

  2.   

    uses
    DateUtils;function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer = 1): TDateTime;
      

  3.   

    dxDateEdit6.Date:=incyear(dxDateEdit6.Date,6);
      

  4.   

    Returns a date shifted by a specified number of years.Unit
    DateUtilsfunction IncYear(const AValue: TDateTime; const ANumberOfYears: Integer = 1): TDateTime;dxDateEdit6.Date := IncYear(dxDateEdit6.Date,5);//加5年