，输入小写金额，输出大写金额！

最新推荐文章于 2022-07-18 11:26:45 发布

thzgh

最新推荐文章于 2022-07-18 11:26:45 发布

阅读量2k

点赞数

分类专栏： c# 文章标签： integer output function object go 存储

本文链接：https://blog.csdn.net/thzgh/article/details/4031463

版权

c# 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

第一种方法

编写者：(博客天地 www.inbaidu.com )
创建时间：20071023
功能：小写金额转换成大写
参数：@LowerMoney 小写金额加上小数点最长可以保留38位
输出：大写金额
简介：SQL版小写金额转换成大写金额（最多可以精确到小数点四位）
注： Decimal 数据类型最多可存储 38 个数字
转载：请保留以上信息,谢谢！！！
********************************************************/

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

Create Function 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型的值全部赋给字符串变量注:(赋值过去的话如8 在字符串变量中是显示8.0000 因为小数位精确到四位,没有的话，它会自动补0)
Set @LowerStr = Replace(@LowerStr,'.','') --把小数点替换成空字符 --精确到小数点的四位角分厘毫

Set @LowerLen = Len(@LowerStr) --获取小写金额的总长度(包括四个小数位)
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 '元' --注：如果个位为0的话,并且四位小数都是0或者它的长度超过5(也就是超过元)，则为元
--When SubString(@LowerStr,@LowerLen - @i + 1,1) = '0' Then ''
Else
+ Case SubString(@LowerStr,@LowerLen - @i + 1,1) --看当前位是数字几,就直接替换成汉字繁体大写
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型最大长度是38 后面的就不用再考虑了
Else
+ Case @i%4
When 2 Then '拾' --拾 6 10 14 18 22 26 30 34 38 …………
When 3 Then '佰' --佰 7 11 15 19 23 27 31 35 39 …………
When 0 Then '仟' --仟 8 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) + '整' --判断小数位数是不是都是0,是0就可以取整
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) --判断当前否是零元开头，并且后面的四个小数不为0
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 --如果只是0的话，就显示零元整
Return @UpperStr --返回大写金额
End

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

--调用方法
Select dbo.LowerToUpper(120000000) --壹亿贰仟萬元整
Select dbo.LowerToUpper(102000000) --壹亿零贰佰萬元整
Select dbo.LowerToUpper(100200000) --壹亿零贰拾萬元整
Select dbo.LowerToUpper(100020000) --壹亿零贰萬元整
Select dbo.LowerToUpper(100002000) --壹亿贰仟元整
-----------------------------------------------------------------------------------------

第二种方法

金额有一定的限制,不能是壹仟万亿以上的数字。

-- drop proc ConvertToUpperCase
/* declare @a varchar(50) --@a为欲转换的大写金额
exec ConvertToUpperCase 1000000,@a output --将123456789.56转换成大写金额
select @a --在QA中查看效果
*/
/* declare @a varchar(50) --@a为欲转换的大写金额
exec ConvertToUpperCase 1056031010000,@a output
select @a */

if exists ( select * from sysobjects where objectproperty ( object_id ( ' ConvertToUpperCase ' ), ' IsProcedure ' ) = 1 )
drop procedure ConvertToUpperCase
GO

create procedure ConvertToUpperCase
( @mExpense Money ,
@sRetUpperMoney varchar ( 50 ) OutPut)
as
begin
declare @sExpense varchar ( 20 ), @sLittle varchar ( 4 ), @sFixed varchar ( 15 )
declare @nDot Integer , @nLenAll Integer , @sUpperMoney varchar ( 30 ), @nStep Integer
declare @cChar char ( 1 ), @sUpperNumbers varchar ( 30 ), @sNumber char ( 2 ), @sTemp varchar ( 50 )
declare @sZero char ( 2 ), @nIsZeroLast Integer , @sth varchar ( 10 ), @nFixed Integer
declare @sMoney char ( 2 )
if @mExpense = 0
begin
select @sRetUpperMoney = ' 零元 '
return
end
if @mExpense < 0
begin
select @sMoney = ' 负 '
select @mExpense = abs ( @mExpense )
end
else select @sMoney = ''

select @sUpperMoney = ' 佰拾万仟佰拾亿仟佰拾万仟佰拾元 ' -- 加大范围,这里设计len(@sUpperMoney)<=15,再大这种算法就不适合了。
select @sUpperNumbers = ' 玖捌柒陆伍肆叁贰壹零 '
select @sZero = ' 零 '
select @sExpense = convert ( varchar ( 20 ), @mExpense )

