<rt id="bn8ez"></rt>
<label id="bn8ez"></label>
  • 

    • <span id="bn8ez"></span>
    

    <label id="bn8ez"><meter id="bn8ez"></meter></label>
    

    
    

    




    







												


        

    
	

    love fish大鵬一曰同風(fēng)起，扶搖直上九萬(wàn)里
    

    

    


    
	
		

    常用鏈接
    

		

    統(tǒng)計(jì)
    
	
		

    積分與排名
    


		
		
    friends
    
		
				
			
	
		
    link
    
		
				
			
	

		

    最新評(píng)論
	
    

    
	
			
		

    
		
	

    

    
	
					
	
    
		
    
			金額阿拉伯?dāng)?shù)字轉(zhuǎn)換為中文的存儲(chǔ)過(guò)程
		
    
		
		
				
						/********************************************************
    作者：(wleii165@yahoo.com)
    版本：1.0
    創(chuàng)建時(shí)間：20020227
    修改時(shí)間：
    功能：小寫(xiě)金額轉(zhuǎn)換成大寫(xiě)
    參數(shù)：n_LowerMoney?小寫(xiě)金額
    ??????????v_TransType?種類(lèi)?--?1:?directly?translate,?0:?read?it?in?words?
    輸出：大寫(xiě)金額
    ********************************************************/
    CREATE?PROCEDURE?dbo.L2U?
    (
    @n_LowerMoney?numeric(15,2),
    @v_TransType?int,
    @RET?VARCHAR(200)?output
    )
    ?AS?
    ??
    Declare?@v_LowerStr?VARCHAR(200)?--?小寫(xiě)金額?
    Declare?@v_UpperPart?VARCHAR(200)?
    Declare?@v_UpperStr?VARCHAR(200)?--?大寫(xiě)金額
    Declare?@i_I?int

    set?nocount?on

    select?@v_LowerStr?=?LTRIM(RTRIM(STR(@n_LowerMoney,20,2)))?--四舍五入為指定的精度并刪除數(shù)據(jù)左右空格

    select?@i_I?=?1
    select?@v_UpperStr?=?''

    while?(?@i_I?<=?len(@v_LowerStr))
    begin
    ??????select?@v_UpperPart?=?case?substring(@v_LowerStr,len(@v_LowerStr)?-?@i_I?+?1,1)
    ????????????????????????????WHEN??'.'?THEN??'元'
    ????????????????????????????WHEN??'0'?THEN??'零'
    ????????????????????????????WHEN??'1'?THEN??'壹'
    ????????????????????????????WHEN??'2'?THEN??'貳'
    ????????????????????????????WHEN??'3'?THEN??'叁'
    ????????????????????????????WHEN??'4'?THEN??'肆'
    ????????????????????????????WHEN??'5'?THEN??'伍'
    ????????????????????????????WHEN??'6'?THEN??'陸'
    ????????????????????????????WHEN??'7'?THEN??'柒'
    ????????????????????????????WHEN??'8'?THEN??'捌'
    ????????????????????????????WHEN??'9'?THEN??'玖'
    ????????????????????????????END
    ??????????????????????????+?
    ????????????????????????????case?@i_I
    ????????????????????????????WHEN??1??THEN??'分'
    ????????????????????????????WHEN??2??THEN??'角'
    ????????????????????????????WHEN??3??THEN??''
    ????????????????????????????WHEN??4??THEN??''
    ????????????????????????????WHEN??5??THEN??'拾'
    ????????????????????????????WHEN??6??THEN??'佰'
    ????????????????????????????WHEN??7??THEN??'仟'
    ????????????????????????????WHEN??8??THEN??'萬(wàn)'
    ????????????????????????????WHEN??9??THEN??'拾'
    ????????????????????????????WHEN??10??THEN??'佰'
    ????????????????????????????WHEN??11??THEN??'仟'
    ????????????????????????????WHEN??12??THEN??'億'
    ????????????????????????????WHEN??13??THEN??'拾'
    ????????????????????????????WHEN??14??THEN??'佰'
    ????????????????????????????WHEN??15??THEN??'仟'
    ????????????????????????????WHEN??16??THEN??'萬(wàn)'
    ????????????????????????????ELSE?''
    ????????????????????????????END
    select?@v_UpperStr?=?@v_UpperPart?+?@v_UpperStr
    select?@i_I?=?@i_I?+?1
    end

    --------print??'//v_UpperStr?='+@v_UpperStr?+'//'

    if?(?@v_TransType=0?)
    begin
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零拾','零')?
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零佰','零')?
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零仟','零')?
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零零零','零')
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零零','零')
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零角零分','整')
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零分','整')
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零角','零')
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零億零萬(wàn)零元','億元')
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'億零萬(wàn)零元','億元')
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零億零萬(wàn)','億')
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零萬(wàn)零元','萬(wàn)元')
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'萬(wàn)零元','萬(wàn)元')
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零億','億')
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零萬(wàn)','萬(wàn)')
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零元','元')
    select?@v_UpperStr?=?REPLACE(@v_UpperStr,'零零','零')
    end

    --?對(duì)壹元以下的金額的處理?
    if?(?substring(@v_UpperStr,1,1)='元'?)
    begin
    ?????select?@v_UpperStr?=?substring(@v_UpperStr,2,(len(@v_UpperStr)?-?1))
    end

    if?(substring(@v_UpperStr,1,1)=?'零')
    begin
    ?????select?@v_UpperStr?=?substring(@v_UpperStr,2,(len(@v_UpperStr)?-?1))
    end

    if?(substring(@v_UpperStr,1,1)='角')
    begin
    ?????select?@v_UpperStr?=?substring(@v_UpperStr,2,(len(@v_UpperStr)?-?1))
    end

    if?(?substring(@v_UpperStr,1,1)='分')
    begin
    ?????select?@v_UpperStr?=?substring(@v_UpperStr,2,(len(@v_UpperStr)?-?1))
    end

    if?(substring(@v_UpperStr,1,1)='整')
    begin
    ?????select?@v_UpperStr?=?'零元整'
    end

    select?@ret=@v_UpperStr

    GO

    調(diào)用過(guò)程：

    declare?@ret?varchar(200)

    exec?L2U?567983.897,1,@ret?output

    select?@ret    
						
    
						
						
				    
		    

		
    
			posted on 2007-01-16 15:46 liaojiyong 閱讀(333) 評(píng)論(0)  編輯  收藏  所屬分類(lèi): MSSQL 
		
    
	
    
	
	


	


    
	    
    




    








    

				

    




    







    
        
	



