El Blog de Malagana

Desde hace tiempo quería compartir con ustedes esta pequeña clase en PHP que nos permite obtener la cantidad con letras de un número dado. Esta clase  la escribi en PHP a partir de una macro que encontré hace tiempo escrita para Excel y que solíamos utilizar hace tiempo en ese programa para elaborar  nuestras facturas sin tener que estar escribiendo la cantidad con letras.

El código lo pueden encontrar a continuación  o bien  descargar Numero2Text.zip.

<?php
/********************************************************
* Numero2Texto convierte un numero a una cadena
* de texto que indica con palabras la cantidad que 
* representa el numero.
*  
*  El script se baso en el trabajo realizado por:
*	  César Castro
*	  Enero-97
*	  http://chamarrasdepiel.com/SrExcel.html
*  para un libro de excel.
*  
*  La funcionalidad para PHP fue realizada por 
*	Gerardo Gonzalez Flores, 2007
*	gerardo@clic.com.mx
*
*
*	'Optional Fraccion_Letras = False, _
*   'Optional Fraccion  = "", _
*   'Optional Texto_Inicial  = "", _
*   'Optional Texto_Final  = "", _
*   'Optional Estilo  = 1) 
*
**********************************************************/

class Numero2Texto extends Object{

	/*****************************************************************************
	'--  Funcion principal para convertir el numero en texto 					--
	'-- Argumentos:																--	
	'-- $numero = Valor que deseamos convertir en texto							--
	'-- $moneda = es el nombre de la moneda a mostrar							--
	'-- $fraccionLetras = Verdadero para que la fraccion de la moneda			--
	'--                 tambien la convierta a letras							--
	'-- $fraccion = Es el nombre de la fraccion de la moneda					--
	'-- $textoInicial = Cualquier texto que quieras al principio del resultado	--
	'-- $texto_Final = Cualquier texto que quieras al final del resultado		--
	'-- $estilo = Formato de salida												--
	'--            1 = MAYUSCULAS												--
	'--            2 = minusculas												--
	'--            3 = Tipo Titulo (no habilitada por el momento)				--
	'-- Los valores negativos los convierte a positivos							--		
	'-- El valor minimo en 0, el valor maximo es  9,999,999,999,999.99			--
	******************************************************************************/
	function numeroTexto($numero, $moneda = 'peso' , $fraccionLetras = true, $fraccion = ' centavo', $textoInicial = "", $textoFinal="", $estilo = 2){
		$strLetras = ""; 
		$numTmp = "";
		$intFraccion = ""; 
		$strLetras = $textoInicial;
		  //'Convertimos a positivo si es negativo
		  $numero = abs($numero);
		  $numTmp = $this->format($numero, "000000000000000.00");
		  if($numero < 1 ){
			$strLetras = $strLetras . "cero " . $this->plural($moneda) . " ";
		  }else{
			$strLetras = $strLetras . $this->numLet($this->val(substr($numTmp, 0, 15)));
			if($this->val($numTmp) == 1 || $this->val($numTmp) <= 2)
			{
			 $strLetras = $strLetras . $moneda . " ";
			}elseif($this->val(substr($numTmp, 3, 12)) == 0 || $this->val(substr($numTmp, 9, 6)) == 0){
			  $strLetras = $strLetras . "de " . $this->plural($moneda) . " ";
			}else{
			  $strLetras = $strLetras . $this->plural($moneda) . " ";
			}
		  }

		  if($fraccionLetras){
			$intFraccion = $this->val(substr($numTmp, strlen($numTmp)-2, 2));
			switch($intFraccion){		
			  case 0:
				$strLetras = $strLetras . "con cero " . $this->plural($fraccion);
				break;
			  case 1:
				$strLetras = $strLetras . "con un " . $fraccion;
				break;
			  default:
			  	// se podra usar  intFraccion?
				//-->strLetras = strLetras + "con " + numLet($intFraccion) + $this->plural($fraccion);

				$strLetras = $strLetras . "con " . $this->numLet(substr($numTmp, strlen($numTmp)-2, 2)) . $this->plural($fraccion);
			}
		  }else{
		  	// se podra usar  intFraccion?
			//-->$strLetras = $strLetras + $intFraccion;
			$strLetras = $strLetras . substr($numTmp, strlen($numTmp)-2, 2) . '/100';
		  }
		  $strLetras = $strLetras . $textoFinal;
		  switch($estilo){
			case 1:
			  $strLetras = strtoupper($strLetras);
			  break;
			case 2:
			  $strLetras = strtolower($strLetras);
			  break;
			case 3:
			  $strLetras = strtolower(strLetras); //'StrConv(strLetras, vbPropercase);
			  break;
		  }

		  return $strLetras;
	}

