Gera valor por extenso (Ex.: 21 -> vinte e um)

#region "Gera o valor por extenso"
public string Extenso_Valor(decimal pdbl_Valor)
{
string strValorExtenso = ""; //Variável que irá armazenar o valor por extenso do número informado
string strNumero = ""; //Irá armazenar o número para exibir por extenso
string strCentena = "";
string strDezena = "";
string strUnidade = "";
decimal dblCentavos = 0;
decimal dblValorInteiro = 0;
int intContador = 0;
bool bln_Bilhao = false;
bool bln_Milhao = false;
bool bln_Mil = false;
bool bln_Real = false;
bool bln_Unidade = false;
//Verificar se foi informado um dado indevido
if (pdbl_Valor == 0 pdbl_Valor <= 0)
{
strValorExtenso = "Verificar se há valor negativo ou nada foi informado";
}
if (pdbl_Valor > (decimal)9999999999.99)
{
strValorExtenso = "Valor não suportado pela Função";
}
else //Entrada padrão do método
{
//Gerar Extenso Centavos
dblCentavos = pdbl_Valor - (int)pdbl_Valor;
//Gerar Extenso parte Inteira
dblValorInteiro = (int)pdbl_Valor;
if (dblValorInteiro > 0)
{
if (dblValorInteiro > 999)
{
bln_Mil = true;
}
if (dblValorInteiro > 999999)
{
bln_Milhao = true;
bln_Mil = false;
}
if (dblValorInteiro > 999999999)
{
bln_Mil = false;
bln_Milhao = false;
bln_Bilhao = true;
}
for (int i = (dblValorInteiro.ToString().Trim().Length) - 1; i >= 0; i--)
{
// strNumero = Mid(dblValorInteiro.ToString().Trim(), (dblValorInteiro.ToString().Trim().Length - i) + 1, 1);
strNumero = Mid(dblValorInteiro.ToString().Trim(), (dblValorInteiro.ToString().Trim().Length - i) - 1, 1);
switch (i)
{ /*******/
case 9: /*Bilhão*
/*******/
{
strValorExtenso = fcn_Numero_Unidade(strNumero) + ((int.Parse(strNumero) > 1) ? " Bilhões de" : " Bilhão de");
bln_Bilhao = true;
break;
}
case 8: /********/
case 5: //Centena*
case 2: /********/
{
if (int.Parse(strNumero) > 0)
{
strCentena = Mid(dblValorInteiro.ToString().Trim(), (dblValorInteiro.ToString().Trim().Length - i) - 1, 3);
if (int.Parse(strCentena) > 100 && int.Parse(strCentena) < 200)
{
strValorExtenso = strValorExtenso + " Cento e ";
}
else
{
strValorExtenso = strValorExtenso + " " + fcn_Numero_Centena(strNumero);
}
if (intContador == 8)
{
bln_Milhao = true;
}
else if (intContador == 5)
{
bln_Mil = true;
}
}
break;
}
case 7: /*****************/
case 4: //Dezena de Milhão*
case 1: /*****************/
{
if (int.Parse(strNumero) > 0)
{
strDezena = Mid(dblValorInteiro.ToString().Trim(), (dblValorInteiro.ToString().Trim().Length - i) - 1, 2);//
if (int.Parse(strDezena) > 10 && int.Parse(strDezena) < 20)
{
strValorExtenso = strValorExtenso + (Right(strValorExtenso, 5).Trim() == "entos" ? " e " : " ")
+ fcn_Numero_Dezena0(Right(strDezena, 1));//corrigido
bln_Unidade = true;
}
else
{
strValorExtenso = strValorExtenso + (Right(strValorExtenso, 5).Trim() == "entos" ? " e " : " ")
+ fcn_Numero_Dezena1(Left(strDezena, 1));//corrigido
bln_Unidade = false;
}
if (intContador == 7)
{
bln_Milhao = true;
}
else if (intContador == 4)
{
bln_Mil = true;
}
}
break;
}
case 6: /******************/
case 3: //Unidade de Milhão*
case 0: /******************/
{
if (int.Parse(strNumero) > 0 && !bln_Unidade)
{
if ((Right(strValorExtenso, 5).Trim()) == "entos"
(Right(strValorExtenso, 3).Trim()) == "nte"
(Right(strValorExtenso, 3).Trim()) == "nta")
{
strValorExtenso = strValorExtenso + " e ";
}
else
{
strValorExtenso = strValorExtenso + " ";
}
strValorExtenso = strValorExtenso + fcn_Numero_Unidade(strNumero);
}
if (i == 6)
{
if (bln_Milhao int.Parse(strNumero) > 0)
{
strValorExtenso = strValorExtenso + ((int.Parse(strNumero) == 1) && !bln_Unidade ? " Milhão de" : " Milhões de");
bln_Milhao = true;
}
}
if (i == 3)
{
if (bln_Mil int.Parse(strNumero) > 0)
{
strValorExtenso = strValorExtenso + " Mil";
bln_Mil = true;
}
}
if (i == 0)
{
if ((bln_Bilhao && !bln_Milhao && !bln_Mil
&& Right((dblValorInteiro.ToString().Trim()), 3) == "0")
(!bln_Bilhao && bln_Milhao && !bln_Mil
&& Right((dblValorInteiro.ToString().Trim()), 3) == "0"))
{
strValorExtenso = strValorExtenso + " de ";
}
strValorExtenso = strValorExtenso + ((int.Parse(dblValorInteiro.ToString())) > 1 ? " Reais " : " Real ");
}
bln_Unidade = false;
break;
}
}
}//
}
if (dblCentavos > 0)
{
if ((Decimal.Parse(dblCentavos.ToString()) > 0) && (dblCentavos < (decimal)0.1))
{
strNumero = Right((Decimal.Round(dblCentavos, 2)).ToString().Trim(), 1);
strValorExtenso = strValorExtenso + ((Decimal.Parse(dblCentavos.ToString()) > 0) ? " e " : " ")
+ fcn_Numero_Unidade(strNumero) + ((Decimal.Parse(strNumero) > 1) ? " Centavos " : " Centavo ");
}
else if (dblCentavos > (decimal)0.1 && dblCentavos < (decimal)0.2)
{
strNumero = Right(((Decimal.Round(dblCentavos, 2) - (decimal)0.1).ToString().Trim()), 1);
strValorExtenso = strValorExtenso + ((Decimal.Parse(dblCentavos.ToString()) > 0) ? " e " : " ")
+ fcn_Numero_Dezena0(strNumero) + " Centavos ";
}
else
{
if (dblCentavos > 0) //0#
{
strNumero = Right(dblCentavos.ToString().Trim(), 2);//Mid(dblCentavos.ToString().Trim(), 0, 1);//
strValorExtenso = strValorExtenso + ((int.Parse(strNumero) > 0) ? " e " : "")//((int.Parse(dblCentavos.ToString()) > 0) ? " e " : " ")
+ fcn_Numero_Dezena1(Left(strNumero, 1));
if ((dblCentavos.ToString().Trim().Length) > 2)
{
strNumero = Right((Decimal.Round(dblCentavos, 2)).ToString().Trim(), 1);
if (int.Parse(strNumero) > 0)
{
if (Mid(strValorExtenso.Trim(), strValorExtenso.Trim().Length - 2, 1) == "e")
{
strValorExtenso = strValorExtenso + " " + fcn_Numero_Unidade(strNumero);
}
else
{
strValorExtenso = strValorExtenso + " e " + fcn_Numero_Unidade(strNumero);
}
}
}
strValorExtenso = strValorExtenso + " Centavos ";
}
}
}
if (dblValorInteiro < 1) strValorExtenso = Mid(strValorExtenso.Trim(), 2, strValorExtenso.Trim().Length -
2);
}
return strValorExtenso.Trim();
}
private string fcn_Numero_Dezena0(string pstrDezena0)
{
//Vetor que irá conter o número por extenso
ArrayList array_Dezena0 = new ArrayList();
array_Dezena0.Add("Onze");
array_Dezena0.Add("Doze");
array_Dezena0.Add("Treze");
array_Dezena0.Add("Quatorze");
array_Dezena0.Add("Quinze");
array_Dezena0.Add("Dezesseis");
array_Dezena0.Add("Dezessete");
array_Dezena0.Add("Dezoito");
array_Dezena0.Add("Dezenove");
return array_Dezena0[((int.Parse(pstrDezena0)) - 1)].ToString();
}
private string fcn_Numero_Dezena1(string pstrDezena1)
{
//Vetor que irá conter o número por extenso
ArrayList array_Dezena1 = new ArrayList();
array_Dezena1.Add("Dez");
array_Dezena1.Add("Vinte");
array_Dezena1.Add("Trinta");
array_Dezena1.Add("Quarenta");
array_Dezena1.Add("Cinquenta");
array_Dezena1.Add("Sessenta");
array_Dezena1.Add("Setenta");
array_Dezena1.Add("Oitenta");
array_Dezena1.Add("Noventa");
return array_Dezena1[((int.Parse(pstrDezena1)) - 1)].ToString();
}
private string fcn_Numero_Centena(string pstrCentena)
{
//Vetor que irá conter o número por extenso
ArrayList array_Centena = new ArrayList();
array_Centena.Add("Cem");
array_Centena.Add("Duzentos");
array_Centena.Add("Trezentos");
array_Centena.Add("Quatrocentos");
array_Centena.Add("Quinhentos");
array_Centena.Add("Seiscentos");
array_Centena.Add("Setecentos");
array_Centena.Add("Oitocentos");
array_Centena.Add("Novecentos");
return array_Centena[((int.Parse(pstrCentena)) - 1)].ToString();
}
private string fcn_Numero_Unidade(string pstrUnidade)
{
//Vetor que irá conter o número por extenso
ArrayList array_Unidade = new ArrayList();
array_Unidade.Add("Um");
array_Unidade.Add("Dois");
array_Unidade.Add("Três");
array_Unidade.Add("Quatro");
array_Unidade.Add("Cinco");
array_Unidade.Add("Seis");
array_Unidade.Add("Sete");
array_Unidade.Add("Oito");
array_Unidade.Add("Nove");
return array_Unidade[((int.Parse(pstrUnidade)) - 1)].ToString();
}
public static string Left(string param, int length)
{
//we start at 0 since we want to get the characters starting from the
//left and with the specified lenght and assign it to a variable
if (param == "")
return "";
string result = param.Substring(0, length);
//return the result of the operation
return result;
}
public static string Right(string param, int length)
{
//start at the index based on the lenght of the sting minus
//the specified lenght and assign it a variable
if (param == "")
return "";
string result = param.Substring(param.Length - length, length);
//return the result of the operation
return result;
}
public static string Mid(string param, int startIndex, int length)
{
//start at the specified index in the string ang get N number of
//characters depending on the lenght and assign it to a variable
string result = param.Substring(startIndex, length);
//return the result of the operation
return result;
}
public static string Mid(string param, int startIndex)
{
//start at the specified index and return all characters after it
//and assign it to a variable
string result = param.Substring(startIndex);
//return the result of the operation
return result;
}
#endregion

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.

