操作access数据库时间有关问题

操作access数据库时间问题
我想把时间‘2005-3-5’增加一个月再存进数据库里，该如何写程序

[解决办法]
首先从数据库中取出时间date1
IncMonth（date1）;
最后将date1存入数据库

var
date1 : TDateTime;
begin
...
date1 := ds.FieldValue[ 'date '];
incMonth(date1);
ds.edit;
ds.FieldValue[ 'date '] := date1;
ds.post;
end;


[解决办法]
uses DateUtils;

IncMonth(Date);