	function numLet($numero ) {
	  $numTmp = "";
	  $co1 = ""; 
	  $co2 = ""; 
	  $pos = ""; 
	  $dig = ""; 
	  $cen = ""; 
	  $dec = ""; 
	  $uni = ""; 
	  $letra1 = ""; 
	  $letra2 = ""; 
	  $letra3 = ""; 
	  $leyenda = ""; 
	  $tFNumero = ""; 

	  $numTmp = $this->format($numero, "000000000000000");       // 'Le da un formato fijo

	  $co1 = 1;
	  $pos = 0;

	  //'Para extraer tres digitos cada vez
	  while($co1 <= 5){
	    $co2 = 1;
	    while($co2 <= 3){
	      //'Extrae un digito cada vez de izquierda a derecha
	      $dig = $this->val(substr($numTmp, $pos, 1));
		 switch($co2){
	        case 1: $cen = $dig+0; break;
	        case 2: $dec = $dig+0; break;
	        case 3: $uni = $dig+0; break;
	     }
		  $co2++;
	      $pos++;
	    }
	    $letra3 = $this->centena($uni, $dec, $cen);
	    $letra2 = $this->decena($uni, $dec);
	    $letra1 = $this->unidad($uni, $dec);

	    switch($co1){
	      case 1:

		    if(($cen + $dec + $uni) == 1 ){
	          $leyenda = "billon ";
	        }elseif(($cen + $dec + $uni) > 1){
	          $leyenda = "billones ";
			}
			break;
	      case 2:
	        if(($cen + $dec + $uni >= 1) && $this->val(substr($numTmp, 6, 3)) == 0){
	          $leyenda = "mil millones ";
	        }elseif($cen + $dec + $uni >= 1){
	          $leyenda = "mil ";
	        }
			break;
	      case 3:
	        if(($cen + $dec == 0) && ($uni == 1)){
	          $leyenda = "millon ";
	        }elseif(($cen > 0) || ($dec > 0) || ($uni > 1)){
	          $leyenda = "millones ";
	        }
			break;
	      case 4:
	        if(($cen + $dec + $uni) >= 1){
	          $leyenda = "mil ";
	        }
			break;
	      case 5:
	        if($cen + $dec + $uni >= 1){
	          $leyenda = "";
	        }
			break;
	     }

	      $co1++;
	      $tFNumero = $tFNumero . $letra3 . $letra2 . $letra1 . $leyenda;

	      $leyenda = "";
	      $letra1 = "";
	      $letra2 = "";
	      $letra3 = "";
	  }//fin while

	  return $tFNumero;
	}

	function centena($uni , $dec , $cen) {
	 $cTexto = "";
	 switch($cen){
	    case 1:
	      if(($dec + $uni) == 0){
	        $cTexto = "cien ";
	      }else{
	        $cTexto = "ciento ";
		  }
	      break;
	    case 2: $cTexto = "doscientos "; break;
	    case 3: $cTexto = "trescientos "; break;
	    case 4: $cTexto = "cuatrocientos "; break;
	    case 5: $cTexto = "quinientos "; break;
	    case 6: $cTexto = "seiscientos "; break;
	    case 7: $cTexto = "setecientos "; break;
	    case 8: $cTexto = "ochocientos "; break;
	    case 9: $cTexto = "novecientos "; break;
	    default: $cTexto = "";
	   }

	  return $cTexto;
	}

