function cienmillon($numcmeros)
{
if ($numcmeros == 100000000) {
$num_letracms = "CIEN MILLONES";
}
if ($numcmeros >= 100000000 && $numcmeros < 1000000000) {
$num_letracms = centena(Floor($numcmeros / 1000000)) . " MILLONES " . millon($numcmeros % 1000000);
}
if ($numcmeros < 100000000) {
$num_letracms = decmillon($numcmeros);
}
return $num_letracms;
}
function millon()
{
global $importe_parcial;
$parcial = 0;
$car = 0;
while (substr($importe_parcial, 0, 1) == 0) {
$importe_parcial = substr($importe_parcial, 1, strlen($importe_parcial) - 1);
}
if ($importe_parcial >= 1000000 && $importe_parcial <= 9999999.99) {
$car = 1;
} else {
if ($importe_parcial >= 10000000 && $importe_parcial <= 99999999.98999999) {
$car = 2;
} else {
if ($importe_parcial >= 100000000 && $importe_parcial <= 999999999.99) {
$car = 3;
}
}
}
$parcial = substr($importe_parcial, 0, $car);
$importe_parcial = substr($importe_parcial, $car);
if ($parcial == 1) {
$num_letras = "un millón ";
} else {
$num_letras = centena($parcial) . " millones ";
}
return $num_letras;
}
