小写转大写金额

小写转大写金额

在网上见到一个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)