select @nDot = CharIndex ( ' . ' , @sExpense )
select @nLenAll = Len ( @sExpense )

if @nDot > 0
begin
select @sFixed = substring ( @sExpense , 1 , @nDot - 1 )
select @sLittle = substring ( @sExpense , @nDot + 1 , @nLenAll - @nDot )
end
else
select @sFixed = @sExpense

select @nFixed = Len ( @sFixed )
select @nStep = @nFixed

select @sTemp = ''
select @nIsZeroLast = 0

if @sFixed <> ' 0 '
while @nStep > 0
begin -- while @nStep > 0

select @cChar = substring ( @sFixed , @nStep , 1 )
select @sNumber = substring ( @sUpperNumbers , 10 - convert ( int , @cChar ), 1 )
select @sth = substring ( @sUpperMoney , len ( @sUpperMoney ) - ( Len ( @sFixed ) - @nStep ), 1 )

if @cChar <> ' 0 '
begin -- if @cChar <> '0'
if @nIsZeroLast = 0
select @sTemp = @sNumber + @sth + @sTemp
if @nIsZeroLast = 1
begin
select @sTemp = @sNumber + @sth + @sZero + @sTemp
select @nIsZeroLast = 0
end
if @nIsZeroLast = 2
begin
select @sTemp = @sNumber + @sth + @sTemp
select @nIsZeroLast = 0
end
end -- if @cChar <> '0'

else -- @cChar = '0'

begin
if @nIsZeroLast <> 2
begin -- @nIsZeroLast <> 2
if ( @sth = ' 万 ' ) or ( @sth = ' 亿 ' ) or ( @sth = ' 元 ' )
begin
if @nIsZeroLast = 1
begin
select @sTemp = @sth + @sZero + @sTemp
if substring ( @sTemp , 1 , 3 ) = ' 亿万零 ' -- 修改
select @sTemp = stuff ( @sTemp , 1 , 3 , ' 亿零 ' )
if substring ( @sTemp , 1 , 2 ) = ' 万零 ' and @nStep < 4 -- 修改
select @sTemp = stuff ( @sTemp , 1 , 2 , ' 零 ' )
select @nIsZeroLast = 2
end
else
begin
select @sTemp = @sth + @sTemp
if substring ( @sTemp , 1 , 2 ) = ' 万元 ' and @nStep > 4 -- 修改
select @sTemp = stuff ( @sTemp , 1 , 2 , ' 元 ' )
if substring ( @sTemp , 1 , 3 ) = ' 亿万元 '
select @sTemp = stuff ( @sTemp , 1 , 3 , ' 亿元 ' )
select @nIsZeroLast = 2
end
end

else

select @nIsZeroLast = 1
end

else -- @nIsZeroLast = 2

begin
if ( @sth = ' 仟 ' )
select @nIsZeroLast = 0
end
end -- @nIsZeroLast <> 2

select @nStep = @nStep - 1

end -- while @nStep > 0

declare @sTempLittle varchar ( 10 ), @sFirst char ( 1 ), @sSecond char ( 1 )
select @sFirst = '' , @sSecond = ''
if Len ( @sLittle ) = 2
begin
select @sFirst = substring ( @sLittle , 1 , 1 ), @sSecond = substring ( @sLittle , 2 , 1 )
end

if Len ( @sLittle ) = 1
begin
select @sFirst = substring ( @sLittle , 1 , 1 )
end

select @sTempLittle = ''
if ( @sFirst <> '' ) and ( @sFirst <> ' 0 ' )
begin
select @sNumber = substring ( @sUpperNumbers , 10 - convert ( int , @sFirst ), 1 )
select @sTempLittle = @sTempLittle + @sNumber + ' 角 '
end

if ( @sSecond <> '' ) and ( @sSecond <> ' 0 ' )
begin
select @sNumber = substring ( @sUpperNumbers , 10 - convert ( int , @sSecond ), 1 )
select @sTempLittle = @sTempLittle + @sNumber + ' 分 '
end
select @sRetUpperMoney = @sMoney + @sTemp + @sTempLittle
end

-----------------------------------------------------------------------

第三种测试完成

