VFP中如何避免“离XX日还有X天”

VFP中如何处理“离XX日还有X天”？
如题，且需要互算。有没有直接可使用的函数？

------解决方案--------------------------------------------------------
dd2=ThisForm.txtYxq.value-date()//我这里是用今天，你可以改成某一天
If dd2 <0
ThisForm.txtzk.value=allt( "expire ")
Else
if dd2> 31
thisform.txtzk.value=allt(str(dd2)+ " days left " )
else
thisform.txtzk.value=allt(str(dd2)+ " days left,notice " )
endif
Endif