小写转大写金额

在网上见到一个Oracle的版本的小写转大写金额的函数，感觉还不错现在把它转成SQL Server版本。

/********************************************************
作者：(birdie_7761@cmmail.com)
版本：1.0
创建时间：20020227
修改时间：
功能：小写金额转换成大写
参数：n_LowerMoney 小写金额
          v_TransType 种类 -- 1: directly translate, 0: read it in words
输出：大写金额
********************************************************/
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

例子：

select dbo.L2U(56588441.111,0)

select dbo.L2U(00.00,0)

原文转自：http://www.ltesting.net