| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1392 人关注过本帖
标题:求助:金额由小写转换为大写如何实现!
只看楼主 加入收藏
betterman
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2007-10-8
收藏
 问题点数:0 回复次数:4 
求助:金额由小写转换为大写如何实现!
金额由小写转换为大写如何实现?
比如:100100012.70  自动变成:壹亿零壹拾万零壹拾贰元柒角整
搜索更多相关主题的帖子: 小写 金额 自动 
2008-06-10 22:06
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
本论坛上就有实例,自己查找一下。

两人行已有我师……
2008-06-10 22:32
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
这是我原来从论坛中看到的,仅供参考!
1、编写如下函数。该函数的返回值能够舍去数字之间的零,比较准确,符合会计准则,比较适合打印银行存单等。
PARAMETERS nAmount
PRIVATE ALL LIKE L_*
L_S1='零壹贰叁肆伍陆柒捌玖'
L_S2='亿仟佰拾万仟佰拾亿仟佰拾万仟佰拾元角分'
nAmount=LTRIM(STR(nAmount*100,LEN(L_S2)/2))
L_LEN=LEN(nAmount)
L_SS2=RIGH(L_S2,2*L_LEN)
L_DX=''
L_0JS=0 &&连续零的个数
L_N=0
DO WHILE L_N<L_LEN
    L_N=L_N+1
    L_SZ=SUBSTR(nAmount,L_N,1)
    L_SZ=SUBSTR(L_S1,2*VAL(L_SZ)+1,2)
    L_DW=SUBSTR(L_SS2,2*L_N-1,2)
    IF L_SZ='零'
        L_SZ=''
        DO CASE
            CASE L_DW$'亿元'
            CASE L_DW='万'
                IF RIGH(L_DX,2)='亿'
                    L_DW=''
                ENDIF
            OTHERWISE
                L_DW=''
        ENDCASE
        L_0JS=L_0JS+1
    ELSE
        IF L_0JS>0
            L_SZ='零'+L_SZ
        ENDIF
        L_0JS=0
    ENDIF
    L_DX=L_DX+L_SZ+L_DW
ENDDO
L_DX=L_DX+IIF(RIGH(nAmount,1)='0','整','')
RETURN L_DX

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2008-06-12 14:59
caohong
Rank: 1
来 自:河南焦作
等 级:新手上路
帖 子:18
专家分:0
注 册:2008-6-13
收藏
得分:0 
支持
支持 支持
2008-06-13 15:21
hnjyjwas
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2009-8-11
收藏
得分:0 
FUNCTION RMBZH(nRMB)
PRIVATE dx,aa,i,nRMB
dx=IIF(nRMB<0,'负','')
aa=ROUND(ABS(nRMB)*100,0)
FOR i=LEN(ALLTRIM(STR(aa,15)))-1 to 0 STEP -1
   dx=dx+SUBS('零壹贰叁肆伍陆柒捌玖',INT(ROUND(aa/10^i,10))*2+1,2)+SUBS('分角元拾佰仟万拾佰仟亿拾佰仟万',i*2+1,2)
   aa=MOD(aa,10^i)
endf
dx=STRTRAN(STRTRAN(STRTRAN(STRTRAN(STRTRAN(dx,'零仟','零'),'零佰','零'),'零拾','零'),'零角','零'),'零分','整')
dx=STRTRAN(STRTRAN(STRTRAN(STRTRAN(STRTRAN(dx,'零零','零'),'零零','零'),'零亿','亿'),'零万','万'),'零元','元')
RETURN IIF(dx='整','零元整',STRTRAN(STRTRAN(dx,'亿万','亿'),'零整','整'))
endfun
2009-11-11 17:16
快速回复:求助:金额由小写转换为大写如何实现!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012280 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved