关于数字金额转换大写金额，sql语句

Question

比如代码是这样的：
create FUNCTION CapitalRMB(@ChangeMoney numeric(15,2))  
RETURNS VarChar(100) AS  
BEGIN 
    Declare    @String1    char(20)
    Declare    @String2    char(30)
    Declare    @String4    Varchar(100)
    Declare @String3     Varchar(100)    --从原A值中取出的值
    Declare @i         int        --循环变量
    Declare @J         Int        --A的值乘以100的字符串长度
    Declare @Ch1         Varchar(100)    --数字的汉语读法
    Declare @Ch2         Varchar(100)    --数字位的汉字读法
    Declare @Zero         Int        --用来计算连续有几个零
    Declare    @ReturnValue    VarChar(100)
    Select  @ReturnValue = ''
    Select     @String1 = '零壹贰叁肆伍陆柒捌玖'
    Select    @String2 = '万仟佰拾亿仟佰拾万仟佰拾元角分'
    Select @String4 = Cast(@ChangeMoney*100 as int)    
    select @J=len(cast((@ChangeMoney*100) as int))
    Select @String2=Right(@String2,@J)
    Select    @i = 1 
    while    @i<= @j Begin
        Select @String3 = Substring(@String4,@i,1)
        if @String3<>'0' Begin
            Select     @Ch1 = Substring(@String1, Cast(@String3 as Int) + 1, 1)
            Select    @Ch2 = Substring(@String2, @i, 1)
            Select    @Zero = 0                    --表示本位不为零
        end
        else Begin
            If (@Zero = 0) Or (@i = @J - 9) Or (@i = @J - 5) Or (@i = @J - 1)
                        Select @Ch1 = '零' 
                    Else
                        Select @Ch1 = ''
                    Select @Zero = @Zero + 1             --表示本位为0
                        
            --如果转换的数值需要扩大，那么需改动以下表达式 I 的值。
            Select @Ch2 = ''
                If @i = @J - 10  Begin
                        Select @Ch2 = '亿'
                        Select @Zero = 0
            end
                    
            If @i = @J - 6 Begin
                        Select @Ch2 = '万'
                        Select @Zero = 0
            end
                    
            if @i = @J - 2 Begin
                        Select @Ch2 = '元'
                        Select @Zero = 0
            end
                    
            If @i = @J 
                        Select @Ch2 = '整'
                        
        end    
        Select @ReturnValue = @ReturnValue + @Ch1 + @Ch2
        select @i = @i+1
    end
    --最后将多余的零去掉
    If CharIndex('仟仟',@ReturnValue) <> 0 
            Select @ReturnValue = Replace(@ReturnValue, '仟仟', '仟')
    If CharIndex('佰佰',@ReturnValue) <> 0 
            Select @ReturnValue = Replace(@ReturnValue, '佰佰', '佰')
        If CharIndex('零元',@ReturnValue) <> 0 
            Select @ReturnValue = Replace(@ReturnValue, '零元', '元')
    
        If CharIndex('零万',@ReturnValue) <> 0 
            Select @ReturnValue = Replace(@ReturnValue, '零万', '万')
   
        If CharIndex('零亿',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零亿', '亿')
    
        If CharIndex('零整',@ReturnValue) <> 0 
            Select @ReturnValue = Replace(@ReturnValue, '零整', '整')
    
    If CharIndex('零佰',@ReturnValue) <> 0 
            Select @ReturnValue = Replace(@ReturnValue, '零佰', '零')
    If CharIndex('零仟',@ReturnValue) <> 0 
            Select @ReturnValue = Replace(@ReturnValue, '零仟', '零')
    If CharIndex('元元',@ReturnValue) <> 0 
            Select @ReturnValue = Replace(@ReturnValue, '元元', '元')
    return @ReturnValue
END如果数字是：701156.00，那得出的结果是：柒拾万壹仟壹佰伍拾陆元整，但是会计说不对，如果是这样开支票给银行转账，这样大写是不对的，正确的是：柒拾万零壹仟壹佰伍拾陆元整。因为少了一个零。请问如何改上面的代码，或者有没有正确数字金额转换大写的sql语句？

Answer 1

Create Function F_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 '分' 
                                              When 4      Then '角' 
                                              When 5      Then '元' 
                                              When 9      Then '萬' 
                                              When 13      Then '亿' 
                                              When 17      Then '兆' 
                                              When 21      Then '京' 
                                              When 25      Then '垓' 
                                              When 29      Then '杼'  
                                              When 33      Then '穰' 
                                              When 37      Then '沟' --Decimal型最大长度是38 后面的就不用再考虑了 
                                              Else 
                                                  + Case @i%4 
                                                          When 2 Then '拾'      --拾 6 10 14 18 22 26 30 34 38 ………… 
                                                          When 3 Then '佰'      --佰 7 11 15 19 23 27 31 35 39 ………… 
                                                          When 0 Then '仟'      --仟 8 12 16 20 24 28 32 36 40 ………… 
                                                      End 
                                        End 
                            End 
            Set @UpperStr = Isnull(@UpperTmp,'') + Isnull(@UpperStr,'') 
            Set @i = @i + 1 
          End 
      If Convert(Int,Right(@LowerStr,4)) = 0 Set @UpperStr = Left(@UpperStr,Len(@UpperStr)-8) + '整' --判断小数位数是不是都是0,是0就可以取整 
      While Patindex('%零[仟佰拾角分厘毫零]%',@UpperStr) <> 0    --把零拾或零佰或零零变成一个零 
          Begin 
            Set @UpperStr = stuff(@UpperStr,patindex('%零[仟佰拾角分厘毫零]%',@UpperStr),2,'零') 
          End 
      While Patindex('%[沟穰杼垓京兆亿萬]零[沟穰杼垓京兆亿萬]%',@UpperStr) <> 0 --把零萬或零亿的清空掉 
          Begin 
            Select @UpperStr = Stuff(@UpperStr,Patindex('%[沟穰杼垓京兆亿萬]零[沟穰杼垓京兆亿萬]%',@UpperStr)+1,2,'') 
          End 
      While Patindex('%[仟佰拾]零[沟穰杼垓京兆亿萬]%',@UpperStr) <> 0 --把类似拾零萬或佰零萬或仟零萬中间的零清空掉 
          Begin 
            Select @UpperStr = Stuff(@UpperStr,Patindex('%[仟佰拾]零[沟穰杼垓京兆亿萬]%',@UpperStr)+1,1,'') 
          End 
      If Patindex('%_零[元]%',@UpperStr) <> 0 --把类似拾零元或百零元中间的零清空掉 
          Begin 
            Select @UpperStr = Stuff(@UpperStr,Patindex('%_零[元]%',@UpperStr) + 1,1,'') 
  End 
      Else If (Patindex('零[元]%',@UpperStr) <> 0) And (Convert(Int,Right(@LowerStr,4)) <> 0) --判断当前否是零元开头，并且后面的四个小数不为0 
              Begin 
          Select @UpperStr = Stuff(@UpperStr,Patindex('零[元]%',@UpperStr),2,'') --把零元清空掉 
        End 
      If Right(@UpperStr,1) = '零' Set @UpperStr = Left(@UpperStr,Len(@UpperStr)-1)      --如果最后一位是零也清空掉 
      If @UpperStr = '元整' Set @UpperStr = '零' + @UpperStr                            --如果只是0的话，就显示零元整 
      Return @UpperStr      --返回大写金额 
End  

Answer 2

http://www.cnblogs.com/z-y/articles/315506.html
http://blog.csdn.net/maco_wang/article/details/6261622
这两个都可以。

Answer 3

你看看这个http://www.oschina.net/code/snippet_102716_1012CREATE FUNCTION usf_ChineseCost
(
 @Cost float
)
RETURNS varchar(50)
AS
----大写钱数----
BEGIN
 declare @returnStr varchar(50)
 if (@Cost >= 1000000000)
    Begin
  set @returnStr = '##########'
        return @returnStr
    end 
 set @returnStr = '00000000000'
 set @returnStr = right(@returnStr + convert(varchar,convert(decimal(11,2),round(@cost,2))),12)
 set @returnStr = replace(@returnStr,'0','零')
 set @returnStr = replace(@returnStr,'1','壹')
 set @returnStr = replace(@returnStr,'2','贰')
 set @returnStr = replace(@returnStr,'3','叁')
 set @returnStr = replace(@returnStr,'4','肆')
 set @returnStr = replace(@returnStr,'5','伍')
 set @returnStr = replace(@returnStr,'6','陆')
 set @returnStr = replace(@returnStr,'7','柒')
 set @returnStr = replace(@returnStr,'8','捌')
 set @returnStr = replace(@returnStr,'9','玖')
          
 set @returnStr = @returnStr + '分'
 set @returnStr =  stuff(@returnStr,len(@returnStr)-1,0,'角')
 set @returnStr =  replace(@returnStr,'.','元')
 set @returnStr =  stuff(@returnStr,len(@returnStr)-5,0,'拾')
 set @returnStr =  stuff(@returnStr,len(@returnStr)-7,0,'百')
 set @returnStr =  stuff(@returnStr,len(@returnStr)-9,0,'千')
 set @returnStr =  stuff(@returnStr,len(@returnStr)-11,0,'万')
 set @returnStr =  stuff(@returnStr,len(@returnStr)-13,0,'拾')
 set @returnStr =  stuff(@returnStr,len(@returnStr)-15,0,'百')
 set @returnStr =  stuff(@returnStr,len(@returnStr)-17,0,'千')
 set @returnStr =  stuff(@returnStr,len(@returnStr)-19,0,'亿') set @returnStr =  replace(@returnStr,'零亿','零')
 set @returnStr =  replace(@returnStr,'零千','零')
 set @returnStr =  replace(@returnStr,'零百','零')
 set @returnStr =  replace(@returnStr,'零拾','零')
 set @returnStr =  replace(@returnStr,'零零零','零')
 set @returnStr =  replace(@returnStr,'零零','零')
 set @returnStr =  replace(@returnStr,'零万','万')
 set @returnStr =  replace(@returnStr,'零元','元')
 set @returnStr =  replace(@returnStr,'零角','零')
 set @returnStr =  replace(@returnStr,'零分','') while left(@returnStr,1) = '零'
    Begin
    set @returnStr =  right(@returnStr,len(@returnStr)-1)
    end
 if ((left(@returnStr,1)='万')) 
 begin
  set @returnStr =  right(@returnStr,len(@returnStr)-1)
 end
 if ((left(@returnStr,1)='元')) 
 begin
  set @returnStr =  right(@returnStr,len(@returnStr)-1)
 end
 while left(@returnStr,1) = '零'
    Begin
    set @returnStr =  right(@returnStr,len(@returnStr)-1)
    end
 while right(@returnStr,1) = '零'
    Begin
    set @returnStr =  left(@returnStr,len(@returnStr)-1)
    end set @returnStr =  replace(@returnStr,'亿万','亿零')
 set @returnStr =  replace(@returnStr,'零元','元')
 set @returnStr =  replace(@returnStr,'零零零','零')
 set @returnStr =  replace(@returnStr,'零零','零') if (@returnStr='') 
 begin
  set @returnStr =  '零元'
 end
 if ((right(@returnStr,1)='元')) 
 begin
  set @returnStr =  @returnStr + '整'
 end
 return @returnStr
END

Answer 4

--select dbo.CapitalRMB(710106.01)ALTER FUNCTION CapitalRMB(@ChangeMoney numeric(38,2))   
RETURNS VarChar(100) AS   
BEGIN  
  Declare @String1 char(20)
  Declare @String2 char(30)
  Declare @String4 Varchar(100)
  Declare @String3 Varchar(100) --从原A值中取出的值
  Declare @i int --循环变量
  Declare @J Int --A的值乘以100的字符串长度
  Declare @Ch1 Varchar(100) --数字的汉语读法
  Declare @Ch2 Varchar(100) --数字位的汉字读法
  Declare @Zero Int --用来计算连续有几个零
  Declare @ReturnValue VarChar(100)
  Select @ReturnValue = ''
  Select @String1 = '零壹贰叁肆伍陆柒捌玖'
  Select @String2 = '万仟佰拾亿仟佰拾万仟佰拾元角分'
  Select @String4 = Cast(@ChangeMoney*100.00 as bigint)   
  select @J=len(cast((@ChangeMoney*100) as bigint))
  Select @String2=Right(@String2,@J)
  Select @i = 1  
  while @i<= @j Begin
  Select @String3 = Substring(@String4,@i,1)
  if @String3<>'0' Begin
  Select @Ch1 = Substring(@String1, Cast(@String3 as Int) + 1, 1)
  Select @Ch2 = Substring(@String2, @i, 1)
  Select @Zero = 0 --表示本位不为零
  end
  else Begin
  If (@Zero = 0) Or (@i = @J - 9) Or (@i = @J - 5) Or (@i = @J - 1)
  Select @Ch1 = '零'  
  Else
  Select @Ch1 = ''
  Select @Zero = @Zero + 1 --表示本位为0
    
  --如果转换的数值需要扩大，那么需改动以下表达式 I 的值。
  Select @Ch2 = ''
  If @i = @J - 10 Begin
  Select @Ch2 = '亿'
  Select @Zero = 0
  end
    
  If @i = @J - 6 Begin
  Select @Ch2 = '万'
  Select @Zero = 0
  end
    
  if @i = @J - 2 Begin
  Select @Ch2 = '元'
  Select @Zero = 0
  end
    
  If @i = @J  
  Select @Ch2 = '整'
    
  end   
  Select @ReturnValue = @ReturnValue + @Ch1 + @Ch2
  select @i = @i+1
  end
  --最后将多余的零去掉
  If CharIndex('仟仟',@ReturnValue) <> 0  
  Select @ReturnValue = Replace(@ReturnValue, '仟仟', '仟')
  If CharIndex('佰佰',@ReturnValue) <> 0  
  Select @ReturnValue = Replace(@ReturnValue, '佰佰', '佰')
  If CharIndex('零元',@ReturnValue) <> 0  
  Select @ReturnValue = Replace(@ReturnValue, '零元', '元零')
--  Select @ReturnValue = Replace(@ReturnValue, '零元', '元')
    
  If CharIndex('零万',@ReturnValue) <> 0  
  Select @ReturnValue = Replace(@ReturnValue, '零万', '万零')
--  Select @ReturnValue = Replace(@ReturnValue, '零万', '万')
    
  If CharIndex('零亿',@ReturnValue) <> 0
  Select @ReturnValue = Replace(@ReturnValue, '零亿', '亿零')
--  Select @ReturnValue = Replace(@ReturnValue, '零亿', '亿')
    
  If CharIndex('零整',@ReturnValue) <> 0  
  Select @ReturnValue = Replace(@ReturnValue, '零整', '整')    
  If CharIndex('零佰',@ReturnValue) <> 0  
  Select @ReturnValue = Replace(@ReturnValue, '零佰', '零')
  If CharIndex('零仟',@ReturnValue) <> 0  
  Select @ReturnValue = Replace(@ReturnValue, '零仟', '零')
  If CharIndex('元元',@ReturnValue) <> 0  
  Select @ReturnValue = Replace(@ReturnValue, '元元', '元')  If CharIndex('零零',@ReturnValue) <> 0  
  Select @ReturnValue = Replace(@ReturnValue, '零零', '零')
  return @ReturnValue
END

Answer 5

select dbo.CapitalRMB(103620.00)
结果是：壹拾万零叁仟陆佰贰拾元零整
最后不应该有“零”的正确的是：壹拾万零叁仟陆佰贰拾元整。
不要在后面多出一个零