| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1421 人关注过本帖
标题:!!!!!!!急救:怎样把金额转换成中文大写
只看楼主 加入收藏
zzyymxt
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2008-5-8
收藏
 问题点数:0 回复次数:4 
!!!!!!!急救:怎样把金额转换成中文大写
各位大哥大姐帮帮忙!问
如果要求将一组金额以中文大写形式输出,要怎么做?就是平常写发票的那种。。。(例如:26734.86显示输出 贰万陆千柒百叁拾肆元捌角陆分)
搜索更多相关主题的帖子: 金额 中文 急救 发票 大姐 
2008-05-08 16:26
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
这个问题,简单搜索即可得到答案。据说最省10句。其实可以更短。

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2008-05-08 18:22
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
最近问这个问题的人挺多的,而且都是刚注册的。
看看“简单的编程题,请大家帮帮忙,急啊!!!!”这个帖子,也是这个问题。
同学们啊!!!!

[[it] 本帖最后由 啸凡 于 2008-5-8 22:31 编辑 [/it]]

两人行已有我师……
2008-05-08 22:28
cz_zrh
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-11-30
收藏
得分:0 
找到的
Function  StoB
parameters Text1
JE="????·??????é????°???"
cDW="????°??°?ò??°??°????°??°?ò??°??°????·?"
newString=alltrim(str(text1*100,19))     &&??????????·???×??ó?¤????19??????????
newStringLong=Len(newString)    &&????×?·??¤??
newDW=right(cDW,newStringLong*2)     &&??????×?·????ù??????????????

Num0=0  &&????????????
DXJE=""
for m=1 to newStringLong
    xZF=substr(NewString,m,1)     &&????????×?·?
    dZF=Substr(JE,2*val(xZF)+1,2)     &&?????ó??×?·?
    DW=substr(NewDW,2*M-1,2)     &&????????
    if dZF="??"
        dZF=""
        do case
        case DW $"????"     &&?????????ò??
        Case DW="?ò"
            if right(DW,2)="??"
                dZF=""
            endif
        otherwise
            DW=""
        endcase
        Num0=Num0+1
    else
        if Num0>0
            dZF="??"+dZF
        endif
        Num0=0
    endif
        
    Dxje=Dxje+dZF+DW
endfor
Dxje=Dxje+iif(right(NewString,1)="0","??","")
Return Dxje
2008-05-09 14:12
cz_zrh
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-11-30
收藏
得分:0 
重发
Function  StoB             
parameters Text1            
JE="零壹贰叁肆伍陆柒捌玖"            
cDW="亿仟佰拾万仟佰拾亿仟佰拾万仟佰拾元角分"            
newString=alltrim(str(text1*100,19))     &&去掉小数部分,最大长度为19位既亿亿位            
newStringLong=Len(newString)    &&取得字符长度            
newDW=right(cDW,newStringLong*2)     &&取出此字符串所有能用到的单位            
            
Num0=0  &&记录零的个数            
DXJE=""            
for m=1 to newStringLong            
    xZF=substr(NewString,m,1)     &&取出小写字符        
    dZF=Substr(JE,2*val(xZF)+1,2)     &&取出大写字符        
    DW=substr(NewDW,2*M-1,2)     &&取出单位        
    if dZF="零"        
        dZF=""    
        do case    
        case DW $"亿元"     &&如果为亿或元    
        Case DW="万"    
            if right(DW,2)="亿"    
                dZF=""
            endif    
        otherwise     
            DW=""
        endcase    
        Num0=Num0+1    
    else        
        if Num0>0    
            dZF="零"+dZF
        endif    
        Num0=0    
    endif        
            
    Dxje=Dxje+dZF+DW        
endfor            
Dxje=Dxje+iif(right(NewString,1)="0","整","")            
Return Dxje
2008-05-09 14:15
快速回复:!!!!!!!急救:怎样把金额转换成中文大写
数据加载中...
 
   



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

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