Numeros por extenso

[Fabyo 66]

PHP

 

function extenso($valor = 0, $maiusculas = false) {

 

$singular = array("centavo", "real", "mil", "milhão", "bilhão", "trilhão", "quatrilhão");

$plural = array("centavos", "reais", "mil", "milhões", "bilhões", "trilhões",

"quatrilhões");

 

$c = array("", "cem", "duzentos", "trezentos", "quatrocentos",

"quinhentos", "seiscentos", "setecentos", "oitocentos", "novecentos");

$d = array("", "dez", "vinte", "trinta", "quarenta", "cinquenta",

"sessenta", "setenta", "oitenta", "noventa");

$d10 = array("dez", "onze", "doze", "treze", "quatorze", "quinze",

"dezesseis", "dezesete", "dezoito", "dezenove");

$u = array("", "um", "dois", "três", "quatro", "cinco", "seis",

"sete", "oito", "nove");

 

$z = 0;

$rt = "";

 

$valor = number_format($valor, 2, ".", ".");

$inteiro = explode(".", $valor);

for($i=0;$icount($inteiro);$i++)

for($ii=strlen($inteiro[$i]);$ii$ii++)

$inteiro[$i] = "0".$inteiro[$i];

 

$fim = count($inteiro) - ($inteiro[count($inteiro)-1] > 0 ? 1 : 2);

for ($i=0;$icount($inteiro);$i++) {

$valor = $inteiro[$i];

$rc = (($valor > 100) && ($valor "cento" : $c[$valor[0]];

$rd = ($valor[1] "" : $d[$valor[1]];

$ru = ($valor > 0) ? (($valor[1] == 1) ? $d10[$valor[2]] : $u[$valor[2]]) : "";

 

$r = $rc.(($rc && ($rd || $ru)) ? " e " : "").$rd.(($rd &&

$ru) ? " e " : "").$ru;

$t = count($inteiro)-1-$i;

$r .= $r ? " ".($valor > 1 ? $plural[$t] : $singular[$t]) : "";

if ($valor == "000")$z++; elseif ($z > 0) $z--;

if (($t==1) && ($z>0) && ($inteiro[0] > 0)) $r .= (($z>1) ? " de " : "").$plural[$t];

if ($r) $rt = $rt . ((($i > 0) && ($i $fim) &&

($inteiro[0] > 0) && ($z $i $fim) ? ", " : " e ") : " ") . $r;

}

 

if(!$maiusculas){

return($rt ? $rt : "zero");

} else {

 

if ($rt) $rt=ereg_replace(" E "," e ",ucwords($rt));

return (($rt) ? ($rt) : "Zero");

}

 

}

 

$valor = 112344;

$dim = extenso($valor);

$dim = ereg_replace(" E "," e ",ucwords($dim));

 

$valor = number_format($valor, 2, ",", ".");

 

echo "R$ $valor

$dim";

 

?>

[Douglas Lima 0]

muito boa esta!!!!

[Epyllion 0]

Ótimo.

Parabéns. http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Fabyo 66]

olha a data Mar 23 2005, nessa epoca eu nem manjava nada, ainda nao manjo mas eu era pior

[i.Surfer 0]

Estava testando varias hipoteses para entender todos os trexos do codigo e descobri um bugs que infelizmente num consigo resolver, por falta de tempo e por ser burro tbm :P Seguinte:Coloquei este valor => 100000100100100.10Retorno:

R$ 100.000.100.100.100,09Cem Trilhões, Cem Milhões, Cem Mil, Cem Reais e Nove Centavos

??? num consegui encontrar o trexo que tratava segundos...Outro:Não me lembro exatamente o número :rolleyes: mas sei que era grande, e as vezes faltava uma vírgula depois da primeira expressão.====================Conselho para todos que postam codigos:

Não deixem os códigos super comprimidos, porque além de dificultar na leitura, até mesmo para o próprio criador, dificulta resoluções de possíveis erros

OBS.: APENAS UM CONSELHO ! Fabyo, isso não é uma crítica, afinal, cada um programa da forma que achar mais conveniente. Mas como o objetivo do fórum é passar o conhecimento, ao menos ele deve ser legível não acha??

[Fabyo 66]

cara você ta certo, mas você ta fazendo uma critica de um script de 1900 e bolinha, olhe meus scripts atuais e veja a diferença, e muita coisa tbm é porque sendo postado dependendo das tags elas tiram a formatação espaços e tab dai ja nao é culpa de ninguem, e sobre enxugar codigo sou totalmente a favor porque faço muitos scripts de 1 linha só porque sei o que estou fazendo e tenho uma logica boa entao nao tem porque ficar sofrendo para fazer um script

 

mas valeu, como falei esse script é muito velho pessoal tirou do fundo do bau, nao vem criticar que ai ja nao vale

 

e uma coisa que sempre faço é deixar meus sistema legiveis bem orientados com documentação e tudo, quando programo para mim mesmo a unica coisa que nao faço é comentar os codigos, porque eu sei tudo que se passa no script nao preciso ficar lembrando o que cada linha faz

[Enizaldo 0]

EXCELENTE!!!

Parabéns!

 

Utilizando um bom senso e números correto sempre vai funcionar.