数字转换为大写(vfp)

PARAMETERS lnMoney
lnNumber = lnMoney
ChinaMoney = ""
DIME ChinaNo(10)
ChinaNo(1) = "零"
ChinaNo(2) = "壹"
ChinaNo(3) = "贰"
ChinaNo(4) = "叁"
ChinaNo(5) = "肆"
ChinaNo(6) = "伍"
ChinaNo(7) = "陆"
ChinaNo(8) = "柒"
ChinaNo(9) = "捌"
ChinaNo(10) = "玖"
DIME Cdw(2)
Cdw(1)="角"
Cdw(2)="分"
DIME ChinaNum(10)
ChinaNum(1) = "元"
ChinaNum(2) = "拾"
ChinaNum(3) = "佰"
ChinaNum(4) = "仟"
ChinaNum(5) = "万"
ChinaNum(6) = "拾"
ChinaNum(7) = "佰"
ChinaNum(8) = "仟"
ChinaNum(9) = "亿"
ChinaNum(10) = "拾"
lnIntNumber = INT(lnNumber)
lcIntNumber = ALLTRIM(STR(lnIntNumber,10,0))
lnDicNumber