-- ====================================================================
-- Title: 人民币小写金额转大写
-- Author: dobear        Mail(MSN): dobear_0922@hotmail.com
-- Environment: Vista + SQL2005
-- Date: 2008-06-12
-- Remark: dobear原创，转载请注明出处，有问题请发Mail告之
-- ====================================================================
IF OBJECT_ID ( ' fn_GetFormatMoney ' , N ' FN ' ) IS NOT NULL
    DROP FUNCTION fn_GetFormatMoney

GO
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 , '' )    -- 加前置空格补齐到14位（去掉小数点）
        , @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 ))    -- 转换阿拉伯数字为中文大写形式
            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 + ' 整 '     -- 当金额末尾为零分时以'整'结尾

    RETURN @money_chn     -- 返回大写金额

END
GO

功能测试：

SQL code

    
    
     
     GO
     
     

     
     CREATE
     
      
     
     TABLE
     
      tb_money(id 
     
     INT
     
      
     
     IDENTITY
     
     (
     
     1
     
     ,
     
     1
     
     ) 
     
     PRIMARY
     
      
     
     KEY
     
     , m NUMERIC(
     
     14
     
     ,
     
     2
     
     ))


     
     INSERT
     
      tb_money 
     
     SELECT
     
      
     
     0
     
     

     
     UNION
     
      
     
     ALL
     
      
     
     SELECT
     
      
     
     0.01
     
     

     
     UNION
     
      
     
     ALL
     
      
     
     SELECT
     
      
     
     0.2
     
     

     
     UNION
     
      
     
     ALL
     
      
     
     SELECT
     
      
     
     0.35
     
     

     
     UNION
     
      
     
     ALL
     
      
     
     SELECT
     
      
     
     230
     
     

     
     UNION
     
      
     
     ALL
     
      
     
     SELECT
     
      
     
     10000.2
     
     

     
     UNION
     
      
     
     ALL
     
      
     
     SELECT
     
      
     
     10020.3
     
     

     
     UNION
     
      
     
     ALL
     
      
     
     SELECT
     
      
     
     10300.45
     
     

     
     UNION
     
      
     
     ALL
     
      
     
     SELECT
     
      
     
     -
     
     10304.07
     
     

     
     UNION
     
      
     
     ALL
     
      
     
     SELECT
     
      
     
     30210020
     
     

     
     UNION
     
      
     
     ALL
     
      
     
     SELECT
     
      
     
     -
     
     3020000
     
     

     
     UNION
     
      
     
     ALL
     
      
     
     SELECT
     
      
     
     3020400
     
     

     
     UNION
     
      
     
     ALL
     
      
     
     SELECT
     
      
     
     302040000000
     
     

     
     UNION
     
      
     
     ALL
     
      
     
     SELECT
     
      
     
     302004000000.1
     
     


     
     select
     
      m 
     
     as
     
      
     
     '
     
     小写金额
     
     '
     
     , dbo.fn_GetFormatMoney(m) 
     
     as
     
      
     
     '
     
     大写金额
     
     '
     
      
     
     from
     
      tb_money

     
     /*
     
     
小写金额                                    大写金额
--------------------------------------- --------------------------------
0.00                                    零圆整
0.01                                    壹分
0.20                                    贰角整
0.35                                    叁角伍分
230.00                                  贰佰叁拾圆整
10000.20                                壹万圆贰角整
10020.30                                壹万零贰拾圆叁角整
10300.45                                壹万零叁佰圆肆角伍分
-10304.07                               (负)壹万零叁佰零肆圆零柒分
30210020.00                             叁仟零贰拾壹万零贰拾圆整
-3020000.00                             (负)叁佰零贰万圆整
3020400.00                              叁佰零贰万零肆佰圆整
302040000000.00                         叁仟零贰拾亿肆仟万圆整
302004000000.10                         叁仟零贰拾亿零肆佰万圆壹角整

(14 row(s) affected)

     
     */
     
     


     
     DROP
     
      
     
     TABLE
     
      tb_money

thzgh

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
，输入小写金额，输出大写金额！

第一种方法编写者：(博客天地 www.inbaidu.com ) 创建时间：20071023 功能：小写金额转换成大写参数：@LowerMoney 小写金额加上小数点最长可以保留38位输出：大写金额简介：SQL版小写金额转换成大写金额（最多可以精确到小数点四位）注： Decimal 数据类型最多可存储 38 个数字转载：请保留以上信息,谢谢！！！ *******
复制链接

扫一扫

专栏目录