Postagens mais visitadas deste blog

Funcão SQL para abreviar nomes

CREATE FUNCTION dbo.Abrevia ( @nome varchar (200) ) RETURNS varchar (25) AS BEGIN declare @aux varchar (120) declare @aux2 varchar (25) declare @fim varchar (25)   --Pegar o primeiro nome set @fim= left (@nome,charindex( ' ' ,@nome)) set @aux=@fim --Inicializa variável set @aux2= '' --Inicializa variável --Enquanto tem nomes do meio while len(@aux)>0 begin --pega primeiro nome set @aux= left (@nome,charindex( ' ' ,@nome)) --remove primeiro nome set @nome=ltrim(replace(@nome,@aux, '' )) --exclui de,da,dos(da silva, dos santos..) if charindex( ' ' ,@nome)>4 begin --Abrevia com . set @aux2=@aux2+ substring (@nome,1,1)+ '. ' end end --concatena tudo(primeiro nome+abreviações+último select @fim=@fim+@aux2+@nome nome) RETURN ( @fim ) END
Leia mais

Função em JavaScript para consulta de CEP com retorno em XML ou Json

Para criar uma biblioteca em JavaScript que consulta um CEP e retorna os dados em XML ou JSON, podemos utilizar uma API pública que realiza essa consulta e retorna a resposta no formato desejado. Nesse exemplo, vamos utilizar a API do ViaCEP, que permite realizar consultas de CEP e retornar os dados em JSON ou XML. O código a seguir mostra uma implementação simples de uma função que consulta um CEP utilizando a API do ViaCEP e retorna os dados em XML ou JSON, dependendo do formato especificado: function consultarCEP(cep, formato, callback) { var url = 'https://viacep.com.br/ws/' + cep + '/' + formato + '/'; var xhr = new XMLHttpRequest(); xhr.open('GET', url, true); xhr.onreadystatechange = function() { if (xhr.readyState == 4 && xhr.status == 200) { var resposta = xhr.responseText; if (formato == 'json') { callback(JSON.parse(resposta)); } else { callback(resposta); } ...
Leia mais

Função SQL que retorna valor (R$) por extenso

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...
Leia mais