主站蜘蛛池模板：
日韩亚洲欧洲在线com91tv|
rh男男车车的车车免费网站|
亚洲精品无码久久久久sm|
在线观看成人免费|
国产成人精品无码免费看|
www成人免费视频|
亚洲AV成人精品一区二区三区|
亚洲视频一区在线|
亚洲AV无码国产丝袜在线观看
|
亚洲午夜国产精品无卡|
亚洲精品V欧洲精品V日韩精品|
免费观看国产精品|
女性自慰aⅴ片高清免费|
日韩在线永久免费播放|
爱丫爱丫影院在线观看免费|
日日摸夜夜添夜夜免费视频|
亚洲国产成人无码AV在线影院|
亚洲免费在线视频观看|
亚洲熟妇无码爱v在线观看|
亚洲专区在线视频|
亚洲三级电影网址|
亚洲五月六月丁香激情|
国产V亚洲V天堂A无码|
亚洲精品～无码抽插|
国产精品国产亚洲精品看不卡|
色噜噜亚洲精品中文字幕|
亚洲一区二区三区在线视频|
亚洲成A人片在线观看无码3D
|
亚洲福利一区二区精品秒拍|
亚洲精品综合一二三区在线|
久久久久亚洲精品无码系列|
亚洲VA中文字幕无码毛片|
亚洲AV无码成人精品区在线观看|
亚洲桃色AV无码|
亚洲成av人影院|
亚洲av午夜成人片精品网站
|
一区二区三区观看免费中文视频在线播放|
CAOPORN国产精品免费视频|
a级毛片100部免费观看|
免费国产成人α片|
中国人xxxxx69免费视频|