vfp中的莫名奇妙的问题
我创建了一个日期控件,name=rly=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无值!
各位大侠,快快救我,怎样解决啊!