<?php
 
//Fonte: http://c...content-available-to-author-only...m.br/codigos/conversao-de-valor-numerico-para-extenso-em-php
 
echo valorPorExtenso( 23789.37 );
 
function valorPorExtenso($valor=0) {
	$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;
 
	for($i=0;$i<count($inteiro);$i++) 		for($ii=strlen($inteiro[$i]);$ii<3;$ii++) 			$inteiro[$i] = "0".$inteiro[$i];
 
	// $fim identifica onde que deve se dar junção de centenas por "e" ou por "," 😉
	$fim = count($inteiro) - ($inteiro[count($inteiro)-1] > 0 ? 
1 : 2); 	for ($i=0;$i<count($inteiro);$i++) { 		$valor = $inteiro[$i];
		$rc = (($valor > 100) && ($valor < 200)) ? "cento" : $c[$valor[0]];
		$rd = ($valor[1] < 2) ? "" : $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 < 1)) ? ( ($i < $fim) ? ", " : " e ") : " ") . $r;
	}
 
	return($rt ? $rt : "zero");
}
 
?>
				PD9waHAKCi8vRm9udGU6IGh0dHA6Ly9jLi4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5tLmJyL2NvZGlnb3MvY29udmVyc2FvLWRlLXZhbG9yLW51bWVyaWNvLXBhcmEtZXh0ZW5zby1lbS1waHAKCmVjaG8gdmFsb3JQb3JFeHRlbnNvKCAyMzc4OS4zNyApOwoKZnVuY3Rpb24gdmFsb3JQb3JFeHRlbnNvKCR2YWxvcj0wKSB7Cgkkc2luZ3VsYXIgPSBhcnJheSgiY2VudGF2byIsICJyZWFsIiwgIm1pbCIsICJtaWxow6NvIiwgImJpbGjDo28iLCAidHJpbGjDo28iLCAicXVhdHJpbGjDo28iKTsKCSRwbHVyYWwgPSBhcnJheSgiY2VudGF2b3MiLCAicmVhaXMiLCAibWlsIiwgIm1pbGjDtWVzIiwgImJpbGjDtWVzIiwgInRyaWxow7VlcyIsInF1YXRyaWxow7VlcyIpOwogCgkkYyA9IGFycmF5KCIiLCAiY2VtIiwgImR1emVudG9zIiwgInRyZXplbnRvcyIsICJxdWF0cm9jZW50b3MiLCJxdWluaGVudG9zIiwgInNlaXNjZW50b3MiLCAic2V0ZWNlbnRvcyIsICJvaXRvY2VudG9zIiwgIm5vdmVjZW50b3MiKTsKCSRkID0gYXJyYXkoIiIsICJkZXoiLCAidmludGUiLCAidHJpbnRhIiwgInF1YXJlbnRhIiwgImNpbnF1ZW50YSIsInNlc3NlbnRhIiwgInNldGVudGEiLCAib2l0ZW50YSIsICJub3ZlbnRhIik7CgkkZDEwID0gYXJyYXkoImRleiIsICJvbnplIiwgImRvemUiLCAidHJlemUiLCAicXVhdG9yemUiLCAicXVpbnplIiwiZGV6ZXNzZWlzIiwgImRlemVzZXRlIiwgImRlem9pdG8iLCAiZGV6ZW5vdmUiKTsKCSR1ID0gYXJyYXkoIiIsICJ1bSIsICJkb2lzIiwgInRyw6pzIiwgInF1YXRybyIsICJjaW5jbyIsICJzZWlzIiwic2V0ZSIsICJvaXRvIiwgIm5vdmUiKTsKIAoJJHo9MDsKIAoJJHZhbG9yID0gbnVtYmVyX2Zvcm1hdCgkdmFsb3IsIDIsICIuIiwgIi4iKTsKCSRpbnRlaXJvID0gZXhwbG9kZSgiLiIsICR2YWxvcik7Cglmb3IoJGk9MDskaTxjb3VudCgkaW50ZWlybyk7JGkrKykKCQlmb3IoJGlpPXN0cmxlbigkaW50ZWlyb1skaV0pOyRpaTwzOyRpaSsrKQoJCQkkaW50ZWlyb1skaV0gPSAiMCIuJGludGVpcm9bJGldOwogCgkvLyAkZmltIGlkZW50aWZpY2Egb25kZSBxdWUgZGV2ZSBzZSBkYXIganVuw6fDo28gZGUgY2VudGVuYXMgcG9yICJlIiBvdSBwb3IgIiwiIPCfmIkKCSRmaW0gPSBjb3VudCgkaW50ZWlybykgLSAoJGludGVpcm9bY291bnQoJGludGVpcm8pLTFdID4gMCA/IDEgOiAyKTsKCWZvciAoJGk9MDskaTxjb3VudCgkaW50ZWlybyk7JGkrKykgewoJCSR2YWxvciA9ICRpbnRlaXJvWyRpXTsKCQkkcmMgPSAoKCR2YWxvciA+IDEwMCkgJiYgKCR2YWxvciA8IDIwMCkpID8gImNlbnRvIiA6ICRjWyR2YWxvclswXV07CgkJJHJkID0gKCR2YWxvclsxXSA8IDIpID8gIiIgOiAkZFskdmFsb3JbMV1dOwoJCSRydSA9ICgkdmFsb3IgPiAwKSA/ICgoJHZhbG9yWzFdID09IDEpID8gJGQxMFskdmFsb3JbMl1dIDogJHVbJHZhbG9yWzJdXSkgOiAiIjsKCQoJCSRyID0gJHJjLigoJHJjICYmICgkcmQgfHwgJHJ1KSkgPyAiIGUgIiA6ICIiKS4kcmQuKCgkcmQgJiYgJHJ1KSA/ICIgZSAiIDogIiIpLiRydTsKCQkkdCA9IGNvdW50KCRpbnRlaXJvKS0xLSRpOwoJCSRyIC49ICRyID8gIiAiLigkdmFsb3IgPiAxID8gJHBsdXJhbFskdF0gOiAkc2luZ3VsYXJbJHRdKSA6ICIiOwoJCWlmICgkdmFsb3IgPT0gIjAwMCIpJHorKzsgZWxzZWlmICgkeiA+IDApICR6LS07CgkJaWYgKCgkdD09MSkgJiYgKCR6PjApICYmICgkaW50ZWlyb1swXSA+IDApKSAkciAuPSAoKCR6PjEpID8gIiBkZSAiIDogIiIpLiRwbHVyYWxbJHRdOyAKCQlpZiAoJHIpICRydCA9ICRydCAuICgoKCRpID4gMCkgJiYgKCRpIDw9ICRmaW0pICYmICgkaW50ZWlyb1swXSA+IDApICYmICgkeiA8IDEpKSA/ICggKCRpIDwgJGZpbSkgPyAiLCAiIDogIiBlICIpIDogIiAiKSAuICRyOwoJfQogCglyZXR1cm4oJHJ0ID8gJHJ0IDogInplcm8iKTsKfQoKPz4=