在SQL中小写金额转换成大写的函数(转)

/*******************************************************
编写者：(博客天地 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 '分'