把阿拉伯数字转换成汉字

set  ANSI_NULLS ON
set  QUOTED_IDENTIFIER ON
go


--   =============================================
--  Author:         <--->
--  Create date:  < 2008 - 3 - 4 >
--  Description:     < 将阿拉伯数字转换成汉字大写 >
--   =============================================
ALTER   function   [dbo].[ConvertNumberToChinese](@inputId   money)
  RETURNS   Nvarchar( 4000 )   AS       
  BEGIN     
  declare   @rV   Nvarchar( 4000 )   
    
  declare   @tmpstr   Nvarchar( 4000 ),@M   Nvarchar( 4000 ),@K   Nvarchar( 4000 ),@I   numeric( 38 , 2 ),   
  @J    int ,@lastJ    int ,@LastV   Nvarchar( 10 ),@LastF   Nvarchar( 10 ),@LastE   Nvarchar( 10 ),@LastVE   Nvarchar( 10 )   
   set    @I = @inputId   
    set    @K = N ''    
    
   if    @I < 0      
  begin   
   set    @I = 0 - @I   
   set    @K = N ' 负 '    
  end   
   if    @I = 0       return    N ' 零元整 '    
    
  select   @tmpstr = N ' 零壹贰叁肆伍陆柒捌玖分角元拾佰仟万拾佰仟亿拾佰仟 ' ,@M = cast(cast(@I * 100     as    bigint)    as    varchar( 800 )),@J = len(@M),@LastVE = N ''    
   while    @J >= 1    
  begin   
   set    @LastF = substring(@tmpstr,   cast(substring(@m,len(@M) - @j + 1 , 1 )    as    bigint) + 1 , 1 )   
   set    @LastE = substring(@tmpstr, 10 + @J, 1 )   
   if    @LastF <> N ' 零 '    
  begin   
   if    @LastV = N ' 零 '    
   if    (@lastJ >= 7    and   @j < 7 )   or   (@lastJ >= 11    and   @j < 11    )   or   (@lastJ >= 3    and   @j <= 2 )   
   if    @J <= 2    and   @lastJ <= 3    
   set    @K = @K + @LastVE + @LastF + @LastE   
   else    
   set    @K = @K + @LastVE + @LastV + @LastF + @LastE   
   else    
   set    @K = @K + @LastV + @LastF + @LastE   
   else    
   set    @K = @K + @LastF + @LastE   
  select   @lastJ = @j,@LastVE = N ''    
  end   
   else    
  begin   
   if    @LastVE = N ''    and   @lastJ > 11     set    @LastVE = N ' 亿 '    
   if    @LastVE = N ''    and   @lastJ > 7    and   @lastJ < 10     set    @LastVE = N ' 万 '    
   if    @LastVE = N ''    and   @lastJ > 3    and   @lastJ < 6     set    @LastVE = N ' 元 '    
   if    @LastVE = N ''    and   @lastJ > 2     set    @LastVE = N ' 零 '    
   if    @LastV <> N ' 零 '     set    @lastJ = @j   
  end   
   set    @LastV = @LastF   
   set    @J = @J - 1    
  end   
   if    @lastJ >= 6     set    @K = @K + @LastVE   
   if    @lastJ >= 3     set    @K = @K + N ' 元 '    
   if    @lastJ > 1    or   (@lastJ = 1    and   @LastV = N ' 零 ' )    set    @K = @K + N ' 整 '    
    
   set    @rv = @K   
    
   return    @rv   
  END