[APORTE] Funcion para convertir numeros a letras

[ginitofl]

Hola a Todos publico esta pequeña funcion para todos aquellos que necesiten de una funcion para poder convertir numeros a letras, en este caso lo hice para la moneda de Peru (Nuevo Sol), espero sus apreciaciones y tambien si hay que mejorar o cambiar algo. por ahora convierte numeros de 1 a 999999999.99, bueno la funcion es esta lo guardo como cantidadenletras.php:

Código PHP:

  <?php
function CantidadEnLetra($tyCantidad) 
{ 
$tyCantidad = round($tyCantidad * 100) / 100;
$lyCantidad = (int)$tyCantidad;
$lyCentavos = ($tyCantidad - $lyCantidad) * 100;
$lyCentavos = round($lyCentavos * 100) / 100;
$laUnidades = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", "VEINTIUN", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE");
$laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA");
$laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS");
$lnNumeroBloques = 0;
do
{
    $lnNumeroBloques++;
    $lnPrimerDigito = 0;
    $lnSegundoDigito = 0;
    $lnTercerDigito = 0;
    $lcBloque = "";
    $lnBloqueCero = 0;
    for($i = 1; $i <= 3; $i++)
    {
        $lnDigito = $lyCantidad &#37; 10;
        if($lnDigito != 0)
        {
            switch($i)
            {
                case 1:
                    $lcBloque = " " . $laUnidades[$lnDigito - 1];
                    $lnPrimerDigito = $lnDigito;
                    break;
                case 2:
                    If ($lnDigito <= 2)
                    {
                        $lcBloque = " " . $laUnidades[($lnDigito * 10) + $lnPrimerDigito - 1];
                    }
                    else
                    {
                        if($lnPrimerDigito != 0)
                        {
                        $y =" Y";
                        }
                        else
                        {
                        $y=" ";
                        }
                        
                        $lcBloque = " " . $laDecenas[$lnDigito - 1] . $y . $lcBloque;
                    }
                    $lnSegundoDigito = $lnDigito;
                    break;
                case 3:
                    if($lnDigito == 1 and $lnPrimerDigito == 0 and $lnSegundoDigito == 0)
                    {
                        $cien = "CIEN";
                    }
                    else
                    {
                        $cien = $laCentenas[$lnDigito - 1];
                    }
                    $lcBloque = " " . $cien . $lcBloque;
                    $lnTercerDigito = $lnDigito;
                    break;
            }
        }
        else
        {
            $lnBloqueCero = $lnBloqueCero + 1;
        }
        $lyCantidad = $lyCantidad / 10;
        $lyCantidad = (int)$lyCantidad;
        If ($lyCantidad == 0)
        {
            break;
        }
    }
    switch($lnNumeroBloques)
    {
        case 1:
            $CantidadEnLetra = $lcBloque;
            $CORTALETRA = substr($CantidadEnLetra, -2); 
            if ($CORTALETRA == "UN")
            {
                $CantidadEnLetra = $lcBloque . "O";
            }
            break;
        case 2:
            if ($lcBloque == " UN")
            {
                if($lnBloqueCero != 3)
                {
                $mil= " MIL";
                }
                $CantidadEnLetra = $mil . $CantidadEnLetra;
                $CORTALETRA = substr($CantidadEnLetra, -2);
                if ($CORTALETRA == "UN")
                {
                    $CantidadEnLetra = $lcBloque . "O";
                }
            }
            else
            {
                if($lnBloqueCero != 3)
                {
                    $mil=" MIL";
                }
                $CantidadEnLetra = $lcBloque . $mil . $CantidadEnLetra;
                $CORTALETRA = substr($CantidadEnLetra, -2);
                if (CORTALETRA == "UN")
                {
                    $CantidadEnLetra = $lcBloque . "O";
                }
            }
            break;
        case 3:
            if($lnPrimerDigito == 1 And $lnSegundoDigito == 0 And $lnTercerDigito == 0)
            {
            $millon= " MILLON";
            }
            else
            {
            $millon= " MILLONES";
            }
            $CantidadEnLetra = $lcBloque . $millon . $CantidadEnLetra;
            $CORTALETRA = substr($CantidadEnLetra, -2);
            if ($CORTALETRA == "UN")
            {
                $CantidadEnLetra = $lcBloque . "O";
            }
            break;
        }
}while($lyCantidad > 0);
$con=" CON ";
$CantidadEnLetra = $CantidadEnLetra . $con . $lyCentavos . "/100 NUEVOS SOLES";
return $CantidadEnLetra;
}
//PARA LLAMAR A LA FUNCION
//echo CantidadEnLetra(1289191);
//echo "<br>";
//CantidadEnLetra(999999999.99);
?>   

Saludos.