function numtoletras($xcifra)
{
$xarray = array(0 => "Cero", 1 => "UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTI", 30 => "TREINTA", 40 => "CUARENTA", 50 => "CINCUENTA", 60 => "SESENTA", 70 => "SETENTA", 80 => "OCHENTA", 90 => "NOVENTA", 100 => "CIENTO", 200 => "DOSCIENTOS", 300 => "TRESCIENTOS", 400 => "CUATROCIENTOS", 500 => "QUINIENTOS", 600 => "SEISCIENTOS", 700 => "SETECIENTOS", 800 => "OCHOCIENTOS", 900 => "NOVECIENTOS");
//
$xcifra = trim($xcifra);
$xlength = strlen($xcifra);
$xpos_punto = strpos($xcifra, ".");
$xaux_int = $xcifra;
$xdecimales = "00";
if (!($xpos_punto === false)) {
if ($xpos_punto == 0) {
$xcifra = "0" . $xcifra;
$xpos_punto = strpos($xcifra, ".");
}
$xaux_int = substr($xcifra, 0, $xpos_punto);
// obtengo el entero de la cifra a covertir
$xdecimales = substr($xcifra . "00", $xpos_punto + 1, 2);
// obtengo los valores decimales
}
$XAUX = str_pad($xaux_int, 18, " ", STR_PAD_LEFT);
// ajusto la longitud de la cifra, para que sea divisible por centenas de miles (grupos de 6)
$xcadena = "";
for ($xz = 0; $xz < 3; $xz++) {
$xaux = substr($XAUX, $xz * 6, 6);
$xi = 0;
$xlimite = 6;
// inicializo el contador de centenas xi y establezco el límite a 6 dígitos en la parte entera
$xexit = true;
// bandera para controlar el ciclo del While
while ($xexit) {
if ($xi == $xlimite) {
// si ya llegó al límite máximo de enteros
break;
// termina el ciclo
}
$x3digitos = ($xlimite - $xi) * -1;
// comienzo con los tres primeros digitos de la cifra, comenzando por la izquierda
$xaux = substr($xaux, $x3digitos, abs($x3digitos));
// obtengo la centena (los tres dígitos)
for ($xy = 1; $xy < 4; $xy++) {
// ciclo para revisar centenas, decenas y unidades, en ese orden
switch ($xy) {
case 1:
// checa las centenas
if (substr($xaux, 0, 3) < 100) {
// si el grupo de tres dígitos es menor a una centena ( < 99) no hace nada y pasa a revisar las decenas
} else {
$key = (int) substr($xaux, 0, 3);
if (TRUE === array_key_exists($key, $xarray)) {
// busco si la centena es número redondo (100, 200, 300, 400, etc..)
$xseek = $xarray[$key];
$xsub = subfijo($xaux);
// devuelve el subfijo correspondiente (Millón, Millones, Mil o nada)
if (substr($xaux, 0, 3) == 100) {
$xcadena = " " . $xcadena . " CIEN " . $xsub;
} else {
$xcadena = " " . $xcadena . " " . $xseek . " " . $xsub;
}
$xy = 3;
// la centena fue redonda, entonces termino el ciclo del for y ya no reviso decenas ni unidades
} else {
// entra aquí si la centena no fue numero redondo (101, 253, 120, 980, etc.)
$key = (int) substr($xaux, 0, 1) * 100;
$xseek = $xarray[$key];
// toma el primer caracter de la centena y lo multiplica por cien y lo busca en el arreglo (para que busque 100,200,300, etc)
$xcadena = " " . $xcadena . " " . $xseek;
}
// ENDIF ($xseek)
}
// ENDIF (substr($xaux, 0, 3) < 100)
break;
case 2:
// checa las decenas (con la misma lógica que las centenas)
if (substr($xaux, 1, 2) < 10) {
} else {
$key = (int) substr($xaux, 1, 2);
if (TRUE === array_key_exists($key, $xarray)) {
$xseek = $xarray[$key];
$xsub = $this->subfijo($xaux);
if (substr($xaux, 1, 2) == 20) {
$xcadena = " " . $xcadena . " VEINTE " . $xsub;
} else {
$xcadena = " " . $xcadena . " " . $xseek . " " . $xsub;
}
$xy = 3;
} else {
$key = (int) substr($xaux, 1, 1) * 10;
$xseek = $xarray[$key];
if (20 == substr($xaux, 1, 1) * 10) {
$xcadena = " " . $xcadena . " " . $xseek;
} else {
$xcadena = " " . $xcadena . " " . $xseek . " Y ";
}
}
// ENDIF ($xseek)
}
// ENDIF (substr($xaux, 1, 2) < 10)
break;
case 3:
// checa las unidades
if (substr($xaux, 2, 1) < 1) {
// si la unidad es cero, ya no hace nada
} else {
$key = (int) substr($xaux, 2, 1);
$xseek = $xarray[$key];
// obtengo directamente el valor de la unidad (del uno al nueve)
$xsub = $this->subfijo($xaux);
$xcadena = " " . $xcadena . " " . $xseek . " " . $xsub;
}
// ENDIF (substr($xaux, 2, 1) < 1)
break;
}
// END SWITCH
}
// END FOR
$xi = $xi + 3;
}
// ENDDO
if (substr(trim($xcadena), -5, 5) == "ILLON") {
// si la cadena obtenida termina en MILLON o BILLON, entonces le agrega al final la conjuncion DE
$xcadena .= " DE";
}
if (substr(trim($xcadena), -7, 7) == "ILLONES") {
// si la cadena obtenida en MILLONES o BILLONES, entoncea le agrega al final la conjuncion DE
$xcadena .= " DE";
}
// ----------- esta línea la puedes cambiar de acuerdo a tus necesidades o a tu país -------
if (trim($xaux) != "") {
switch ($xz) {
case 0:
if (trim(substr($XAUX, $xz * 6, 6)) == "1") {
$xcadena .= "UN BILLON ";
} else {
$xcadena .= " BILLONES ";
}
break;
case 1:
if (trim(substr($XAUX, $xz * 6, 6)) == "1") {
$xcadena .= "UN MILLON ";
} else {
$xcadena .= " MILLONES ";
}
break;
case 2:
if ($xcifra < 1) {
$xcadena = "CERO PESOS {$xdecimales}/100 M.N.";
}
if ($xcifra >= 1 && $xcifra < 2) {
$xcadena = "UN PESO {$xdecimales}/100 M.N. ";
}
if ($xcifra >= 2) {
$xcadena .= " PESOS {$xdecimales}/100 M.N. ";
//
}
break;
}
// endswitch ($xz)
}
// ENDIF (trim($xaux) != "")
// ------------------ en este caso, para México se usa esta leyenda ----------------
$xcadena = str_replace("VEINTI ", "VEINTI", $xcadena);
// quito el espacio para el VEINTI, para que quede: VEINTICUATRO, VEINTIUN, VEINTIDOS, etc
$xcadena = str_replace(" ", " ", $xcadena);
// quito espacios dobles
$xcadena = str_replace("UN UN", "UN", $xcadena);
// quito la duplicidad
$xcadena = str_replace(" ", " ", $xcadena);
// quito espacios dobles
$xcadena = str_replace("BILLON DE MILLONES", "BILLON DE", $xcadena);
// corrigo la leyenda
$xcadena = str_replace("BILLONES DE MILLONES", "BILLONES DE", $xcadena);
// corrigo la leyenda
$xcadena = str_replace("DE UN", "UN", $xcadena);
// corrigo la leyenda
}
// ENDFOR ($xz)
return trim($xcadena);
}
/**
* Convierte un número en una cadena de letras, para el idioma
* castellano, pero puede funcionar para español de mexico, de
* españa, colombia, argentina, etc.
*
* Máxima cifra soportada: 18 dígitos con 2 decimales
* 999,999,999,999,999,999.99
* NOVECIENTOS NOVENTA Y NUEVE MIL NOVECIENTOS NOVENTA Y NUEVE BILLONES
* NOVECIENTOS NOVENTA Y NUEVE MIL NOVECIENTOS NOVENTA Y NUEVE MILLONES
* NOVECIENTOS NOVENTA Y NUEVE MIL NOVECIENTOS NOVENTA Y NUEVE PESOS 99/100 M.N.
*
* @author Ultiminio Ramos Galán <*****@*****.**>
* @param string $numero La cantidad numérica a convertir
* @param string $moneda La moneda local de tu país
* @param string $subfijo Una cadena adicional para el subfijo
*
* @return string La cantidad convertida a letras
*/
function num_to_letras($numero, $moneda = 'PESO', $subfijo = '')
{
$xarray = array(0 => 'Cero', 1 => 'UN', 'DOS', 'TRES', 'CUATRO', 'CINCO', 'SEIS', 'SIETE', 'OCHO', 'NUEVE', 'DIEZ', 'ONCE', 'DOCE', 'TRECE', 'CATORCE', 'QUINCE', 'DIECISEIS', 'DIECISIETE', 'DIECIOCHO', 'DIECINUEVE', 'VEINTI', 30 => 'TREINTA', 40 => 'CUARENTA', 50 => 'CINCUENTA', 60 => 'SESENTA', 70 => 'SETENTA', 80 => 'OCHENTA', 90 => 'NOVENTA', 100 => 'CIENTO', 200 => 'DOSCIENTOS', 300 => 'TRESCIENTOS', 400 => 'CUATROCIENTOS', 500 => 'QUINIENTOS', 600 => 'SEISCIENTOS', 700 => 'SETECIENTOS', 800 => 'OCHOCIENTOS', 900 => 'NOVECIENTOS');
$numero = trim($numero);
$xpos_punto = strpos($numero, '.');
$xaux_int = $numero;
$xdecimales = '00';
if (!($xpos_punto === false)) {
if ($xpos_punto == 0) {
$numero = '0' . $numero;
$xpos_punto = strpos($numero, '.');
}
$xaux_int = substr($numero, 0, $xpos_punto);
// obtengo el entero de la cifra a covertir
$xdecimales = substr($numero . '00', $xpos_punto + 1, 2);
// obtengo los valores decimales
}
$XAUX = str_pad($xaux_int, 18, ' ', STR_PAD_LEFT);
// ajusto la longitud de la cifra, para que sea divisible por centenas de miles (grupos de 6)
$xcadena = '';
for ($xz = 0; $xz < 3; $xz++) {
$xaux = substr($XAUX, $xz * 6, 6);
$xi = 0;
$xlimite = 6;
// inicializo el contador de centenas xi y establezco el límite a 6 dígitos en la parte entera
$xexit = true;
// bandera para controlar el ciclo del While
while ($xexit) {
if ($xi == $xlimite) {
// si ya llegó al límite máximo de enteros
break;
// termina el ciclo
}
$x3digitos = ($xlimite - $xi) * -1;
// comienzo con los tres primeros digitos de la cifra, comenzando por la izquierda
$xaux = substr($xaux, $x3digitos, abs($x3digitos));
// obtengo la centena (los tres dígitos)
for ($xy = 1; $xy < 4; $xy++) {
// ciclo para revisar centenas, decenas y unidades, en ese orden
switch ($xy) {
case 1:
// checa las centenas
$key = (int) substr($xaux, 0, 3);
if (100 > $key) {
// si el grupo de tres dígitos es menor a una centena ( < 99) no hace nada y pasa a revisar las decenas
/* do nothing */
} else {
if (TRUE === array_key_exists($key, $xarray)) {
// busco si la centena es número redondo (100, 200, 300, 400, etc..)
$xseek = $xarray[$key];
$xsub = subfijo($xaux);
// devuelve el subfijo correspondiente (Millón, Millones, Mil o nada)
if (100 == $key) {
$xcadena = ' ' . $xcadena . ' CIEN ' . $xsub;
} else {
$xcadena = ' ' . $xcadena . ' ' . $xseek . ' ' . $xsub;
}
$xy = 3;
// la centena fue redonda, entonces termino el ciclo del for y ya no reviso decenas ni unidades
} else {
// entra aquí si la centena no fue numero redondo (101, 253, 120, 980, etc.)
$key = (int) substr($xaux, 0, 1) * 100;
$xseek = $xarray[$key];
// toma el primer caracter de la centena y lo multiplica por cien y lo busca en el arreglo (para que busque 100,200,300, etc)
$xcadena = ' ' . $xcadena . ' ' . $xseek;
}
// ENDIF ($xseek)
}
// ENDIF (substr($xaux, 0, 3) < 100)
break;
case 2:
// checa las decenas (con la misma lógica que las centenas)
$key = (int) substr($xaux, 1, 2);
if (10 > $key) {
/* do nothing */
} else {
if (TRUE === array_key_exists($key, $xarray)) {
$xseek = $xarray[$key];
$xsub = subfijo($xaux);
if (20 == $key) {
$xcadena = ' ' . $xcadena . ' VEINTE ' . $xsub;
} else {
$xcadena = ' ' . $xcadena . ' ' . $xseek . ' ' . $xsub;
}
$xy = 3;
} else {
$key = (int) substr($xaux, 1, 1) * 10;
$xseek = $xarray[$key];
if (20 == $key) {
$xcadena = ' ' . $xcadena . ' ' . $xseek;
} else {
$xcadena = ' ' . $xcadena . ' ' . $xseek . ' Y ';
}
}
// ENDIF ($xseek)
}
// ENDIF (substr($xaux, 1, 2) < 10)
break;
case 3:
// checa las unidades
$key = (int) substr($xaux, 2, 1);
if (1 > $key) {
// si la unidad es cero, ya no hace nada
/* do nothing */
} else {
$xseek = $xarray[$key];
// obtengo directamente el valor de la unidad (del uno al nueve)
$xsub = subfijo($xaux);
$xcadena = ' ' . $xcadena . ' ' . $xseek . ' ' . $xsub;
}
// ENDIF (substr($xaux, 2, 1) < 1)
break;
}
// END SWITCH
}
// END FOR
$xi = $xi + 3;
}
// ENDDO
# si la cadena obtenida termina en MILLON o BILLON, entonces le agrega al final la conjuncion DE
if ('ILLON' == substr(trim($xcadena), -5, 5)) {
$xcadena .= ' DE';
}
# si la cadena obtenida en MILLONES o BILLONES, entonces le agrega al final la conjuncion DE
if ('ILLONES' == substr(trim($xcadena), -7, 7)) {
$xcadena .= ' DE';
}
# depurar leyendas finales
if ('' != trim($xaux)) {
switch ($xz) {
case 0:
if ('1' == trim(substr($XAUX, $xz * 6, 6))) {
$xcadena .= 'UN BILLON ';
} else {
$xcadena .= ' BILLONES ';
}
break;
case 1:
if ('1' == trim(substr($XAUX, $xz * 6, 6))) {
$xcadena .= 'UN MILLON ';
} else {
$xcadena .= ' MILLONES ';
}
break;
case 2:
if (1 > $numero) {
$xcadena = "CERO {$moneda}S {$xdecimales}/100 {$subfijo}";
}
if ($numero >= 1 && $numero < 2) {
$xcadena = "UN {$moneda} {$xdecimales}/100 {$subfijo}";
}
if ($numero >= 2) {
$xcadena .= " {$moneda}S {$xdecimales}/100 {$subfijo}";
//
}
break;
}
// endswitch ($xz)
}
// ENDIF (trim($xaux) != "")
$xcadena = str_replace('VEINTI ', 'VEINTI', $xcadena);
// quito el espacio para el VEINTI, para que quede: VEINTICUATRO, VEINTIUN, VEINTIDOS, etc
$xcadena = str_replace(' ', ' ', $xcadena);
// quito espacios dobles
$xcadena = str_replace('UN UN', 'UN', $xcadena);
// quito la duplicidad
$xcadena = str_replace(' ', ' ', $xcadena);
// quito espacios dobles
$xcadena = str_replace('BILLON DE MILLONES', 'BILLON DE', $xcadena);
// corrigo la leyenda
$xcadena = str_replace('BILLONES DE MILLONES', 'BILLONES DE', $xcadena);
// corrigo la leyenda
$xcadena = str_replace('DE UN', 'UN', $xcadena);
// corrigo la leyenda
}
// ENDFOR ($xz)
return trim($xcadena);
}
function numtoletras($xcifra)
{
$xarray = array(0 => "Cero", 1 => "un", "dos", "tres", "cuatro", "cinco", "seis", "siete", "ocho", "nueve", "diez", "once", "doce", "trece", "catorce", "quince", "dieciseis", "diecisiete", "dieciocho", "diecinueve", "veinti", 30 => "treinta", 40 => "cuarenta", 50 => "cincuenta", 60 => "sesenta", 70 => "setenta", 80 => "ochenta", 90 => "noventa", 100 => "ciento", 200 => "doscientos", 300 => "trescientos", 400 => "cuatrocientos", 500 => "quinientos", 600 => "seiscientos", 700 => "setecientos", 800 => "ochocientos", 900 => "novecientos");
//
$xcifra = trim($xcifra);
$xlength = strlen($xcifra);
$xpos_punto = strpos($xcifra, ".");
$xaux_int = $xcifra;
$xdecimales = "00";
if (!($xpos_punto === false)) {
if ($xpos_punto == 0) {
$xcifra = "0" . $xcifra;
$xpos_punto = strpos($xcifra, ".");
}
$xaux_int = substr($xcifra, 0, $xpos_punto);
// obtengo el entero de la cifra a covertir
$xdecimales = substr($xcifra . "00", $xpos_punto + 1, 2);
// obtengo los valores decimales
}
$XAUX = str_pad($xaux_int, 18, " ", STR_PAD_LEFT);
// ajusto la longitud de la cifra, para que sea divisible por centenas de miles (grupos de 6)
$xcadena = "";
for ($xz = 0; $xz < 3; $xz++) {
$xaux = substr($XAUX, $xz * 6, 6);
$xi = 0;
$xlimite = 6;
// inicializo el contador de centenas xi y establezco el límite a 6 dígitos en la parte entera
$xexit = true;
// bandera para controlar el ciclo del While
while ($xexit) {
if ($xi == $xlimite) {
// si ya llegó al límite máximo de enteros
break;
// termina el ciclo
}
$x3digitos = ($xlimite - $xi) * -1;
// comienzo con los tres primeros digitos de la cifra, comenzando por la izquierda
$xaux = substr($xaux, $x3digitos, abs($x3digitos));
// obtengo la centena (los tres dígitos)
for ($xy = 1; $xy < 4; $xy++) {
// ciclo para revisar centenas, decenas y unidades, en ese orden
switch ($xy) {
case 1:
// checa las centenas
if (substr($xaux, 0, 3) < 100) {
// si el grupo de tres dígitos es menor a una centena ( < 99) no hace nada y pasa a revisar las decenas
} else {
$key = (int) substr($xaux, 0, 3);
if (TRUE === array_key_exists($key, $xarray)) {
// busco si la centena es número redondo (100, 200, 300, 400, etc..)
$xseek = $xarray[$key];
$xsub = subfijo($xaux);
// devuelve el subfijo correspondiente (Millón, Millones, Mil o nada)
if (substr($xaux, 0, 3) == 100) {
$xcadena = " " . $xcadena . " cien " . $xsub;
} else {
$xcadena = " " . $xcadena . " " . $xseek . " " . $xsub;
}
$xy = 3;
// la centena fue redonda, entonces termino el ciclo del for y ya no reviso decenas ni unidades
} else {
// entra aquí si la centena no fue numero redondo (101, 253, 120, 980, etc.)
$key = (int) substr($xaux, 0, 1) * 100;
$xseek = $xarray[$key];
// toma el primer caracter de la centena y lo multiplica por cien y lo busca en el arreglo (para que busque 100,200,300, etc)
$xcadena = " " . $xcadena . " " . $xseek;
}
// ENDIF ($xseek)
}
// ENDIF (substr($xaux, 0, 3) < 100)
break;
case 2:
// checa las decenas (con la misma lógica que las centenas)
if (substr($xaux, 1, 2) < 10) {
} else {
$key = (int) substr($xaux, 1, 2);
if (TRUE === array_key_exists($key, $xarray)) {
$xseek = $xarray[$key];
$xsub = subfijo($xaux);
if (substr($xaux, 1, 2) == 20) {
$xcadena = " " . $xcadena . " veinte " . $xsub;
} else {
$xcadena = " " . $xcadena . " " . $xseek . " " . $xsub;
}
$xy = 3;
} else {
$key = (int) substr($xaux, 1, 1) * 10;
$xseek = $xarray[$key];
if (20 == substr($xaux, 1, 1) * 10) {
$xcadena = " " . $xcadena . " " . $xseek;
} else {
$xcadena = " " . $xcadena . " " . $xseek . " y ";
}
}
// ENDIF ($xseek)
}
// ENDIF (substr($xaux, 1, 2) < 10)
break;
case 3:
// checa las unidades
if (substr($xaux, 2, 1) < 1) {
// si la unidad es cero, ya no hace nada
} else {
$key = (int) substr($xaux, 2, 1);
$xseek = $xarray[$key];
// obtengo directamente el valor de la unidad (del uno al nueve)
$xsub = subfijo($xaux);
$xcadena = " " . $xcadena . " " . $xseek . " " . $xsub;
}
// ENDIF (substr($xaux, 2, 1) < 1)
break;
}
// END SWITCH
}
// END FOR
$xi = $xi + 3;
}
// ENDDO
if (substr(trim($xcadena), -5, 5) == "illon") {
// si la cadena obtenida termina en MILLON o BILLON, entonces le agrega al final la conjuncion DE
$xcadena .= " de";
}
if (substr(trim($xcadena), -7, 7) == "illones") {
// si la cadena obtenida en MILLONES o BILLONES, entoncea le agrega al final la conjuncion DE
$xcadena .= " de";
}
// ----------- esta línea la puedes cambiar de acuerdo a tus necesidades o a tu país -------
if (trim($xaux) != "") {
switch ($xz) {
case 0:
if (trim(substr($XAUX, $xz * 6, 6)) == "1") {
$xcadena .= "un billon ";
} else {
$xcadena .= " billones ";
}
break;
case 1:
if (trim(substr($XAUX, $xz * 6, 6)) == "1") {
$xcadena .= "un millon ";
} else {
$xcadena .= " millones ";
}
break;
case 2:
if ($xcifra < 1) {
$xcadena = "cero pesos ";
}
if ($xcifra >= 1 && $xcifra < 2) {
$xcadena = "un peso ";
}
if ($xcifra >= 2) {
$xcadena .= " pesos ";
//
}
break;
}
// endswitch ($xz)
}
// ENDIF (trim($xaux) != "")
// ------------------ en este caso, para México se usa esta leyenda ----------------
$xcadena = str_replace("veinti ", "veinti", $xcadena);
// quito el espacio para el VEINTI, para que quede: VEINTICUATRO, VEINTIUN, VEINTIDOS, etc
$xcadena = str_replace(" ", " ", $xcadena);
// quito espacios dobles
$xcadena = str_replace("un un", "un", $xcadena);
// quito la duplicidad
$xcadena = str_replace(" ", " ", $xcadena);
// quito espacios dobles
$xcadena = str_replace("billon de millones", "billon de", $xcadena);
// corrigo la leyenda
$xcadena = str_replace("billones de millones", "billones de", $xcadena);
// corrigo la leyenda
$xcadena = str_replace("de un", "un", $xcadena);
// corrigo la leyenda
}
// ENDFOR ($xz)
return trim($xcadena);
}
