数字转换成英文大写的SQL函数

/*****************************************************************
**
** 数字转换成英文大写
** Code CreateBy Abandonship 2005.11.21
**
*****************************************************************/
CREATE FUNCTION [dbo].[F__NumberChangeIntoEnglishUpperCase]

(@num numeric(18,4))

returns varchar(400) --with encryption

as

begin
  --declare @num numeric(17, 4) --支持到千亿计数,保留四位小数
  declare @i int,@hundreds int,@tenth int,@one int
  declare @thousand int,@million int,@billion int
  declare @numbers varchar(400),@s varchar(18),@result varchar(400)

  --set @num = '1231231231.00121'
  set @numbers='one       two       three     four      five      '
              +'six       seven     eight     nine      ten       '
              +'eleven    twelve    thirteen  fourteen  fifteen   '
              +'sixteen   seventeen eighteen  nineteen  '
              +'twenty    thirty    forty     fifty     '
              +'sixty     seventy   eighty    ninety    '
  set @s=right('000000000000000000'+cast(@num as varchar(17)),17)

  set @billion=cast(substring(@s,1,3) as int)--将12位整数分成4段：十亿、百万、千、百十个
  set @million=cast(substring(@s,4,3) as int)
  set @thousand=cast(substring(@s,7,3) as int)
 
--   Print '@thousand:'+convert( nvarchar(10),@thousand )
--   Print '@million:'+convert( nvarchar(10),@million )
--   Print '@billion:'+convert( nvarchar(10), @billion )

  set @result=''
  set @i=0
  while @i<=3
  begin
    set @hundreds=cast(substring(@s,@i*3+1,1) as int)--百位0-9
    set @tenth=cast(substring(@s,@i*3+2,1) as int)
    set @one=(case @tenth when 1 then 10 else 0 end)+cast(substring(@s,@i*3+3,1) as int)--个位0-19
    set @tenth=(case when @tenth<=1 then 0 else @tenth end)--十位0、2-9
    if (@i=1 and @billion>0 and (@million>0 or @thousand>0 or @hundreds>0)) or
       (@i=2 and (@billion>0 or @million>0) and (@thousand>0 or @hundreds>0)) or
       (@i=3 and (@billion>0 or @million>0 or @thousand>0) and (@hundreds>0))
      set @result=@result+', '--百位不是0则每段之间加连接符,
   
    if (@i=3 and (@billion>0 or @million>0 or @thousand>0) and (@hundreds=0 and (@tenth>0 or @one>0)))
      set @result=@result+' and '--百位是0则加连接符AND
    if @hundreds>0
      set @result=@result+rtrim(substring(@numbers,@hundreds*10-9,10))+' hundred'
    if @tenth>=2 and @tenth<=9
    begin
      if @hundreds>0
        set @result=@result+' and '
      set @result=@result+rtrim(substring(@numbers,@tenth*10+171,10))
    end
    if @one>=1 and @one<=19
    begin
      if @tenth>0
        set @result=@result+'-'
      else
        if @hundreds>0
          set @result=@result+' and '
      set @result=@result+rtrim(substring(@numbers,@one*10-9,10))
    end
    if @i=0 and @billion>0
      set @result=@result+' billion'
    if @i=1 and @million>0
      set @result=@result+' million'
    if @i=2 and @thousand>0
      set @result=@result+' thousand'
    set @i=@i+1
  end 

  /*判断是否有小数位*/
  if substring(@s,14,4)<>'0000'
  begin
    set @result=@result+' point '
    /*判断小数点第一位数字是否不为零*/
    if substring(@s,14,1)='0'
      set @result=@result+'zero'
    else
      set @result = @result+rtrim(substring(@numbers,cast(substring(@s,14,1) as int)*10-9,10))
    /*判断小数点后第二位数字是否为零*/
    if substring(@s,15,1)='0'
      set @result=@result+' zero '
    else
      set @result = @result+rtrim(substring(@numbers,cast(substring(@s,15,1) as int)*10-9, 10))
    /*判断小数点后第三位数字是否为零*/
    if substring(@s,16,1)='0'
      set @result = @result+' zero '
    else
      set @result = @result+rtrim(substring(@numbers,cast(substring(@s,16,1) as int)*10-9, 10))
    /*判断小数点后第四位数字是否为零*/
    if substring(@s,17,1)<>'0'
      set @result = @result+' '+rtrim(substring(@numbers,cast(substring(@s,17,1) as int)*10-9,10))
    else
      set @result = @result+' zero'
  end

--   Print '总字符:'+@s
--   Print '大写:'+@result

  return(@result)
end

--用法For example:
--select dbo.F__NumberChangeIntoEnglishUpperCase(数字)