我创建了一个日期控件，name=rl
y=allt(str(thisform.rl.year))
h=allt(str(thisform.rl.month))
d=allt(str(thisform.rl.day))
rq=h+'/'+d+'/'+y
rqr=ctod(rq)
rqr=rqr-1
rqr=dtos(rqr)
ty=left(rqr,4)
td=right(rqr,2)
tk=substr(rqr,5,2)
ttd=val(td)
ttk=val(tk)
tty=val(ty)+1
ty=allt(str(tty))
if ttk<10
   tk=right(tk,1)
endif
if ttd<10
   td=right(td,1)
endif
以上是对日期的处理，主要是想实现一年后的昨天！我是个初学者，不是很懂！
ty,tk,td直接送到表单中显示！
我的问题相当的奇怪，在vfp6.0中直接运行结果正常，而连编成.exe后运行后
ty=1
tk,td无值！
各位大侠，快快救我，怎样解决啊！

我对日期处理一直都很糊涂，程序写的也很粗糙，谢谢各位大侠！

版主，快帮帮忙啊！

版主，快帮帮忙啊

版主，快帮帮忙啊

=GOMONTH(DATE(),12)-1   &&明年的今天 减一天
=GOMONTH(DATE()-1,12)   &&今天减一天 的明年
GOMONTH(日期，增加月数) 加12个月 就到了明年的今天。

[ 本帖最后由 sd_tysd 于 2009-8-31 23:08 编辑 ]

收到的鲜花

• 茵梦湖 于 2009-09-01 14:56 送鲜花  5朵   附言：这人函数不错~

谢谢你，但是不理解为什么会出现这样的结果呢？
最后因为没有法子处理，我自己做了一个，日期处理的子函数！完全撇掉了ctod()和dtoc()