小写金额转换成大写(sql server)

if exists ( select * from dbo.sysobjects where id = object_id (N ' [dbo].[L2U] ' ) and xtype in (N ' FN ' , N ' IF ' , N ' TF ' ))
drop function [ dbo ] . [ L2U ] 
GO 

CREATE FUNCTION dbo.L2U( @n_LowerMoney numeric( 15 , 2 ), @v_TransType int ) 
RETURNS VARCHAR ( 200 ) AS 
BEGIN 
Declare @v_LowerStr VARCHAR ( 200 ) -- 小写金额 
Declare @v_UpperPart VARCHAR ( 200 ) 
Declare @v_UpperStr VARCHAR ( 200 ) -- 大写金额 
Declare @i_I int 

set @v_LowerStr = LTRIM ( RTRIM ( ROUND ( @n_LowerMoney , 2 ))) -- 四舍五入为指定的精度并删除数据左右空格 
set @i_I = 1 
set @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 ' 万 ' 
WHEN 9 THEN ' 拾 ' 
WHEN 10 THEN ' 佰 ' 
WHEN 11 THEN ' 仟 ' 
WHEN 12 THEN ' 亿 ' 
WHEN 13 THEN ' 拾 ' 
WHEN 14 THEN ' 佰 ' 
WHEN 15 THEN ' 仟 ' 
WHEN 16 THEN ' 万 ' 
ELSE '' 
END 
set @v_UpperStr = @v_UpperPart + @v_UpperStr 
set @i_I = @i_I + 1 
end 

if ( 0 = @v_TransType )
begin 
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零拾 ' , ' 零 ' ) 
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零佰 ' , ' 零 ' ) 
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零仟 ' , ' 零 ' ) 
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零零零 ' , ' 零 ' )
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零零 ' , ' 零 ' )
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零角零分 ' , ' 整 ' )
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零分 ' , ' 整 ' )
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零角 ' , ' 零 ' )
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零亿零万零元 ' , ' 亿元 ' )
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 亿零万零元 ' , ' 亿元 ' )
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零亿零万 ' , ' 亿 ' )
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零万零元 ' , ' 万元 ' )
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 万零元 ' , ' 万元 ' )
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零亿 ' , ' 亿 ' )
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零万 ' , ' 万 ' )
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零元 ' , ' 元 ' )
set @v_UpperStr = REPLACE ( @v_UpperStr , ' 零零 ' , ' 零 ' )
end 

-- 对壹元以下的金额的处理 
if ( ' 元 ' = substring ( @v_UpperStr , 1 , 1 ))
begin 
set @v_UpperStr = substring ( @v_UpperStr , 2 ,( len ( @v_UpperStr ) - 1 ))
end 

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

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

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

if ( ' 整 ' = substring ( @v_UpperStr , 1 , 1 ))
begin 
set @v_UpperStr = ' 零元整 ' 
end 
return @v_UpperStr 
END 
GO 

select dbo.L2U( 12.93 , 1 ),dbo.L2U( 12.93 , 0 )