人民币小写转大写函数

**********************************************************
* 函数名称：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