Converte números decimais inteiros para extenso

ConvertNumerosParaExtenso.sql

ALTER FUNCTION NumeroExtenso(@Num INT)
  RETURNS VARCHAR(500)
AS BEGIN
	--Por Ycaro Afonso 2013-09-18
	--V 2.0
	DECLARE @FAT INT, @_FAT INT

	DECLARE @NumRes INT = @Num, @_NumRes INT, @_NumT INT

	DECLARE @Ret VARCHAR(500) = ''
	-- -------

	WHILE @NumRes > 0 BEGIN
		SET @FAT = CASE WHEN @NumRes < 10 THEN 1 WHEN @NumRes < 100 THEN 10 
					WHEN @NumRes < 1000 THEN 100 WHEN @NumRes < 1000000 THEN 1000 
					WHEN @NumRes < 1000000000 THEN 1000000 WHEN @NumRes < 1000000000000 THEN 1000000000 END

		IF(@FAT > 100) BEGIN 
			SET @_NumRes = (@NumRes / @FAT) 
			SET @NumRes = @NumRes - (@NumRes / @FAT) * @FAT
		END ELSE BEGIN 
			SET @_NumRes = @NumRes
			SET @NumRes = 0
		END 
		
		WHILE @_NumRes > 0 BEGIN 
			
			SET @_FAT = CASE WHEN @_NumRes < 10 THEN 1 WHEN @_NumRes < 100 THEN 10 
						WHEN @_NumRes < 1000 THEN 100 WHEN @_NumRes < 1000000 THEN 1000 
						WHEN @_NumRes < 1000000000 THEN 1000000 WHEN @_NumRes < 1000000000000 THEN 1000000000 END
			
			IF(@_NumRes <= 19) SET @_NumT = @_NumRes 
			ELSE SET @_NumT = (@_NumRes / @_FAT) * @_FAT 

			IF(@_NumRes = 100) SET @Ret = @Ret + ' e Cem'
			ELSE 
			SET @Ret = @Ret + ' e ' + CASE @_NumT
				WHEN 0 THEN 'Zero'
				WHEN 1 THEN 'Um' WHEN 2 THEN 'Dois' WHEN 3 THEN 'Tres' WHEN 4 THEN 'Quatro' WHEN 5 THEN 'Cinco' WHEN 6 THEN 'Seis' WHEN 7 THEN 'Sete' WHEN 8 THEN 'Oito' WHEN 9 THEN 'Nove' 
				WHEN 10 THEN 'Dez' WHEN 11 THEN 'Onze' WHEN 12 THEN 'Doze' WHEN 13 THEN 'Treze' WHEN 14 THEN 'Quartorze' WHEN 15 THEN 'Quinze' WHEN 16 THEN 'Dezesseis' WHEN 17 THEN 'Dezesete' WHEN 18 THEN 'Dezoito' WHEN 19 THEN 'Dezenove'
				WHEN 20 THEN 'Vinte' WHEN 30 THEN 'Trinta' WHEN 40 THEN 'Quarenta' WHEN 50 THEN 'Cinquenta' WHEN 60 THEN 'Sessenta' WHEN 70 THEN 'Setenta' WHEN 80 THEN 'Oitenta' WHEN 90 THEN 'Noventa' 
				WHEN 100 THEN 'Cento' WHEN 200 THEN 'Duzentos' WHEN 300 THEN 'Trezentos' WHEN 400 THEN 'Quatrocentos' WHEN 500 THEN 'Quinhentos' WHEN 600 THEN 'Seiscentos' WHEN 700 THEN 'Setecentos' WHEN 800 THEN 'Oitocentos' WHEN 900 THEN 'Novecentos'
				ELSE 'ERRO' END;
				
			SET @_NumRes = @_NumRes - @_NumT
		END
		
		SET @Ret = @Ret + ' ' 
			+ CASE @FAT WHEN 1000 THEN 'Mil,' 
						WHEN 1000000 THEN 'Milhões,' 
						WHEN 1000000000 THEN 'Bilhões,' ELSE '' END
	END

	-- PATCH
	SET @Ret = REPLACE(';' + REPLACE(@Ret, ', e ', ', '), '; e ', '')
	SET @Ret = REPLACE(@Ret, 'Um Milhões', 'Um Milhão')
	SET @Ret = REPLACE(@Ret, 'Um Bilhões', 'Um Bilhão')
	IF(@Num = 0) SET @Ret = 'Zero'
	RETURN lower(@Ret)
END
GO 

SELECT dbo.NumeroExtenso(1234567890)