请教visual Foxpro中的问题，让当前日期递增6个月，该如何实现？

Question

把日期的年+1，再减半年(1年＝365天，0.5年＝182天)
ctod(str(year(date())+1,4)+"-"+str(month(date()),2)+"-"+str(day(date()))-182

Answer 1

下面的方法通过测试，newdate 是你需要的值。
local now,num
local y,m,d,y1,m1,d1,y2,m2,d2
m.now=date()
m.num=6
m.y=year(m.now)
m.m=month(m.now)
m.d=day(m.now)
m.m1=mod(m.num+m.m,12)
m.y1=int((num+m-m1)/12)
m.m2=mod(m.num+m.m+1,12)
m.y2=int((m.num+m.m+1-m2)/12)
if y+y2>=100 and y+y2<10000
m.maxday=day(date(y+y2,m2,1)-1)
m.newdate=date(y+y1,m1,min(d,maxday))
else
=messagebox('日期超出范围',16,'')
endif