********************************************************** * 函数名称:RMB * 函数功能:人民币小写转大写 ********************************************************** PARAMETERS NUM &&最大数值9999999999999.99(含小数点16位) IF VARTYPE(NUM)!="N" MESSAGEBOX("非数值型数据",48,"系统信息") RETURN ENDIF A1='零壹贰叁肆伍陆柒捌玖' A2='万仟佰拾亿仟佰拾万仟佰拾元角分' NUM=ALLTRIM(STR(NUM*100,15)) && 不含小数点 A3=RIGHT(A2,2*LEN(NUM)) DX='' JS=0 &&连续零的个数 FOR I=1 TO LEN(NUM) A4=SUBSTR(A1,2*VAL(SUBSTR(NUM,I,1))+1,2) A5=SUBSTR(A3,2*I-1,2) IF A4='零' A4='' IF A5$'亿元' ELSE A5='' ENDIF JS=JS+1 ELSE IF JS>0 AND !(RIGHT(DX,2)+A5)$A3 A4='零'+A4 ENDIF JS=0 ENDIF DX=DX+A4+A5 ENDFOR DX=DX+IIF(RIGH(NUM,1)='0','整','') RETURN DX |
|