vfp中,输入自己的出生日期,求年龄（保留一位小数）用程序做?

网友回答

func GetAge
Lparameters LcBirth
lcnow=date()
intyear=year(lcnow)-year(LcBirth)
intMonth=month(lcnow)-month(LcBirth)
intday=day(lcnow)-day(LcBirth)
RetrunValue=intyear+intMonth/12+intday/365 &&&intday简单的除365应该也可以保证（一位小数）的精度了
return round(RetrunValue,1)
endfunc
&&谢谢 z_wuji INTYEAR不用再乘以12
======以下答案可供参考======
供参考答案1:
年龄也有小数吗？
楼上的写得太专业了，不知道是vfp哪个版本的。
year() - year(出生日期) 就是你的年龄了，
供参考答案2:
一楼的思想是对的，年龄是7.9岁和7.1岁相差还算是有点大的。不过公式里有个小小的错误，INTYEAR不用再乘以12了。