四分频电路原理图:人民币小写转大写函数

来源：百度文库编辑：偶看新闻时间：2024/05/09 03:51:56

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

Orcle中小写转大写 JAVA 大写这样转化小写有什么函数吗？小写英文字母转换为大写英文字母用什么函数求在ASP小写转大写大写还是小写有什么办法让电子表格中在输入小写数据时同时生成人民币大写在OFFICE2003中，怎样把人民币小写数字转换成大写数字，并精确到角分整小写时总出大写，大写时总小写，怎么了？ vb6.0中有没有把一串字符串（大小写混合）全部改成大写或小写的函数？ 705976.00人民币怎样大写? 如何把word 大写转为小写? 求助：小写金额转换成大写金额附原始凭证的张数用大写还是小写? 哪些单词大写和小写意思不同？英语报纸标题大写还是小写？密码用大写好还是小写好啊计量单位KW是大写还是小写？计量单位KW是大写还是小写？小写打不出来,但是大写可以德语句子中什么时候大写什么时候小写输入一个字符若小写输出大写，若大写输出小写，若其他字符原样输出！人民币105000元的大写 286元人民币大写是什么人民币大写数字的问题