Retirado do site.: http://eltonbicalho.blogspot.com/2010/01/escrever-um-valor-por-extenso- sql .html CREATE FUNCTION dbo.Extenso(@VALOR DECIMAL (18, 5)) RETURNS VARCHAR (255) AS BEGIN DECLARE @STR_EXT VARCHAR (255), @FLAG_E INT , @GRUPO DECIMAL (10, 2), @MOEDA VARCHAR (10), @MOEDA_PLURAL VARCHAR (10), @FLAG_CENTAVOS DECIMAL (18, 5) -- Aqui vc podera configurar a descricao da Moeda SET @MOEDA = 'Real' SET @MOEDA_PLURAL = 'Reais' SET @FLAG_CENTAVOS = 1 -- Exibir os centavos [ 0) Nao 1) Sim ] SET @STR_EXT = '' SET @FLAG_E = 0 SET @GRUPO = 0 IF (( CONVERT ( INT , @VALOR) - ( CONVERT ( INT , @VALOR) % 1)) = 0) BEGIN SET @STR_EXT = ' Zero' END ELSE BEGIN DECLARE @TEMPINT BIGINT SET @TEMPINT = .000001*(( CONVERT ( INT , @VALOR) % 1000000000) - ( CONVERT ( INT , @VALOR) % 1000000)) SELECT @FLAG_E = FLAG_E, @STR_EXT = STR_EXT FROM dbo.TrataGrupoExtenso( @TEMPINT, ' Milhão' , ' Milhões' , @FLAG_E, @STR_EXT) SET @TEMPINT = .00...
Comentários
Postar um comentário
Os códigos postados aqui são uma seqüência de instruções de forma ordenada, não compilada para o código de máquina, em uma determinada linguagem de programação.
Ajude a melhorar esses códigos.