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

題目：

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