	function decena($uni , $dec ){ 
		$cTexto  = "";

	    switch($dec){
			case 1:
			  switch($uni){
				case 0: $cTexto = "diez "; break;
				case 1: $cTexto = "once "; break;
				case 2: $cTexto = "doce "; break;
				case 3: $cTexto = "trece "; break;
				case 4: $cTexto = "catorce "; break;
				case 5: $cTexto = "quince "; break;
				case 6: $cTexto = "dieci"; break;
				case 7: $cTexto = "dieci"; break;
				case 8: $cTexto = "dieci"; break;
				case 9: $cTexto = "dieci"; break;
			  }
			  break;
			case 2:
			  if($uni == 0){
				$cTexto = "veinte ";
			  }elseif($uni > 0){
				$cTexto = "veinti";
			  }
			  break;
			case 3: $cTexto = "treinta "; break;
			case 4: $cTexto = "cuarenta "; break;
			case 5: $cTexto = "cincuenta "; break;
			case 6: $cTexto = "sesenta "; break;
			case 7: $cTexto = "setenta "; break;
			case 8: $cTexto = "ochenta "; break;
			case 9: $cTexto = "noventa "; break;
			default: $cTexto = "";
	    }

	 $cTexto = $uni > 0 && $dec > 2 ? $cTexto . "y " : $cTexto;

	 return $cTexto;
	}

	function unidad($uni, $dec){
	  $cTexto = "";

	  if($dec != 1){
	    switch($uni){
	      case 1: $cTexto = "un "; break;
	      case 2: $cTexto = "dos "; break;
	      case 3: $cTexto = "tres "; break;
	      case 4: $cTexto = "cuatro "; break;
	      case 5: $cTexto = "cinco "; break;
	    }
	  }
	  switch($uni){
	    case 6: $cTexto = "seis "; break;
	    case 7: $cTexto = "siete "; break;
	    case 8: $cTexto = "ocho "; break;
	    case 9: $cTexto = "nueve "; break;
	  }

	  return $cTexto;

	}

	//'Funcion que convierte al plural el argumento pasado
	function plural($palabra) {
		$pos  = "";
		$strPal = "";

	  if(strlen(trim($palabra)) > 0){
	    $pos = strpos("aeiou", substr($palabra, -1, 1));

		if($pos > 0){
	      $strPal = $palabra . "s";
	    }else{
	      $strPal = $palabra . "es";
	    }
	  }
	  return $strPal;
	}

	//'--- Pequeños Hacks para funciones que no tenemos disponibles en VbScript ---

	function format($cadena, $formato){
		$arr = "";
		$entero = "";
		$decimal = "";
		if(!is_numeric($cadena)){
			$cadena = 0;
		}

		$cadena = number_format($cadena, 2);

		if(substr_count($formato, ".") == 1){
			// Indispensables [] para detectat los siguientes caracteres / . -
			$arr = split("[.]", $formato);
			$entero = trim($arr[0]);
			$decimal = trim($arr[1]);
		}else{
			$entero = $formato;
		}

		//--Eliminamos la coma
		$cadena = str_replace(",","",$cadena);
		// Crea una cadena standar con ceros a la izquierda (podria usarse sprintf?)
		$cadena = substr($entero, 0, (strlen($entero)-(strlen($cadena)-3))) . $cadena;
		return $cadena;
	}

	function val($parametro){

		$parametro = trim($parametro);

		if((!empty($parametro) && $parametro!="" && !is_null($parametro)) && is_numeric($parametro)){
			$parametro = $parametro * 1;
		}else{
			$parametro = 0;
		}

		return $parametro;
	}

}	
?>

El uso es bastante sencillo como lo demuestro a continuación:

$num2Texto = new Numero2Texto();
$num2Texto->numeroTexto($numero, $moneda, $fraccionLetras, $fraccion, $textoInicial, $textoFinal, $estilo)