一个取出数字某一位转化为大写的函数

 利用报表工具打印发票的时候常常遇到发票格式已经固定好，如 ×万×千×百×拾×元×角×分(其中×是要填写数字大写的地方)。

多年前写了个函数来解决这个问题，说明如下

[L2U](@total decimal(18,2),@rindex int)
其中@total要转化的数字，@rindex是需要取得大写数字相对小数点的位数，
小数点左边是正数，右边是负数。

结果如下：

select dbo.L2U(120.5,1)
零
select dbo.L2U(120.5,2)
贰
select dbo.L2U(120.5,3)
壹
select dbo.L2U(120.5,-1)
伍
select dbo.L2U(120.5,-2)
零
select dbo.L2U(120.5,0)
.

左边没有数字的第一位显示人民币符号
select dbo.L2U(120.5,4)
￥

其他位无数字返回空字符。

 

 

 1 Create Function [dbo].[L2U](@total decimal(18,2),@rindex int)

 2     returns nvarchar(1)

 3 as

 4 

 5 begin

 6 

 7 declare @i int

 8 declare @tmp nvarchar(20)

 9 declare @n nvarchar(1)

 

 

 

 if(@rindex =0)

     select @n='.'

 else

 begin    

 

 select @i=1

 select @tmp=''

 while(@i<=len(cast(@total as varchar(100))))

 begin

     select @tmp = @tmp + case substring(cast(@total as varchar(100)),@i,1) 

                         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 '玖'

                         when '0' then '零'

                         when '.' then '.'

                         else '' end

     select     @i = @i + 1                

 end

 

 select @tmp = '￥' + @tmp

  

 if(@rindex>0)

     select @tmp=substring(cast(@tmp as varchar(100)),1,patindex('%.%',cast(@tmp as varchar(100)))-1)

 

 else    

     select @tmp=substring(cast(@tmp as varchar(100)),patindex('%.%',cast(@tmp as varchar(100)))+1,

                 len(cast(@tmp as varchar(100)))-patindex('%.%',cast(@tmp as varchar(100))))

 if(@rindex>0)

     select @n= substring(@tmp,len(@tmp)-@rindex +1  ,1)

 else

     select @n= substring(@tmp,abs(@rindex),1)     

 end

 return @n

 end