|
--1、人民幣小寫金額轉(zhuǎn)大寫(第一版) ==================================================================== -- Title: 人民幣小寫金額轉(zhuǎn)大寫 -- Author: dobear Mail(MSN): dobear_0922@hotmail.com -- Environment: Vista + SQL2005 -- Date: 2008-06-12 -- Remark: dobear原創(chuàng)，轉(zhuǎn)載請注明出處，有問題請發(fā)Mail告之 -- ==================================================================== go --創(chuàng)建函數(shù) create function [dbo].[fn_getformatmoney] (@money numeric(14,2)) returns nvarchar(32) as begin declare @money_num nvarchar(20) --存儲金額的字符形式 , @money_chn nvarchar(32) --存儲金額的中文大寫形式 , @n_chn nvarchar(1), @i int --臨時變量
select @money_chn=case when @money>=0 then '' else '(負)' end , @money=abs(@money) , @money_num=stuff(str(@money, 15, 2), 13, 1, '') --加前置空格補齊到位（去掉小數(shù)點） , @i=patindex('%[1-9]%', @money_num) --找到金額最高位
while @i>=1 and @i<=14 begin set @n_chn=substring(@money_num, @i, 1) if @n_chn<>'0' or (substring(@money_num,@i+1,1)<>'0' and @i not in(4, 8, 12, 14)) --轉(zhuǎn)換阿拉伯數(shù)字為中文大寫形式 set @money_chn=@money_chn+substring('零壹貳叁肆伍陸柒捌玖', @n_chn+1, 1) if @n_chn<>'0' or @i in(4, 8, 12) --添加中文單位 set @money_chn=@money_chn+substring('仟佰拾億仟佰拾萬仟佰拾圓角分',@i,1)
set @i=@i+1 end
set @money_chn=replace(@money_chn, '億萬', '億') --當金額為x億零萬時去掉萬 if @money=0 set @money_chn='零圓整' --當金額為零時返回'零圓整' if @n_chn='0' set @money_chn=@money_chn+'整' --當金額末尾為零分時以'整'結(jié)尾
return @money_chn --返回大寫金額 end go --測試示例 select dbo.fn_getformatmoney(4545.44) --運行結(jié)果 /* 肆仟伍佰肆拾伍圓肆角肆分 */
--2、人民幣小寫金額轉(zhuǎn)大寫(第二版) /*編寫者：(博客天地www.inbaidu.com ) 創(chuàng)建時間： 功能：小寫金額轉(zhuǎn)換成大寫 參數(shù)：@LowerMoney 小寫金額加上小數(shù)點最長可以保留位 輸出：大寫金額 簡介：SQL版小寫金額轉(zhuǎn)換成大寫金額（最多可以精確到小數(shù)點四位） 注： Decimal 數(shù)據(jù)類型最多可存儲個數(shù)字 轉(zhuǎn)載：請保留以上信息,謝謝?。?！ ********************************************************/ go --創(chuàng)建函數(shù) create function [dbo].[lowertoupper](@lowermoney decimal(38,4)) returns varchar(200) --返回的大寫金額的字符 as begin declare @lowerstr varchar(50) --小寫金額 declare @upperstr varchar(200) --大寫金額 declare @uppertmp varchar(15) --大寫金額的臨時字符串 declare @i int --遞增量 declare @lowerlen int --小寫金額的總長度
set @lowerstr = @lowermoney --把decimal型的值全部賦給字符串變量注:(賦值過去的話如在字符串變量中是顯示.0000 因為小數(shù)位精確到四位,沒有的話，它會自動補) set @lowerstr = replace(@lowerstr,'.','') --把小數(shù)點替換成空字符 --精確到小數(shù)點的四位角分厘毫
set @lowerlen = len(@lowerstr) --獲取小寫金額的總長度(包括四個小數(shù)位) select @i = 1,@upperstr = '',@uppertmp = '' --設置默認初始值
while @i <= @lowerlen begin set @uppertmp = case when substring(@lowerstr,@lowerlen - @i + 1,1) = '0' and @i = 5 and (convert(int,right(@lowerstr,4)) = 0 or@lowerlen > 5) then '元' --注：如果個位為的話,并且四位小數(shù)都是或者它的長度超過(也就是超過元)，則為元 --when substring(@lowerstr,@lowerlen - @i + 1,1) = '0' then '' else + case substring(@lowerstr,@lowerlen - @i + 1,1) --看當前位是數(shù)字幾,就直接替換成漢字繁體大寫 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 when 1 then '毫' when 2 then '厘' when 3 then '分' when 4 then '角' when 5 then '元' when 9 then '萬' when 13 then '億' when 17 then '兆' when 21 then '京' when 25 then '垓' when 29 then '杼' when 33 then '穰' when 37 then '溝' --decimal型最大長度是后面的就不用再考慮了 else + case @i%4 when 2 then '拾' --拾10 14 18 22 26 30 34 38 ………… when 3 then '佰' --佰11 15 19 23 27 31 35 39 ………… when 0 then '仟' --仟12 16 20 24 28 32 36 40 ………… end end end set @upperstr = isnull(@uppertmp,'') + isnull(@upperstr,'') set @i = @i + 1 end if convert(int,right(@lowerstr,4)) = 0 set @upperstr = left(@upperstr,len(@upperstr)-8) + '整' --判斷小數(shù)位數(shù)是不是都是,是就可以取整 while patindex('%零[仟佰拾角分厘毫零]%',@upperstr) <> 0 --把零拾或零佰或零零變成一個零 begin set @upperstr = stuff(@upperstr,patindex('%零[仟佰拾角分厘毫零]%',@upperstr),2,'零') end while patindex('%[溝穰杼垓京兆億萬]零[溝穰杼垓京兆億萬]%',@upperstr) <> 0 --把零萬或零億的清空掉 begin select @upperstr = stuff(@upperstr,patindex('%[溝穰杼垓京兆億萬]零[溝穰杼垓京兆億萬]%',@upperstr)+1,2,'') end while patindex('%[仟佰拾]零[溝穰杼垓京兆億萬]%',@upperstr) <> 0 --把類似拾零萬或佰零萬或仟零萬中間的零清空掉 begin select @upperstr = stuff(@upperstr,patindex('%[仟佰拾]零[溝穰杼垓京兆億萬]%',@upperstr)+1,1,'') end if patindex('%_零[元]%',@upperstr) <> 0 --把類似拾零元或百零元中間的零清空掉 begin select @upperstr = stuff(@upperstr,patindex('%_零[元]%',@upperstr) + 1,1,'') end else if (patindex('零[元]%',@upperstr) <> 0) and (convert(int,right(@lowerstr,4)) <> 0) --判斷當前否是零元開頭，并且后面的四個小數(shù)不為 begin select @upperstr = stuff(@upperstr,patindex('零[元]%',@upperstr),2,'') --把零元清空掉 end if right(@upperstr,1) = '零' set @upperstr = left(@upperstr,len(@upperstr)-1) --如果最后一位是零也清空掉 if @upperstr = '元整' set @upperstr = '零' + @upperstr --如果只是的話，就顯示零元整 return @upperstr --返回大寫金額 end
--測試示例 Select dbo.LowerToUpper(120000000) --壹億貳仟萬元整 Select dbo.LowerToUpper(102000000) --壹億零貳佰萬元整 Select dbo.LowerToUpper(100200000) --壹億零貳拾萬元整 Select dbo.LowerToUpper(100020000) --壹億零貳萬元整 Select dbo.LowerToUpper(100002000) --壹億貳仟元整
--運行結(jié)果 /* 壹億貳仟萬元整 壹億零貳佰萬元整 壹億零貳拾萬元整 壹億零貳萬元整 壹億貳仟元整 */
|
|
|
