怎么给datetimepicker控件加上指定的月数，正确的显示日期，

[pcxxx]

怎么给datetimepicker控件加上指定的月数，正确的显示日期，该控件有没有这个功能呀，怎么实现，要自己手动实现吗，如果自己手动实现该怎么做呢，自己弄了半天也不行呀

[madyak]

procedure TForm1.FormCreate(Sender: TObject);
begin
DateTimePicker1.DateTime:=Now;
end;

[madyak]

procedure TForm1.Button1Click(Sender: TObject);
begin
DateTimePicker2.DateTime:=VarToDateTime('1996-01-01')
end;

[老之]

procedure TForm1.Button1Click(Sender: TObject);
var year,month,day:word;
begin
DecodeDate(DateTimePicker1.Date,year,month,day);
if month=12 then
begin
year:=year+1;
month:=0;
end;
DateTimePicker1.Date:=EncodeDate(year,month+1,day); //月数加1
end;

[pcxxx]

不是那么简单吧，比如我想加7或26个月（这个月数由用户输入的），我想还应该考虑天数的问题，有月30，有月31，等呀，有什么比较简单的方法吗

[madyak]

function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;
function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime;