试试这个
date为指定的时间
year 为要加减的年份
month 为要加减的月份
day 为要加减的天
________________________________________
function dataadd(date,year,month,day)
integer li_year,li_month,li_day,n
string ls_date
li_year=year(date)
li_month=month(date)
li_day=day(date)
li_year=li_year+year
li_month=month+li_month
if li_month<0 then
n=abs(li_month)/12+1
li_year=li_year-n
li_month=n*12+li_month
else
n=abs(li_month)/12
li_year=li_year+n
li_month=li_month-12*n
end if
date=date(string(li_year)+"-"+string(li_month)+"-"+string(li_day))
date=RelativeDate(date, day)