PARAMETERS lnMoneylnNumber = lnMoneyChinaMoney = ""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 = Int((lnNumber-lnIntNumber)*100)lcDicNumber = IIF(!EMPTY(lnDicNumber),STR(lnDicNumber,2,0),"")
N = 1FOR I = LEN(lcIntNumber) TO 1 STEP -1 FOR J = 1 TO 10 IF VAL(SUBST(lcIntNumber,I,1)) = J-1 ChinaMoney = ChinaNo(J)+ChinaNum(N)+ChinaMoney N = N+1 EXIT ENDIF ENDFORENDFORIF !EMPTY(lcDicNumber) FOR Z = 1 TO 2 FOR P = 1 TO 10 IF VAL(SUBST(lcDicNumber,Z,1)) = P-1 ChinaMoney = ChinaMoney+ChinaNo(P)+Cdw(Z) EXIT ENDIF ENDFOR ENDFORELSE ChinaMoney=ChinaMoney+"整"ENDIFRETURN ChinaMoney
