Foro - Perl en Español

La comunidad de programadores en Perl de habla hispana.

Obviar


  • Publicidad

Convertir números a letras

Discute todo acerca de JavaScript así como DHTML o la tecnología AJAX.
Publicar una respuesta

Convertir números a letras

Notapor luisbal » 2008-11-30 11:33 @523

Estimados amigos:
Me devano los sesos y no doy con el error. Este script convierte números a letras, me parece muy útil. El problema es que cuando el número decimal es igual o mayor que 0.50 devuelve el entero aumentado en uno.
Por ejemplo: 23.40 devuelve veintitrés y 40 (bien)
pero en 23.50 devuelve veinticuatro y 50 (error)

Les envió el script a ver si solucionan el error, les agradezco cualquier ayuda.

Sintáxis: [ Descargar ] [ Ocultar ]
Using javascript Syntax Highlighting
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>

<script language="javascript">
 
// Función modulo, regresa el residuo de una división
function mod(dividendo , divisor)
{
  resDiv = dividendo / divisor ;  
  parteEnt = Math.floor(resDiv);            // Obtiene la parte Entera de resDiv
  parteFrac = resDiv - parteEnt ;      // Obtiene la parte Fraccionaria de la división
  modulo = Math.round(parteFrac * divisor);  // Regresa la parte fraccionaria * la división (modulo)
  return modulo;
} // Fin de función mod

// Función ObtenerParteEntDiv, regresa la parte entera de una división
function ObtenerParteEntDiv(dividendo , divisor)
{
  resDiv = dividendo / divisor ;  
  parteEntDiv = Math.floor(resDiv);
  return parteEntDiv;
} // Fin de función ObtenerParteEntDiv

// function fraction_part, regresa la parte Fraccionaria de una cantidad
function fraction_part(dividendo , divisor)
{
  resDiv = dividendo / divisor ;  
  f_part = Math.floor(resDiv);
  return f_part;
} // Fin de función fraction_part


// function string_literal conversion is the core of this program
// converts numbers to spanish strings, handling the general special
// cases in spanish language.
function string_literal_conversion(number)
{  
   // first, divide your number in hundreds, tens and units, cascadig
   // trough subsequent divisions, using the modulus of each division
   // for the next.

   centenas = ObtenerParteEntDiv(number, 100);
   
   number = mod(number, 100);

   decenas = ObtenerParteEntDiv(number, 10);
   number = mod(number, 10);

   unidades = ObtenerParteEntDiv(number, 1);
   number = mod(number, 1);  
   string_hundreds="";
   string_tens="";
   string_units="";
   // cascade trough hundreds. This will convert the hundreds part to
   // their corresponding string in spanish.
   if(centenas == 1){
      string_hundreds = "ciento ";
   }
   
   
   if(centenas == 2){
      string_hundreds = "doscientos ";
   }
   
   if(centenas == 3){
      string_hundreds = "trescientos ";
   }
   
   if(centenas == 4){
      string_hundreds = "cuatrocientos ";
   }
   
   if(centenas == 5){
      string_hundreds = "quinientos ";
   }
   
   if(centenas == 6){
      string_hundreds = "seiscientos ";
   }
   
   if(centenas == 7){
      string_hundreds = "setecientos ";
   }
   
   if(centenas == 8){
      string_hundreds = "ochocientos ";
   }
   
   if(centenas == 9){
      string_hundreds = "novecientos ";
   }
   
 // end switch hundreds

   // casgade trough tens. This will convert the tens part to corresponding
   // strings in spanish. Note, however that the strings between 11 and 19
   // are all special cases. Also 21-29 is a special case in spanish.
   if(decenas == 1){
      //Special case, depends on units for each conversion
      if(unidades == 1){
         string_tens = "once";
      }
     
      if(unidades == 2){
         string_tens = "doce";
      }
     
      if(unidades == 3){
         string_tens = "trece";
      }
     
      if(unidades == 4){
         string_tens = "catorce";
      }
     
      if(unidades == 5){
         string_tens = "quince";
      }
     
      if(unidades == 6){
         string_tens = "dieciseis";
      }
     
      if(unidades == 7){
         string_tens = "diecisiete";
      }
     
      if(unidades == 8){
         string_tens = "dieciocho";
      }
     
      if(unidades == 9){
         string_tens = "diecinueve";
      }
   }
   //alert("STRING_TENS ="+string_tens);
   
   if(decenas == 2){
      string_tens = "veinti";

   }
   if(decenas == 3){
      string_tens = "treinta";
   }
   if(decenas == 4){
      string_tens = "cuarenta";
   }
   if(decenas == 5){
      string_tens = "cincuenta";
   }
   if(decenas == 6){
      string_tens = "sesenta";
   }
   if(decenas == 7){
      string_tens = "setenta";
   }
   if(decenas == 8){
      string_tens = "ochenta";
   }
   if(decenas == 9){
      string_tens = "noventa";
   }
   
    // Fin de swicth decenas


   // cascades trough units, This will convert the units part to corresponding
   // strings in spanish. Note however that a check is being made to see wether
   // the special cases 11-19 were used. In that case, the whole conversion of
   // individual units is ignored since it was already made in the tens cascade.

   if (decenas == 1)
   {
      string_units="";  // empties the units check, since it has alredy been handled on the tens switch
   }
   else
   {
      if(unidades == 1){
         string_units = "un";
      }
      if(unidades == 2){
         string_units = "dos";
      }
      if(unidades == 3){
         string_units = "tres";
      }
      if(unidades == 4){
         string_units = "cuatro";
      }
      if(unidades == 5){
         string_units = "cinco";
      }
      if(unidades == 6){
         string_units = "seis";
      }
      if(unidades == 7){
         string_units = "siete";
      }
      if(unidades == 8){
         string_units = "ocho";
      }
      if(unidades == 9){
         string_units = "nueve";
      }
       // end switch units
   } // end if-then-else
   

//final special cases. This conditions will handle the special cases which
//are not as general as the ones in the cascades. Basically four:

// when you've got 100, you dont' say 'ciento' you say 'cien'
// 'ciento' is used only for [101 >= number > 199]
if (centenas == 1 && decenas == 0 && unidades == 0)
{
   string_hundreds = "cien " ;
}  

// when you've got 10, you don't say any of the 11-19 special
// cases.. just say 'diez'
if (decenas == 1 && unidades ==0)
{
   string_tens = "diez " ;
}

// when you've got 20, you don't say 'veinti', which is used
// only for [21 >= number > 29]
if (decenas == 2 && unidades ==0)
{
  string_tens = "veinte " ;
}

// for numbers >= 30, you don't use a single word such as veintiuno
// (twenty one), you must add 'y' (and), and use two words. v.gr 31
// 'treinta y uno' (thirty and one)
if (decenas >=3 && unidades >=1)
{
   string_tens = string_tens+" y ";
}

// this line gathers all the hundreds, tens and units into the final string
// and returns it as the function value.
final_string = string_hundreds+string_tens+string_units;


return final_string ;

} //end of function string_literal_conversion()================================

// handle some external special cases. Specially the millions, thousands
// and hundreds descriptors. Since the same rules apply to all number triads
// descriptions are handled outside the string conversion function, so it can
// be re used for each triad.


function covertirNumLetras(number)
{
   
  //number = number_format (number, 2);
   number1=number;
   //settype (number, "integer");
   cent = number1.split(".");  
   centavos = cent[1];
   
   
   if (centavos == 0 || centavos == undefined){
   centavos = "00";}

   if (number == 0 || number == "")
   { // if amount = 0, then forget all about conversions,
      centenas_final_string=" cero "; // amount is zero (cero). handle it externally, to
      // function breakdown
  }
   else
   {
   
     millions  = ObtenerParteEntDiv(number, 1000000); // first, send the millions to the string
      number = mod(number, 1000000);           // conversion function
     
     if (millions != 0)
      {                      
      // This condition handles the plural case
         if (millions == 1)
         {              // if only 1, use 'millon' (million). if
            descriptor= " millon ";  // > than 1, use 'millones' (millions) as
            }
         else
         {                           // a descriptor for this triad.
              descriptor = " millones ";
            }
      }
      else
      {    
         descriptor = " ";                 // if 0 million then use no descriptor.
      }
      millions_final_string = string_literal_conversion(millions)+descriptor;
         
     
      thousands = ObtenerParteEntDiv(number, 1000);  // now, send the thousands to the string
        number = mod(number, 1000);            // conversion function.
      //print "Th:".thousands;
     if (thousands != 1)
      {                   // This condition eliminates the descriptor
         thousands_final_string =string_literal_conversion(thousands) + " mil ";
       //  descriptor = " mil ";          // if there are no thousands on the amount
      }
      if (thousands == 1)
      {
         thousands_final_string = " mil ";
     }
      if (thousands < 1)
      {
         thousands_final_string = " ";
      }
 
      // this will handle numbers between 1 and 999 which
      // need no descriptor whatsoever.

     centenas  = number;                    
      centenas_final_string = string_literal_conversion(centenas) ;
     
   } //end if (number ==0)

   /*if (ereg("un",centenas_final_string))
   {
     centenas_final_string = ereg_replace("","o",centenas_final_string);
   }*/
   //finally, print the output.

   /* Concatena los millones, miles y cientos*/
   cad = millions_final_string+thousands_final_string+centenas_final_string;
   
   /* Convierte la cadena a Mayúsculas*/
   cad = cad.toUpperCase();      

   if (centavos.length>2)
   {  
      if(centavos.substring(2,3)>= 5){
         centavos = centavos.substring(0,1)+(parseInt(centavos.substring(1,2))+1).toString();
      }   else{
        centavos = centavos.substring(0,2);
       }
   }

   /* Concatena a los centavos la cadena "/100" */
   if (centavos.length==1)
   {
      centavos = centavos+"0";
   }
   centavos = centavos+ "/100";


   /* Asigna el tipo de moneda, para 1 = PESO, para distinto de 1 = PESOS*/
   if (number == 1)
   {
      moneda = " PESO ";  
   }
   else
   {
      moneda = " PESOS ";  
   }
   /* Regresa el número en cadena entre paréntesis y con tipo de moneda y la fase M.N.*/
   alert( "FINAL="+cad+moneda+centavos+" 00/100 M.N. )");
}


</script>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>

<script> covertirNumLetras("3.20");</script>
</body>
</html>
Coloreado en 0.006 segundos, usando GeSHi 1.0.8.4
luisbal
Perlero nuevo
Perlero nuevo
 
Mensajes: 20
Registrado: 2008-09-12 09:36 @442
Arriba

Publicidad

Re: Convertir números a letras

Notapor Mind800 » 2010-08-20 13:47 @616

Hola, buscando en la red una manera de convertir cantidades numéricas a letras encontré tu script, el cual está muy bueno, solo con el error que mencionas. Así que me di a la tarea de revisar el código, y encontré la respuesta, en la parte de abajo separas los centavos del número para redondearlos y trabajarlos a parte:
Sintáxis: [ Descargar ] [ Ocultar ]
Using javascript Syntax Highlighting
number1 = number;
cent = number1.split(".");  
centavos = cent[1];
 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


El problema radica en que si ya separaste los centavos, no sobreescribes la variable "number" para dejar solo el número entero, la dejas tal cual con centavos. La función original por lo visto no estaba pensada para usar centavos puesto que hay una función que hace un "math.round" y como le dejas los centavos redondea el número.

Para corregir el error basta con agregar esta línea después de "centavos = cent[1];"
Sintáxis: [ Descargar ] [ Ocultar ]
Using javascript Syntax Highlighting
//Mind Mod
number = cent[0];
 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Con esto ya no habrá el problema del número redondeado.

Ya sé que el tema es muy viejo y a lo mejor ya resolviste el problema, pero a lo mejor alguien más como yo necesita esta función y se topa con el post. De esta manera ya podrá encontrarla lista para usar.

Aquí pongo de nuevo el código completo ya corregido y con unas modificaciones para el caso de 1000 pesos.

Saludos.

Sintáxis: [ Descargar ] [ Ocultar ]
Using javascript Syntax Highlighting
  1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  2. <html xmlns="http://www.w3.org/1999/xhtml">
  3. <head>
  4.  
  5. <script language="javascript">
  6.  
  7. // Función modulo, regresa el residuo de una división
  8. function mod(dividendo , divisor)
  9. {
  10.   resDiv = dividendo / divisor ;  
  11.   parteEnt = Math.floor(resDiv);            // Obtiene la parte Entera de resDiv
  12.   parteFrac = resDiv - parteEnt ;      // Obtiene la parte Fraccionaria de la división
  13.   //modulo = parteFrac * divisor;  // Regresa la parte fraccionaria * la división (modulo)
  14.   modulo = Math.round(parteFrac * divisor)
  15.   return modulo;
  16. } // Fin de función mod
  17.  
  18. // Función ObtenerParteEntDiv, regresa la parte entera de una división
  19. function ObtenerParteEntDiv(dividendo , divisor)
  20. {
  21.   resDiv = dividendo / divisor ;  
  22.   parteEntDiv = Math.floor(resDiv);
  23.   return parteEntDiv;
  24. } // Fin de función ObtenerParteEntDiv
  25.  
  26. // function fraction_part, regresa la parte Fraccionaria de una cantidad
  27. function fraction_part(dividendo , divisor)
  28. {
  29.   resDiv = dividendo / divisor ;  
  30.   f_part = Math.floor(resDiv);
  31.   return f_part;
  32. } // Fin de función fraction_part
  33.  
  34.  
  35. // function string_literal conversion is the core of this program
  36. // converts numbers to spanish strings, handling the general special
  37. // cases in spanish language.
  38. function string_literal_conversion(number)
  39. {  
  40.    // first, divide your number in hundreds, tens and units, cascadig
  41.    // trough subsequent divisions, using the modulus of each division
  42.    // for the next.
  43.  
  44.    centenas = ObtenerParteEntDiv(number, 100);
  45.    
  46.    number = mod(number, 100);
  47.  
  48.    decenas = ObtenerParteEntDiv(number, 10);
  49.    number = mod(number, 10);
  50.  
  51.    unidades = ObtenerParteEntDiv(number, 1);
  52.    number = mod(number, 1);  
  53.    string_hundreds="";
  54.    string_tens="";
  55.    string_units="";
  56.    // cascade trough hundreds. This will convert the hundreds part to
  57.    // their corresponding string in spanish.
  58.    if(centenas == 1){
  59.       string_hundreds = "ciento ";
  60.    }
  61.    
  62.    
  63.    if(centenas == 2){
  64.       string_hundreds = "doscientos ";
  65.    }
  66.    
  67.    if(centenas == 3){
  68.       string_hundreds = "trescientos ";
  69.    }
  70.    
  71.    if(centenas == 4){
  72.       string_hundreds = "cuatrocientos ";
  73.    }
  74.    
  75.    if(centenas == 5){
  76.       string_hundreds = "quinientos ";
  77.    }
  78.    
  79.    if(centenas == 6){
  80.       string_hundreds = "seiscientos ";
  81.    }
  82.    
  83.    if(centenas == 7){
  84.       string_hundreds = "setecientos ";
  85.    }
  86.    
  87.    if(centenas == 8){
  88.       string_hundreds = "ochocientos ";
  89.    }
  90.    
  91.    if(centenas == 9){
  92.       string_hundreds = "novecientos ";
  93.    }
  94.    
  95.  // end switch hundreds
  96.  
  97.    // casgade trough tens. This will convert the tens part to corresponding
  98.    // strings in spanish. Note, however that the strings between 11 and 19
  99.    // are all special cases. Also 21-29 is a special case in spanish.
  100.    if(decenas == 1){
  101.       //Special case, depends on units for each conversion
  102.       if(unidades == 1){
  103.          string_tens = "once";
  104.       }
  105.      
  106.       if(unidades == 2){
  107.          string_tens = "doce";
  108.       }
  109.      
  110.       if(unidades == 3){
  111.          string_tens = "trece";
  112.       }
  113.      
  114.       if(unidades == 4){
  115.          string_tens = "catorce";
  116.       }
  117.      
  118.       if(unidades == 5){
  119.          string_tens = "quince";
  120.       }
  121.      
  122.       if(unidades == 6){
  123.          string_tens = "dieciseis";
  124.       }
  125.      
  126.       if(unidades == 7){
  127.          string_tens = "diecisiete";
  128.       }
  129.      
  130.       if(unidades == 8){
  131.          string_tens = "dieciocho";
  132.       }
  133.      
  134.       if(unidades == 9){
  135.          string_tens = "diecinueve";
  136.       }
  137.    }
  138.    //alert("STRING_TENS ="+string_tens);
  139.    
  140.    if(decenas == 2){
  141.       string_tens = "veinti";
  142.  
  143.    }
  144.    if(decenas == 3){
  145.       string_tens = "treinta";
  146.    }
  147.    if(decenas == 4){
  148.       string_tens = "cuarenta";
  149.    }
  150.    if(decenas == 5){
  151.       string_tens = "cincuenta";
  152.    }
  153.    if(decenas == 6){
  154.       string_tens = "sesenta";
  155.    }
  156.    if(decenas == 7){
  157.       string_tens = "setenta";
  158.    }
  159.    if(decenas == 8){
  160.       string_tens = "ochenta";
  161.    }
  162.    if(decenas == 9){
  163.       string_tens = "noventa";
  164.    }
  165.    
  166.     // Fin de swicth decenas
  167.  
  168.  
  169.    // cascades trough units, This will convert the units part to corresponding
  170.    // strings in spanish. Note however that a check is being made to see wether
  171.    // the special cases 11-19 were used. In that case, the whole conversion of
  172.    // individual units is ignored since it was already made in the tens cascade.
  173.  
  174.    if (decenas == 1)
  175.    {
  176.       string_units="";  // empties the units check, since it has alredy been handled on the tens switch
  177.    }
  178.    else
  179.    {
  180.       if(unidades == 1){
  181.          string_units = "un";
  182.       }
  183.       if(unidades == 2){
  184.          string_units = "dos";
  185.       }
  186.       if(unidades == 3){
  187.          string_units = "tres";
  188.       }
  189.       if(unidades == 4){
  190.          string_units = "cuatro";
  191.       }
  192.       if(unidades == 5){
  193.          string_units = "cinco";
  194.       }
  195.       if(unidades == 6){
  196.          string_units = "seis";
  197.       }
  198.       if(unidades == 7){
  199.          string_units = "siete";
  200.       }
  201.       if(unidades == 8){
  202.          string_units = "ocho";
  203.       }
  204.       if(unidades == 9){
  205.          string_units = "nueve";
  206.       }
  207.        // end switch units
  208.    } // end if-then-else
  209.    
  210.  
  211. //final special cases. This conditions will handle the special cases which
  212. //are not as general as the ones in the cascades. Basically four:
  213.  
  214. // when you've got 100, you dont' say 'ciento' you say 'cien'
  215. // 'ciento' is used only for [101 >= number > 199]
  216. if (centenas == 1 && decenas == 0 && unidades == 0)
  217. {
  218.    string_hundreds = "cien " ;
  219. }  
  220.  
  221. // when you've got 10, you don't say any of the 11-19 special
  222. // cases.. just say 'diez'
  223. if (decenas == 1 && unidades ==0)
  224. {
  225.    string_tens = "diez " ;
  226. }
  227.  
  228. // when you've got 20, you don't say 'veinti', which is used
  229. // only for [21 >= number > 29]
  230. if (decenas == 2 && unidades ==0)
  231. {
  232.   string_tens = "veinte " ;
  233. }
  234.  
  235. // for numbers >= 30, you don't use a single word such as veintiuno
  236. // (twenty one), you must add 'y' (and), and use two words. v.gr 31
  237. // 'treinta y uno' (thirty and one)
  238. if (decenas >=3 && unidades >=1)
  239. {
  240.    string_tens = string_tens+" y ";
  241. }
  242.  
  243. // this line gathers all the hundreds, tens and units into the final string
  244. // and returns it as the function value.
  245. final_string = string_hundreds+string_tens+string_units;
  246.  
  247.  
  248. return final_string ;
  249.  
  250. } //end of function string_literal_conversion()================================
  251.  
  252. // handle some external special cases. Specially the millions, thousands
  253. // and hundreds descriptors. Since the same rules apply to all number triads
  254. // descriptions are handled outside the string conversion function, so it can
  255. // be re used for each triad.
  256.  
  257.  
  258. function covertirNumLetras(number)
  259. {
  260.    
  261.   //number = number_format (number, 2);
  262.    number1=number;
  263.    //settype (number, "integer");
  264.    cent = number1.split(".");  
  265.    centavos = cent[1];
  266.    //Mind Mod
  267.    number=cent[0];
  268.    
  269.    if (centavos == 0 || centavos == undefined)
  270.    {
  271.         centavos = "00";
  272.    }
  273.  
  274.    if (number == 0 || number == "")
  275.    { // if amount = 0, then forget all about conversions,
  276.       centenas_final_string=" cero "; // amount is zero (cero). handle it externally, to
  277.       // function breakdown
  278.   }
  279.    else
  280.    {
  281.    
  282.      millions  = ObtenerParteEntDiv(number, 1000000); // first, send the millions to the string
  283.       number = mod(number, 1000000);           // conversion function
  284.      
  285.      if (millions != 0)
  286.       {                      
  287.       // This condition handles the plural case
  288.          if (millions == 1)
  289.          {              // if only 1, use 'millon' (million). if
  290.             descriptor= " millon ";  // > than 1, use 'millones' (millions) as
  291.             }
  292.          else
  293.          {                           // a descriptor for this triad.
  294.               descriptor = " millones ";
  295.             }
  296.       }
  297.       else
  298.       {    
  299.          descriptor = " ";                 // if 0 million then use no descriptor.
  300.       }
  301.       millions_final_string = string_literal_conversion(millions)+descriptor;
  302.          
  303.      
  304.       thousands = ObtenerParteEntDiv(number, 1000);  // now, send the thousands to the string
  305.         number = mod(number, 1000);            // conversion function.
  306.       //print "Th:".thousands;
  307.      if (thousands != 1)
  308.       {                   // This condition eliminates the descriptor
  309.          thousands_final_string =string_literal_conversion(thousands) + " mil ";
  310.        //  descriptor = " mil ";          // if there are no thousands on the amount
  311.       }
  312.       if (thousands == 1)
  313.       {
  314.          thousands_final_string = " mil ";
  315.      }
  316.       if (thousands < 1)
  317.       {
  318.          thousands_final_string = " ";
  319.       }
  320.  
  321.       // this will handle numbers between 1 and 999 which
  322.       // need no descriptor whatsoever.
  323.  
  324.      centenas  = number;                    
  325.       centenas_final_string = string_literal_conversion(centenas) ;
  326.      
  327.    } //end if (number ==0)
  328.  
  329.    /*if (ereg("un",centenas_final_string))
  330.    {
  331.      centenas_final_string = ereg_replace("","o",centenas_final_string);
  332.    }*/
  333.    //finally, print the output.
  334.  
  335.    /* Concatena los millones, miles y cientos*/
  336.    cad = millions_final_string+thousands_final_string+centenas_final_string;
  337.    
  338.    /* Convierte la cadena a Mayúsculas*/
  339.    cad = cad.toUpperCase();      
  340.  
  341.    if (centavos.length>2)
  342.    {  
  343.        
  344.       if(centavos.substring(2,3)>= 5){
  345.          centavos = centavos.substring(0,1)+(parseInt(centavos.substring(1,2))+1).toString();
  346.       }   else{
  347.          
  348.         centavos = centavos.substring(0,1);
  349.       }
  350.    }
  351.  
  352.    /* Concatena a los centavos la cadena "/100" */
  353.    if (centavos.length==1)
  354.    {
  355.       centavos = centavos+"0";
  356.    }
  357.    centavos = centavos+ "/100";
  358.  
  359.  
  360.    /* Asigna el tipo de moneda, para 1 = PESO, para distinto de 1 = PESOS*/
  361.    if (number == 1)
  362.    {
  363.       moneda = " PESO ";  
  364.    }
  365.    else
  366.    {
  367.       moneda = " PESOS ";  
  368.    }
  369.    /* Regresa el número en cadena entre paréntesis y con tipo de moneda y la fase M.N.*/
  370.    //Mind Mod, si se deja MIL pesos y se utiliza esta función para imprimir documentos
  371.    //de caracter legal, dejar solo MIL es incorrecto, para evitar fraudes se debe de poner UM MIL pesos
  372.    if(cad == '  MIL ')
  373.    {
  374.         cad=' UN MIL ';
  375.    }
  376.    
  377.    alert( "FINAL="+cad+moneda+centavos+" M.N.");
  378.    return cad+moneda+centavos+" M.N.";
  379. }
  380.  
  381.  
  382. </script>
  383.  
  384. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  385. <title>Untitled Document</title>
  386. </head>
  387.  
  388. <body>
  389. //Mind Mod - numero de 12 millones con varios decimales para que comprueben su efectividad
  390. <script> covertirNumLetras("12456789.459786");</script>
  391. </body>
  392. </html>
  393.  
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Mind800
Perlero nuevo
Perlero nuevo
 
Mensajes: 2
Registrado: 2010-08-20 12:32 @564
Arriba

Re: Convertir números a letras

Notapor luisbal » 2010-08-20 14:45 @656

No que va te agradezco, en nombre pienso yo de todos los demás internautas.

En efecto este problema lo tuve hace tiempo y nunca llegué a resolverlo: opté por utilizar un módulo de Perl que me facilitó la tarea. De todos modos estoy copiando tu solución para guardarla en mi PC: nunca se sabe cuándo volverás a utilizarlo.

Muchas gracias, de verdad.
luisbal
Perlero nuevo
Perlero nuevo
 
Mensajes: 20
Registrado: 2008-09-12 09:36 @442
Arriba

Re: Convertir números a letras

Notapor Mind800 » 2010-08-20 15:01 @667

De nada, espero que esto sea de ayuda para alguien más, como lo fue para mi, el script que publicaste me ahorró mucho tiempo, lo mínimo que podía hacer era contribuir para que ayude a alguien más.
Mind800
Perlero nuevo
Perlero nuevo
 
Mensajes: 2
Registrado: 2010-08-20 12:32 @564
Arriba

Re: Convertir números a letras

Notapor Dodomac » 2010-09-26 13:35 @607

Es ahora que necesité rápidamente hacer esta conversión para una plantilla de factura. Les agradezco que lo hayan publicado, ya que me sacó de apuros. Al implementarlo encontré un "medio error"... se trata de que la función function convertirNumLetras(number) {} interpreta el number como string y falta convertir el valor en string.

Aquí está mi modificación:
Sintáxis: [ Descargar ] [ Ocultar ]
Using javascript Syntax Highlighting
number1=number.toString();
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4

En lugar de:
Sintáxis: [ Descargar ] [ Ocultar ]
Using javascript Syntax Highlighting
  1. number1=number;
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Para capturar el valor de una variable de otro lenguaje (PHP, Python, etc) le agregué esta función y lo relacioné con el evento "onLoad" en el BODY:

Sintáxis: [ Descargar ] [ Ocultar ]
Using javascript Syntax Highlighting
  1. function doSpanish(importe) {
  2.     document.getElementById('spn').innerHTML='( '+convertirNumLetras(importe)+ ' )';
  3.         return true;
  4.     }
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Contenido HTML:

Sintáxis: [ Descargar ] [ Ocultar ]
Using javascript Syntax Highlighting
  1. <body onLoad="doSpanish($variabilaValue)">
  2.                 <div id="spn" style="float:left;margin:40px auto;">XXX</div>
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Para estar más claro, aquí está todo con las modificaciones. Espero que les sirvan a otros también :)

Sintáxis: [ Descargar ] [ Ocultar ]
Using javascript Syntax Highlighting
  1. <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
  2.    "http://www.w3.org/TR/html4/loose.dtd">
  3.  
  4. <html lang="en">
  5. <head>
  6.         <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
  7.         <title>Converción importe a letras</title>
  8.  
  9. <script type="application/javascript">
  10. // Función modulo, regresa el residuo de una división
  11. function mod(dividendo , divisor)
  12. {
  13.   resDiv = dividendo / divisor ;  
  14.   parteEnt = Math.floor(resDiv);            // Obtiene la parte Entera de resDiv
  15.   parteFrac = resDiv - parteEnt ;      // Obtiene la parte Fraccionaria de la división
  16.   //modulo = parteFrac * divisor;  // Regresa la parte fraccionaria * la división (modulo)
  17.   modulo = Math.round(parteFrac * divisor)
  18.   return modulo;
  19. }
  20. // Fin de función mod
  21.  
  22. // Función ObtenerParteEntDiv, regresa la parte entera de una división
  23. function ObtenerParteEntDiv(dividendo , divisor)
  24. {
  25.   resDiv = dividendo / divisor ;  
  26.   parteEntDiv = Math.floor(resDiv);
  27.   return parteEntDiv;
  28. }
  29. // Fin de función ObtenerParteEntDiv
  30.  
  31. // function fraction_part, regresa la parte Fraccionaria de una cantidad
  32. function fraction_part(dividendo , divisor)
  33. {
  34.   resDiv = dividendo / divisor ;  
  35.   f_part = Math.floor(resDiv);
  36.   return f_part;
  37. }
  38. // Fin de función fraction_part
  39.  
  40. // function string_literal conversion is the core of this program
  41. // converts numbers to spanish strings, handling the general special
  42. // cases in spanish language.
  43. function string_literal_conversion(number)
  44. {  
  45.    // first, divide your number in hundreds, tens and units, cascadig
  46.    // trough subsequent divisions, using the modulus of each division
  47.    // for the next.
  48.  
  49.    centenas = ObtenerParteEntDiv(number, 100);
  50.    number = mod(number, 100);
  51.    decenas = ObtenerParteEntDiv(number, 10);
  52.    number = mod(number, 10);
  53.  
  54.    unidades = ObtenerParteEntDiv(number, 1);
  55.    number = mod(number, 1);  
  56.    string_hundreds="";
  57.    string_tens="";
  58.    string_units="";
  59.    
  60.    // cascade trough hundreds. This will convert the hundreds part to
  61.    // their corresponding string in spanish.
  62.    if(centenas == 1){
  63.       string_hundreds = "ciento ";
  64.    }
  65.    if(centenas == 2){
  66.       string_hundreds = "doscientos ";
  67.    }
  68.    if(centenas == 3){
  69.       string_hundreds = "trescientos ";
  70.    }
  71.    if(centenas == 4){
  72.       string_hundreds = "cuatrocientos ";
  73.    }
  74.    if(centenas == 5){
  75.       string_hundreds = "quinientos ";
  76.    }
  77.    if(centenas == 6){
  78.       string_hundreds = "seiscientos ";
  79.    }
  80.    if(centenas == 7){
  81.       string_hundreds = "setecientos ";
  82.    }
  83.    if(centenas == <img src="http://perlenespanol.com/foro/images/smilies/icon_cool.gif" alt="8)" title="Cool" />{
  84.       string_hundreds = "ochocientos ";
  85.    }
  86.    if(centenas == 9){
  87.       string_hundreds = "novecientos ";
  88.    }
  89.  // end switch hundreds
  90.  
  91.    // casgade trough tens. This will convert the tens part to corresponding
  92.    // strings in spanish. Note, however that the strings between 11 and 19
  93.    // are all special cases. Also 21-29 is a special case in spanish.
  94.    if(decenas == 1){
  95.            
  96.       //Special case, depends on units for each conversion
  97.       if(unidades == 1){
  98.          string_tens = "once";
  99.       }
  100.       if(unidades == 2){
  101.          string_tens = "doce";
  102.       }
  103.       if(unidades == 3){
  104.          string_tens = "trece";
  105.       }
  106.       if(unidades == 4){
  107.          string_tens = "catorce";
  108.       }
  109.       if(unidades == 5){
  110.          string_tens = "quince";
  111.       }
  112.       if(unidades == 6){
  113.          string_tens = "dieciseis";
  114.       }
  115.       if(unidades == 7){
  116.          string_tens = "diecisiete";
  117.       }
  118.       if(unidades == <img src="http://perlenespanol.com/foro/images/smilies/icon_cool.gif" alt="8)" title="Cool" />{
  119.          string_tens = "dieciocho";
  120.       }
  121.       if(unidades == 9){
  122.          string_tens = "diecinueve";
  123.       }
  124.    }
  125.    //alert("STRING_TENS ="+string_tens);
  126.    
  127.    if(decenas == 2){
  128.       string_tens = "veinti";
  129.    }
  130.    if(decenas == 3){
  131.       string_tens = "treinta";
  132.    }
  133.    if(decenas == 4){
  134.       string_tens = "cuarenta";
  135.    }
  136.    if(decenas == 5){
  137.       string_tens = "cincuenta";
  138.    }
  139.    if(decenas == 6){
  140.       string_tens = "sesenta";
  141.    }
  142.    if(decenas == 7){
  143.       string_tens = "setenta";
  144.    }
  145.    if(decenas == <img src="http://perlenespanol.com/foro/images/smilies/icon_cool.gif" alt="8)" title="Cool" />{
  146.       string_tens = "ochenta";
  147.    }
  148.    if(decenas == 9){
  149.       string_tens = "noventa";
  150.    }
  151.     // Fin of swicth decenas
  152.  
  153.    // cascades trough units, This will convert the units part to corresponding
  154.    // strings in spanish. Note however that a check is being made to see wether
  155.    // the special cases 11-19 were used. In that case, the whole conversion of
  156.    // individual units is ignored since it was already made in the tens cascade.
  157.    if (decenas == 1)
  158.    {
  159.       string_units="";  
  160.           // empties the units check, since it has alredy been handled on the tens switch
  161.    }
  162.    else
  163.    {
  164.       if(unidades == 1){
  165.          string_units = "un";
  166.       }
  167.       if(unidades == 2){
  168.          string_units = "dos";
  169.       }
  170.       if(unidades == 3){
  171.          string_units = "tres";
  172.       }
  173.       if(unidades == 4){
  174.          string_units = "cuatro";
  175.       }
  176.       if(unidades == 5){
  177.          string_units = "cinco";
  178.       }
  179.       if(unidades == 6){
  180.          string_units = "seis";
  181.       }
  182.       if(unidades == 7){
  183.          string_units = "siete";
  184.       }
  185.       if(unidades == <img src="http://perlenespanol.com/foro/images/smilies/icon_cool.gif" alt="8)" title="Cool" />{
  186.          string_units = "ocho";
  187.       }
  188.       if(unidades == 9){
  189.          string_units = "nueve";
  190.       }
  191.        // end switch units
  192.    } // end if-then-else
  193. //final special cases. This conditions will handle the special cases which
  194. //are not as general as the ones in the cascades. Basically four:
  195.  
  196. // when you've got 100, you dont' say 'ciento' you say 'cien'
  197. // 'ciento' is used only for [101 >= number > 199]
  198. if (centenas == 1 && decenas == 0 && unidades == 0)
  199. {
  200.    string_hundreds = "cien " ;
  201. }  
  202. // when you've got 10, you don't say any of the 11-19 special
  203. // cases.. just say 'diez'
  204. if (decenas == 1 && unidades ==0)
  205. {
  206.    string_tens = "diez " ;
  207. }
  208. // when you've got 20, you don't say 'veinti', which is used
  209. // only for [21 >= number > 29]
  210. if (decenas == 2 && unidades ==0)
  211. {
  212.   string_tens = "veinte " ;
  213. }
  214. // for numbers >= 30, you don't use a single word such as veintiuno
  215. // (twenty one), you must add 'y' (and), and use two words. v.gr 31
  216. // 'treinta y uno' (thirty and one)
  217. if (decenas >=3 && unidades >=1)
  218. {
  219.    string_tens = string_tens+" y ";
  220. }
  221. // this line gathers all the hundreds, tens and units into the final string
  222. // and returns it as the function value.
  223. final_string = string_hundreds+string_tens+string_units;
  224. return final_string ;
  225. }
  226. //end of function string_literal_conversion
  227. // handle some external special cases. Specially the millions, thousands
  228. // and hundreds descriptors. Since the same rules apply to all number triads
  229. // descriptions are handled outside the string conversion function, so it can
  230. // be re used for each triad.
  231. function convertirNumLetras(number)
  232. {
  233.   //number = number_format (number, 2);
  234.    number1=number.toString();
  235.    //settype (number, "integer");
  236.    cent = number1.split(".");  
  237.    centavos = cent[1];
  238.    //Mind Mod
  239.    number=cent[0];
  240.    if (centavos == 0 || centavos == undefined)
  241.    {
  242.         centavos = "00";
  243.    }
  244.    if (number == 0 || number == "")
  245.    { // if amount = 0, then forget all about conversions,
  246.       centenas_final_string=" cero "; // amount is zero (cero). handle it externally, to
  247.       // function breakdown
  248.   }
  249.    else
  250.    {
  251.      millions  = ObtenerParteEntDiv(number, 1000000); // first, send the millions to the string
  252.       number = mod(number, 1000000);           // conversion function
  253.      
  254.      if (millions != 0)
  255.       {                      
  256.       // This condition handles the plural case
  257.          if (millions == 1)
  258.          {              // if only 1, use 'millon' (million). if
  259.             descriptor= " millon ";  // > than 1, use 'millones' (millions) as
  260.             }
  261.          else
  262.          {                           // a descriptor for this triad.
  263.               descriptor = " millones ";
  264.             }
  265.       }
  266.       else
  267.       {    
  268.          descriptor = " ";                 // if 0 million then use no descriptor.
  269.       }
  270.       millions_final_string = string_literal_conversion(millions)+descriptor;
  271.       thousands = ObtenerParteEntDiv(number, 1000);  // now, send the thousands to the string
  272.         number = mod(number, 1000);            // conversion function.
  273.       //print "Th:".thousands;
  274.      if (thousands != 1)
  275.       {                   // This condition eliminates the descriptor
  276.          thousands_final_string =string_literal_conversion(thousands) + " mil ";
  277.        //  descriptor = " mil ";          // if there are no thousands on the amount
  278.       }
  279.       if (thousands == 1)
  280.       {
  281.          thousands_final_string = " mil ";
  282.      }
  283.       if (thousands < 1)
  284.       {
  285.          thousands_final_string = " ";
  286.       }
  287.       // this will handle numbers between 1 and 999 which
  288.       // need no descriptor whatsoever.
  289.      centenas  = number;                    
  290.       centenas_final_string = string_literal_conversion(centenas) ;
  291.    } //end if (number ==0)
  292.  
  293.    /*if (ereg("un",centenas_final_string))
  294.    {
  295.      centenas_final_string = ereg_replace("","o",centenas_final_string);
  296.    }*/
  297.    //finally, print the output.
  298.  
  299.    /* Concatena los millones, miles y cientos*/
  300.    cad = millions_final_string+thousands_final_string+centenas_final_string;
  301.    /* Convierte la cadena a Mayúsculas*/
  302.    cad = cad.toUpperCase();      
  303.    if (centavos.length>2)
  304.    {  
  305.       if(centavos.substring(2,3)>= 5){
  306.          centavos = centavos.substring(0,1)+(parseInt(centavos.substring(1,2))+1).toString();
  307.       }   else{
  308.          
  309.         centavos = centavos.substring(0,1);
  310.       }
  311.    }
  312.  
  313.    /* Concatena a los centavos la cadena "/100" */
  314.    if (centavos.length==1)
  315.    {
  316.       centavos = centavos+"0";
  317.    }
  318.    centavos = centavos+ "/100";
  319.  
  320.  
  321.    /* Asigna el tipo de moneda, para 1 = PESO, para distinto de 1 = PESOS*/
  322.    if (number == 1)
  323.    {
  324.       moneda = " PESO ";  
  325.    }
  326.    else
  327.    {
  328.       moneda = " PESOS ";  
  329.    }
  330.    /* Regresa el número en cadena entre paréntesis y con tipo de moneda y la fase M.N.*/
  331.    //Mind Mod, si se deja MIL pesos y se utiliza esta función para imprimir documentos
  332.    //de caracter legal, dejar solo MIL es incorrecto, para evitar fraudes se debe de poner UM MIL pesos
  333.    if(cad == '  MIL ')
  334.    {
  335.         cad=' UN MIL ';
  336.    }
  337.   // alert( "FINAL="+cad+moneda+centavos+" M.N.");
  338.   return cad+moneda+centavos+" M.N.";
  339. }
  340. function doSpanish(importe) {
  341.         document.getElementById('spn').innerHTML='( '+convertirNumLetras(importe)+ ' )';
  342.                 return true;
  343.         }
  344. </script>
  345. </head>
  346. <body onLoad="doSpanish($variabilaValue)">
  347.                 <div id="spn" style="float:left;margin:40px auto;">XXX</div>
  348. </body>
  349. </html>
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Dodomac
Perlero nuevo
Perlero nuevo
 
Mensajes: 1
Registrado: 2010-09-26 12:44 @572
Arriba

Re: Convertir números a letras

Notapor wimigo03 » 2012-04-16 17:50 @785

Revisé el código y está muy bueno pero necesito implementarlo para que me muestre dos input diferentes que me muestre de esta manera:
Sintáxis: [ Descargar ] [ Ocultar ]
Using html4strict Syntax Highlighting
  1. <input type="int"> //aquí me muestra el 45
  2. <input type="text"> //y aquí en literal (cuarenta y cinco)
  3.  
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Bueno, es más o menos así. Soy nuevo y no pude encontrar la manera de publicarlo mejor.
Alguien que me ayude; estaría muy agradecido.
wimigo03
Perlero nuevo
Perlero nuevo
 
Mensajes: 1
Registrado: 2012-04-16 17:39 @777
Arriba

Re: Convertir números a letras

Notapor Cyrkum » 2012-05-11 12:58 @582

Utilizando el código proporcionado inicialmente por @luisbal y mejorado con el aporte de varios de ustedes, encontré unas omisiones con las variables. Todas estaban declaradas como globales, y esto puede causar problemas cuando la implementación JavaScript es muy grande. Así que he declarado todas las variables como locales, y aquí les dejo mi contribución.


¡¡Saludos!!

Sintáxis: [ Descargar ] [ Ocultar ]
Using javascript Syntax Highlighting
  1. // Función módulo, regresa el residuo de una división
  2. function mod(dividendo , divisor)
  3. {
  4.   var resDiv = dividendo / divisor ;  
  5.   var parteEnt = Math.floor(resDiv);            // Obtiene la parte Entera de resDiv
  6.   var parteFrac = resDiv - parteEnt ;      // Obtiene la parte Fraccionaria de la división
  7.   //modulo = parteFrac * divisor;  // Regresa la parte fraccionaria * la división (modulo)
  8.   var modulo = Math.round(parteFrac * divisor)
  9.   return modulo;
  10. }
  11. // Fin de función mod
  12.  
  13. // Función ObtenerParteEntDiv, regresa la parte entera de una división
  14. function ObtenerParteEntDiv(dividendo , divisor)
  15. {
  16.   var resDiv = dividendo / divisor ;  
  17.   var parteEntDiv = Math.floor(resDiv);
  18.   return parteEntDiv;
  19. }
  20. // Fin de función ObtenerParteEntDiv
  21.  
  22. // function fraction_part, regresa la parte Fraccionaria de una cantidad
  23. function fraction_part(dividendo , divisor)
  24. {
  25.   var resDiv = dividendo / divisor ;  
  26.   var f_part = Math.floor(resDiv);
  27.   return f_part;
  28. }
  29. // Fin de función fraction_part
  30.  
  31. // function string_literal conversion is the core of this program
  32. // converts numbers to spanish strings, handling the general special
  33. // cases in spanish language.
  34. function string_literal_conversion(number)
  35. {  
  36.    // first, divide your number in hundreds, tens and units, cascadig
  37.    // trough subsequent divisions, using the modulus of each division
  38.    // for the next.
  39.  
  40.    var centenas = ObtenerParteEntDiv(number, 100);
  41.    var number = mod(number, 100);
  42.    var decenas = ObtenerParteEntDiv(number, 10);
  43.    number = mod(number, 10);
  44.  
  45.    var unidades = ObtenerParteEntDiv(number, 1);
  46.    number = mod(number, 1);  
  47.    var string_hundreds="";
  48.    var string_tens="";
  49.    var string_units="";
  50.    
  51.    // cascade trough hundreds. This will convert the hundreds part to
  52.    // their corresponding string in spanish.
  53.    if(centenas == 1){
  54.       string_hundreds = "ciento ";
  55.    }
  56.    if(centenas == 2){
  57.       string_hundreds = "doscientos ";
  58.    }
  59.    if(centenas == 3){
  60.       string_hundreds = "trescientos ";
  61.    }
  62.    if(centenas == 4){
  63.       string_hundreds = "cuatrocientos ";
  64.    }
  65.    if(centenas == 5){
  66.       string_hundreds = "quinientos ";
  67.    }
  68.    if(centenas == 6){
  69.       string_hundreds = "seiscientos ";
  70.    }
  71.    if(centenas == 7){
  72.       string_hundreds = "setecientos ";
  73.    }
  74.    if(centenas == 8){
  75.       string_hundreds = "ochocientos ";
  76.    }
  77.    if(centenas == 9){
  78.       string_hundreds = "novecientos ";
  79.    }
  80.  // end switch hundreds
  81.  
  82.    // casgade trough tens. This will convert the tens part to corresponding
  83.    // strings in spanish. Note, however that the strings between 11 and 19
  84.    // are all special cases. Also 21-29 is a special case in spanish.
  85.    if(decenas == 1){
  86.            
  87.       //Special case, depends on units for each conversion
  88.       if(unidades == 1){
  89.          string_tens = "once";
  90.       }
  91.       if(unidades == 2){
  92.          string_tens = "doce";
  93.       }
  94.       if(unidades == 3){
  95.          string_tens = "trece";
  96.       }
  97.       if(unidades == 4){
  98.          string_tens = "catorce";
  99.       }
  100.       if(unidades == 5){
  101.          string_tens = "quince";
  102.       }
  103.       if(unidades == 6){
  104.          string_tens = "dieciseis";
  105.       }
  106.       if(unidades == 7){
  107.          string_tens = "diecisiete";
  108.       }
  109.       if(unidades == 8){
  110.          string_tens = "dieciocho";
  111.       }
  112.       if(unidades == 9){
  113.          string_tens = "diecinueve";
  114.       }
  115.    }
  116.    //alert("STRING_TENS ="+string_tens);
  117.    
  118.    if(decenas == 2){
  119.       string_tens = "veinti";
  120.    }
  121.    if(decenas == 3){
  122.       string_tens = "treinta";
  123.    }
  124.    if(decenas == 4){
  125.       string_tens = "cuarenta";
  126.    }
  127.    if(decenas == 5){
  128.       string_tens = "cincuenta";
  129.    }
  130.    if(decenas == 6){
  131.       string_tens = "sesenta";
  132.    }
  133.    if(decenas == 7){
  134.       string_tens = "setenta";
  135.    }
  136.    if(decenas == 8){
  137.       string_tens = "ochenta";
  138.    }
  139.    if(decenas == 9){
  140.       string_tens = "noventa";
  141.    }
  142.     // Fin of swicth decenas
  143.  
  144.    // cascades trough units, This will convert the units part to corresponding
  145.    // strings in spanish. Note however that a check is being made to see wether
  146.    // the special cases 11-19 were used. In that case, the whole conversion of
  147.    // individual units is ignored since it was already made in the tens cascade.
  148.    if (decenas == 1)
  149.    {
  150.       string_units="";  
  151.           // empties the units check, since it has alredy been handled on the tens switch
  152.    }
  153.    else
  154.    {
  155.       if(unidades == 1){
  156.          string_units = "un";
  157.       }
  158.       if(unidades == 2){
  159.          string_units = "dos";
  160.       }
  161.       if(unidades == 3){
  162.          string_units = "tres";
  163.       }
  164.       if(unidades == 4){
  165.          string_units = "cuatro";
  166.       }
  167.       if(unidades == 5){
  168.          string_units = "cinco";
  169.       }
  170.       if(unidades == 6){
  171.          string_units = "seis";
  172.       }
  173.       if(unidades == 7){
  174.          string_units = "siete";
  175.       }
  176.       if(unidades == 8){
  177.          string_units = "ocho";
  178.       }
  179.       if(unidades == 9){
  180.          string_units = "nueve";
  181.       }
  182.        // end switch units
  183.    } // end if-then-else
  184. //final special cases. This conditions will handle the special cases which
  185. //are not as general as the ones in the cascades. Basically four:
  186.  
  187. // when you've got 100, you dont' say 'ciento' you say 'cien'
  188. // 'ciento' is used only for [101 >= number > 199]
  189. if (centenas == 1 && decenas == 0 && unidades == 0)
  190. {
  191.    string_hundreds = "cien " ;
  192. }  
  193. // when you've got 10, you don't say any of the 11-19 special
  194. // cases.. just say 'diez'
  195. if (decenas == 1 && unidades ==0)
  196. {
  197.    string_tens = "diez " ;
  198. }
  199. // when you've got 20, you don't say 'veinti', which is used
  200. // only for [21 >= number > 29]
  201. if (decenas == 2 && unidades ==0)
  202. {
  203.   string_tens = "veinte " ;
  204. }
  205. // for numbers >= 30, you don't use a single word such as veintiuno
  206. // (twenty one), you must add 'y' (and), and use two words. v.gr 31
  207. // 'treinta y uno' (thirty and one)
  208. if (decenas >=3 && unidades >=1)
  209. {
  210.    string_tens = string_tens+" y ";
  211. }
  212. // this line gathers all the hundreds, tens and units into the final string
  213. // and returns it as the function value.
  214. var final_string = string_hundreds+string_tens+string_units;
  215. return final_string ;
  216. }
  217. //end of function string_literal_conversion
  218. // handle some external special cases. Specially the millions, thousands
  219. // and hundreds descriptors. Since the same rules apply to all number triads
  220. // descriptions are handled outside the string conversion function, so it can
  221. // be re used for each triad.
  222. function convertirNumLetras(number)
  223. {
  224.   //number = number_format (number, 2);
  225.    var number1=number.toString();
  226.    //settype (number, "integer");
  227.    var cent = number1.split(".");  
  228.    var centavos = cent[1];
  229.    var centenas_final_string, millions_final_string, thousands_final_string, centenas, moneda, cad;
  230.    
  231.    //Mind Mod
  232.    number=cent[0];
  233.    if (centavos == 0 || centavos == undefined)
  234.    {
  235.         centavos = "00";
  236.    }
  237.    if (number == 0 || number == "")
  238.    { // if amount = 0, then forget all about conversions,
  239.       centenas_final_string=" cero "; // amount is zero (cero). handle it externally, to
  240.       // function breakdown
  241.   }
  242.    else
  243.    {
  244.      var millions  = ObtenerParteEntDiv(number, 1000000); // first, send the millions to the string
  245.       number = mod(number, 1000000);           // conversion function
  246.      
  247.      if (millions != 0)
  248.       {                      
  249.       // This condition handles the plural case
  250.          if (millions == 1)
  251.          {              // if only 1, use 'millon' (million). if
  252.             descriptor= " millon ";  // > than 1, use 'millones' (millions) as
  253.             }
  254.          else
  255.          {                           // a descriptor for this triad.
  256.               descriptor = " millones ";
  257.             }
  258.       }
  259.       else
  260.       {    
  261.          descriptor = " ";                 // if 0 million then use no descriptor.
  262.       }
  263.       millions_final_string = string_literal_conversion(millions)+descriptor;
  264.       thousands = ObtenerParteEntDiv(number, 1000);  // now, send the thousands to the string
  265.         number = mod(number, 1000);            // conversion function.
  266.       //print "Th:".thousands;
  267.      if (thousands != 1)
  268.       {                   // This condition eliminates the descriptor
  269.          thousands_final_string =string_literal_conversion(thousands) + " mil ";
  270.        //  descriptor = " mil ";          // if there are no thousands on the amount
  271.       }
  272.       if (thousands == 1)
  273.       {
  274.          thousands_final_string = " mil ";
  275.      }
  276.       if (thousands < 1)
  277.       {
  278.          thousands_final_string = " ";
  279.       }
  280.       // this will handle numbers between 1 and 999 which
  281.       // need no descriptor whatsoever.
  282.      centenas  = number;                    
  283.       centenas_final_string = string_literal_conversion(centenas) ;
  284.    } //end if (number ==0)
  285.  
  286.    /*if (ereg("un",centenas_final_string))
  287.    {
  288.      centenas_final_string = ereg_replace("","o",centenas_final_string);
  289.    }*/
  290.    //finally, print the output.
  291.  
  292.    /* Concatena los millones, miles y cientos*/
  293.    cad = millions_final_string+thousands_final_string+centenas_final_string;
  294.    /* Convierte la cadena a Mayúsculas*/
  295.    cad = cad.toUpperCase();      
  296.    if (centavos.length>2)
  297.    {  
  298.       if(centavos.substring(2,3)>= 5){
  299.          centavos = centavos.substring(0,1)+(parseInt(centavos.substring(1,2))+1).toString();
  300.       }   else{
  301.          
  302.         centavos = centavos.substring(0,1);
  303.       }
  304.    }
  305.  
  306.    /* Concatena a los centavos la cadena "/100" */
  307.    if (centavos.length==1)
  308.    {
  309.       centavos = centavos+"0";
  310.    }
  311.    centavos = centavos+ "/100";
  312.  
  313.  
  314.    /* Asigna el tipo de moneda, para 1 = PESO, para distinto de 1 = PESOS*/
  315.    if (number == 1)
  316.    {
  317.       moneda = " PESO ";  
  318.    }
  319.    else
  320.    {
  321.       moneda = " PESOS ";  
  322.    }
  323.    /* Regresa el número en cadena entre paréntesis y con tipo de moneda y la fase M.N.*/
  324.    //Mind Mod, si se deja MIL pesos y se utiliza esta función para imprimir documentos
  325.    //de caracter legal, dejar solo MIL es incorrecto, para evitar fraudes se debe de poner UM MIL pesos
  326.    if(cad == '  MIL ')
  327.    {
  328.         cad=' UN MIL ';
  329.    }
  330.   // alert( "FINAL="+cad+moneda+centavos+" M.N.");
  331.   return cad+moneda+centavos+" M.N.";
  332. }
  333.  
  334.  
  335.  
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Cyrkum
Perlero nuevo
Perlero nuevo
 
Mensajes: 1
Registrado: 2012-05-11 12:49 @576
Arriba

Re: Convertir números a letras

Notapor bozape » 2013-08-03 13:10 @590

¡Buenas tardes!
Me encontré este script y me fue de mucha ayuda.
Hice unos pequeños cambios creo para mejor.

1. Asigné en variables el nombre de la moneda tanto en singular como plural al inicio de la función ya que de esta forma podemos fácilmente cambiarla según las necesidades. En mi caso COLON y COLONES

2. Hice lo mismo para el nombre de la moneda para la parte decimal, por poner dos ejemplos, en algunos países se usa CENTIMOS en otros CENTAVOS, etc.

3. Agregué un parámetro más en la función que se llama letras. Mi idea está basado en que, por ejemplo, me interesa ver en monto en letras actualizado en tiempo real conforme cambia el total de la factura.

Así, por ejemplo, si en el form tengo dos campos, uno "monto" que es el monto en números y otro "letras" que es el monto en letras puedo convocar en el evento "on change" del campo "monto" la función de conversión y decirle que actualice el campo "letras".
Para esto solo agregué al final de la función en vez de un "return" del valor en letras que asigne al campo donde va el monto en letras a través de un "documento.getelementbyid(letras).value = ....."

Gracias, y adjunto la función con los cambios.

Solo modifique la función principal, sin embargo la adjunto completa por si acaso.
Sintáxis: [ Descargar ] [ Ocultar ]
Using javascript Syntax Highlighting
  1. // Función módulo, regresa el residuo de una división
  2. function mod(dividendo , divisor)
  3. {
  4.   var resDiv = dividendo / divisor ;  
  5.   var parteEnt = Math.floor(resDiv);            // Obtiene la parte Entera de resDiv
  6.   var parteFrac = resDiv - parteEnt ;      // Obtiene la parte Fraccionaria de la división
  7.   //modulo = parteFrac * divisor;  // Regresa la parte fraccionaria * la división (modulo)
  8.   var modulo = Math.round(parteFrac * divisor)
  9.   return modulo;
  10. }
  11. // Fin de función mod
  12.  
  13. // Función ObtenerParteEntDiv, regresa la parte entera de una división
  14. function ObtenerParteEntDiv(dividendo , divisor)
  15. {
  16.   var resDiv = dividendo / divisor ;  
  17.   var parteEntDiv = Math.floor(resDiv);
  18.   return parteEntDiv;
  19. }
  20. // Fin de función ObtenerParteEntDiv
  21.  
  22. // function fraction_part, regresa la parte Fraccionaria de una cantidad
  23. function fraction_part(dividendo , divisor)
  24. {
  25.   var resDiv = dividendo / divisor ;  
  26.   var f_part = Math.floor(resDiv);
  27.   return f_part;
  28. }
  29. // Fin de función fraction_part
  30.  
  31. // function string_literal conversion is the core of this program
  32. // converts numbers to spanish strings, handling the general special
  33. // cases in spanish language.
  34. function string_literal_conversion(number)
  35. {  
  36.    // first, divide your number in hundreds, tens and units, cascadig
  37.    // trough subsequent divisions, using the modulus of each division
  38.    // for the next.
  39.  
  40.    var centenas = ObtenerParteEntDiv(number, 100);
  41.    var number = mod(number, 100);
  42.    var decenas = ObtenerParteEntDiv(number, 10);
  43.    number = mod(number, 10);
  44.  
  45.    var unidades = ObtenerParteEntDiv(number, 1);
  46.    number = mod(number, 1);  
  47.    var string_hundreds="";
  48.    var string_tens="";
  49.    var string_units="";
  50.    
  51.    // cascade trough hundreds. This will convert the hundreds part to
  52.    // their corresponding string in spanish.
  53.    if(centenas == 1){
  54.       string_hundreds = "ciento ";
  55.    }
  56.    if(centenas == 2){
  57.       string_hundreds = "doscientos ";
  58.    }
  59.    if(centenas == 3){
  60.       string_hundreds = "trescientos ";
  61.    }
  62.    if(centenas == 4){
  63.       string_hundreds = "cuatrocientos ";
  64.    }
  65.    if(centenas == 5){
  66.       string_hundreds = "quinientos ";
  67.    }
  68.    if(centenas == 6){
  69.       string_hundreds = "seiscientos ";
  70.    }
  71.    if(centenas == 7){
  72.       string_hundreds = "setecientos ";
  73.    }
  74.    if(centenas == 8){
  75.       string_hundreds = "ochocientos ";
  76.    }
  77.    if(centenas == 9){
  78.       string_hundreds = "novecientos ";
  79.    }
  80.  // end switch hundreds
  81.  
  82.    // casgade trough tens. This will convert the tens part to corresponding
  83.    // strings in spanish. Note, however that the strings between 11 and 19
  84.    // are all special cases. Also 21-29 is a special case in spanish.
  85.    if(decenas == 1){
  86.            
  87.       //Special case, depends on units for each conversion
  88.       if(unidades == 1){
  89.          string_tens = "once";
  90.       }
  91.       if(unidades == 2){
  92.          string_tens = "doce";
  93.       }
  94.       if(unidades == 3){
  95.          string_tens = "trece";
  96.       }
  97.       if(unidades == 4){
  98.          string_tens = "catorce";
  99.       }
  100.       if(unidades == 5){
  101.          string_tens = "quince";
  102.       }
  103.       if(unidades == 6){
  104.          string_tens = "dieciseis";
  105.       }
  106.       if(unidades == 7){
  107.          string_tens = "diecisiete";
  108.       }
  109.       if(unidades == 8){
  110.          string_tens = "dieciocho";
  111.       }
  112.       if(unidades == 9){
  113.          string_tens = "diecinueve";
  114.       }
  115.    }
  116.    //alert("STRING_TENS ="+string_tens);
  117.    
  118.    if(decenas == 2){
  119.       string_tens = "veinti";
  120.    }
  121.    if(decenas == 3){
  122.       string_tens = "treinta";
  123.    }
  124.    if(decenas == 4){
  125.       string_tens = "cuarenta";
  126.    }
  127.    if(decenas == 5){
  128.       string_tens = "cincuenta";
  129.    }
  130.    if(decenas == 6){
  131.       string_tens = "sesenta";
  132.    }
  133.    if(decenas == 7){
  134.       string_tens = "setenta";
  135.    }
  136.    if(decenas == 8){
  137.       string_tens = "ochenta";
  138.    }
  139.    if(decenas == 9){
  140.       string_tens = "noventa";
  141.    }
  142.     // Fin of swicth decenas
  143.  
  144.    // cascades trough units, This will convert the units part to corresponding
  145.    // strings in spanish. Note however that a check is being made to see wether
  146.    // the special cases 11-19 were used. In that case, the whole conversion of
  147.    // individual units is ignored since it was already made in the tens cascade.
  148.    if (decenas == 1)
  149.    {
  150.       string_units="";  
  151.           // empties the units check, since it has alredy been handled on the tens switch
  152.    }
  153.    else
  154.    {
  155.       if(unidades == 1){
  156.          string_units = "un";
  157.       }
  158.       if(unidades == 2){
  159.          string_units = "dos";
  160.       }
  161.       if(unidades == 3){
  162.          string_units = "tres";
  163.       }
  164.       if(unidades == 4){
  165.          string_units = "cuatro";
  166.       }
  167.       if(unidades == 5){
  168.          string_units = "cinco";
  169.       }
  170.       if(unidades == 6){
  171.          string_units = "seis";
  172.       }
  173.       if(unidades == 7){
  174.          string_units = "siete";
  175.       }
  176.       if(unidades == 8){
  177.          string_units = "ocho";
  178.       }
  179.       if(unidades == 9){
  180.          string_units = "nueve";
  181.       }
  182.        // end switch units
  183.    } // end if-then-else
  184. //final special cases. This conditions will handle the special cases which
  185. //are not as general as the ones in the cascades. Basically four:
  186.  
  187. // when you've got 100, you dont' say 'ciento' you say 'cien'
  188. // 'ciento' is used only for [101 >= number > 199]
  189. if (centenas == 1 && decenas == 0 && unidades == 0)
  190. {
  191.    string_hundreds = "cien " ;
  192. }  
  193. // when you've got 10, you don't say any of the 11-19 special
  194. // cases.. just say 'diez'
  195. if (decenas == 1 && unidades ==0)
  196. {
  197.    string_tens = "diez " ;
  198. }
  199. // when you've got 20, you don't say 'veinti', which is used
  200. // only for [21 >= number > 29]
  201. if (decenas == 2 && unidades ==0)
  202. {
  203.   string_tens = "veinte " ;
  204. }
  205. // for numbers >= 30, you don't use a single word such as veintiuno
  206. // (twenty one), you must add 'y' (and), and use two words. v.gr 31
  207. // 'treinta y uno' (thirty and one)
  208. if (decenas >=3 && unidades >=1)
  209. {
  210.    string_tens = string_tens+" y ";
  211. }
  212. // this line gathers all the hundreds, tens and units into the final string
  213. // and returns it as the function value.
  214. var final_string = string_hundreds+string_tens+string_units;
  215. return final_string ;
  216. }
  217. //end of function string_literal_conversion
  218. // handle some external special cases. Specially the millions, thousands
  219. // and hundreds descriptors. Since the same rules apply to all number triads
  220. // descriptions are handled outside the string conversion function, so it can
  221. // be re used for each triad.
  222. function convertirNumLetras(number, letras)
  223. //parametro letras agregado por BOZAPE para decirle en que campo del form se asigna el valor en letras 2013-08-03
  224. {
  225.   //number = number_format (number, 2);
  226.    var number1=number.toString();
  227.    //settype (number, "integer");
  228.    var cent = number1.split(".");  
  229.    var centavos = cent[1];
  230.    var centenas_final_string, millions_final_string, thousands_final_string, centenas, moneda, cad;
  231.    var moneda = " COLON "; // Agregado por BOZAPE para el nombre de la moneda en singular 2013-08-03
  232.    var monedap = " COLONES ";  // Agregado por BOZAPE para el nombre de la moneda en plural 2013-08-03
  233.    var monedad = " CENTIMOS "; // Agregado por BOZAPE para el nombre de la moneda para los decimales 2013-08-03
  234.    
  235.    //Mind Mod
  236.    number=cent[0];
  237.    if (centavos == 0 || centavos == undefined)
  238.    {
  239.         centavos = "00";
  240.    }
  241.    if (number == 0 || number == "")
  242.    { // if amount = 0, then forget all about conversions,
  243.       centenas_final_string=" cero "; // amount is zero (cero). handle it externally, to
  244.       // function breakdown
  245.   }
  246.    else
  247.    {
  248.      var millions  = ObtenerParteEntDiv(number, 1000000); // first, send the millions to the string
  249.       number = mod(number, 1000000);           // conversion function
  250.      
  251.      if (millions != 0)
  252.       {                      
  253.       // This condition handles the plural case
  254.          if (millions == 1)
  255.          {              // if only 1, use 'millon' (million). if
  256.             descriptor= " millon ";  // > than 1, use 'millones' (millions) as
  257.             }
  258.          else
  259.          {                           // a descriptor for this triad.
  260.               descriptor = " millones ";
  261.             }
  262.       }
  263.       else
  264.       {    
  265.          descriptor = " ";                 // if 0 million then use no descriptor.
  266.       }
  267.       millions_final_string = string_literal_conversion(millions)+descriptor;
  268.       thousands = ObtenerParteEntDiv(number, 1000);  // now, send the thousands to the string
  269.         number = mod(number, 1000);            // conversion function.
  270.       //print "Th:".thousands;
  271.      if (thousands != 1)
  272.       {                   // This condition eliminates the descriptor
  273.          thousands_final_string =string_literal_conversion(thousands) + " mil ";
  274.        //  descriptor = " mil ";          // if there are no thousands on the amount
  275.       }
  276.       if (thousands == 1)
  277.       {
  278.          thousands_final_string = " mil ";
  279.      }
  280.       if (thousands < 1)
  281.       {
  282.          thousands_final_string = " ";
  283.       }
  284.       // this will handle numbers between 1 and 999 which
  285.       // need no descriptor whatsoever.
  286.      centenas  = number;                    
  287.       centenas_final_string = string_literal_conversion(centenas) ;
  288.    } //end if (number ==0)
  289.  
  290.    /*if (ereg("un",centenas_final_string))
  291.    {
  292.      centenas_final_string = ereg_replace("","o",centenas_final_string);
  293.    }*/
  294.    //finally, print the output.
  295.  
  296.    /* Concatena los millones, miles y cientos*/
  297.    cad = millions_final_string+thousands_final_string+centenas_final_string;
  298.    /* Convierte la cadena a Mayúsculas*/
  299.    cad = cad.toUpperCase();      
  300.    if (centavos.length>2)
  301.    {  
  302.       if(centavos.substring(2,3)>= 5){
  303.          centavos = centavos.substring(0,1)+(parseInt(centavos.substring(1,2))+1).toString();
  304.       }   else{
  305.          
  306.         centavos = centavos.substring(0,1);
  307.       }
  308.    }
  309.  
  310.    /* Concatena a los centavos la cadena "/100" */
  311.    if (centavos.length==1)
  312.    {
  313.       centavos = centavos+"0";
  314.    }
  315.    centavos = centavos+ "/100";
  316.  
  317.  
  318.    /* Asigna el tipo de moneda, para 1 = PESO, para distinto de 1 = PESOS*/
  319.    if (number != 1)
  320.    {
  321.       moneda = monedap;  
  322.    }
  323.    /* Regresa el número en cadena entre paréntesis y con tipo de moneda y la fase M.N.*/
  324.    //Mind Mod, si se deja MIL pesos y se utiliza esta función para imprimir documentos
  325.    //de caracter legal, dejar solo MIL es incorrecto, para evitar fraudes se debe de poner UM MIL pesos
  326.    if(cad == '  MIL ')
  327.    {
  328.         cad=' UN MIL ';
  329.    }
  330.   // alert( "FINAL="+cad+moneda+centavos+" M.N.");
  331.   texto= cad+moneda+centavos+monedad; //modificado por BOZAPE en vez de poner el texto de moneda decimal se asigna la variable monedad 2013-08-03
  332.   document.getElementById(letras).value= texto;  //modificado por BOZAPE en vez de devoler por funcion el valor en letras con RETURN se asigna al campo recibido por el parametro LETRAS
  333. }
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4

Bueno, voy con otro cambio.

Ahora modifiqué para que cuando no haya decimales en vez de devolver "00/100 centimos" diga el valor de la variable "monedad0" declarada arriba, en mi caso, "exactos".

Adjunto solo la función principal que es la que he modificado.
¡Gracias!

Sintáxis: [ Descargar ] [ Ocultar ]
Using javascript Syntax Highlighting
  1. function convertirNumLetras(number, letras)
  2. //parametro letras agregado por BOZAPE para decirle en que campo del form se asigna el valor en letras 2013-08-03
  3. {
  4.   //number = number_format (number, 2);
  5.    var number1=number.toString();
  6.    //settype (number, "integer");
  7.    var cent = number1.split(".");  
  8.    var centavos = cent[1];
  9.    var centenas_final_string, millions_final_string, thousands_final_string, centenas, moneda, cad;
  10.    var moneda = " COLON "; // Agregado por BOZAPE para el nombre de la moneda en singular 2013-08-03
  11.    var monedap = " COLONES ";  // Agregado por BOZAPE para el nombre de la moneda en plural 2013-08-03
  12.    var monedad = " CENTIMOS "; // Agregado por BOZAPE para el nombre de la moneda para los decimales 2013-08-03
  13.    var monedad0 = " EXACTOS "; // Agregado por BOZAPE para el nombre de la moneda para cuandon no hay decimales 2013-08-03
  14.    
  15.    //Mind Mod
  16.    number=cent[0];
  17.    if (centavos == 0 || centavos == undefined)
  18.    {
  19.         centavos = "00";
  20.    }
  21.    if (number == 0 || number == "")
  22.    { // if amount = 0, then forget all about conversions,
  23.       centenas_final_string=" cero "; // amount is zero (cero). handle it externally, to
  24.       // function breakdown
  25.   }
  26.    else
  27.    {
  28.      var millions  = ObtenerParteEntDiv(number, 1000000); // first, send the millions to the string
  29.       number = mod(number, 1000000);           // conversion function
  30.      
  31.      if (millions != 0)
  32.       {                      
  33.       // This condition handles the plural case
  34.          if (millions == 1)
  35.          {              // if only 1, use 'millon' (million). if
  36.             descriptor= " millon ";  // > than 1, use 'millones' (millions) as
  37.             }
  38.          else
  39.          {                           // a descriptor for this triad.
  40.               descriptor = " millones ";
  41.             }
  42.       }
  43.       else
  44.       {    
  45.          descriptor = " ";                 // if 0 million then use no descriptor.
  46.       }
  47.       millions_final_string = string_literal_conversion(millions)+descriptor;
  48.       thousands = ObtenerParteEntDiv(number, 1000);  // now, send the thousands to the string
  49.         number = mod(number, 1000);            // conversion function.
  50.       //print "Th:".thousands;
  51.      if (thousands != 1)
  52.       {                   // This condition eliminates the descriptor
  53.          thousands_final_string =string_literal_conversion(thousands) + " mil ";
  54.        //  descriptor = " mil ";          // if there are no thousands on the amount
  55.       }
  56.       if (thousands == 1)
  57.       {
  58.          thousands_final_string = " mil ";
  59.      }
  60.       if (thousands < 1)
  61.       {
  62.          thousands_final_string = " ";
  63.       }
  64.       // this will handle numbers between 1 and 999 which
  65.       // need no descriptor whatsoever.
  66.      centenas  = number;                    
  67.       centenas_final_string = string_literal_conversion(centenas) ;
  68.    } //end if (number ==0)
  69.  
  70.    /*if (ereg("un",centenas_final_string))
  71.    {
  72.      centenas_final_string = ereg_replace("","o",centenas_final_string);
  73.    }*/
  74.    //finally, print the output.
  75.  
  76.    /* Concatena los millones, miles y cientos*/
  77.    cad = millions_final_string+thousands_final_string+centenas_final_string;
  78.    /* Convierte la cadena a Mayúsculas*/
  79.    cad = cad.toUpperCase();      
  80.    if (centavos.length>2)
  81.    {  
  82.       if(centavos.substring(2,3)>= 5){
  83.          centavos = centavos.substring(0,1)+(parseInt(centavos.substring(1,2))+1).toString();
  84.       }   else{
  85.          
  86.         centavos = centavos.substring(0,1);
  87.       }
  88.    }
  89.  
  90.    /* Concatena a los centavos la cadena "/100" */
  91.    if (centavos == 0) { //agregado por BOZAPE para cuando no hay decimales entonces se usa el valor de moneda para no decimales MONEDAD0
  92.            centavos = "";
  93.            monedad = monedad0;
  94.    }
  95.    else
  96.    {
  97.    if (centavos.length==1)
  98.    {
  99.       centavos = centavos+"0";
  100.    }
  101.    centavos = centavos+ "/100";
  102.    }
  103.  
  104.  
  105.    /* Asigna el tipo de moneda, para 1 = PESO, para distinto de 1 = PESOS*/
  106.    if (number != 1)
  107.    {
  108.       moneda = monedap;  
  109.    }
  110.    /* Regresa el número en cadena entre paréntesis y con tipo de moneda y la fase M.N.*/
  111.    //Mind Mod, si se deja MIL pesos y se utiliza esta función para imprimir documentos
  112.    //de caracter legal, dejar solo MIL es incorrecto, para evitar fraudes se debe de poner UM MIL pesos
  113.    if(cad == '  MIL ')
  114.    {
  115.         cad=' UN MIL ';
  116.    }
  117.   // alert( "FINAL="+cad+moneda+centavos+" M.N.");
  118.   texto= cad+moneda+centavos+monedad; //modificado por BOZAPE en vez de poner el texto de moneda decimal se asigna la variable monedad 2013-08-03
  119.   document.getElementById(letras).value= texto;  //modificado por BOZAPE en vez de devoler por funcion el valor en letras con RETURN se asigna al campo recibido por el parametro LETRAS
  120. }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
bozape
Perlero nuevo
Perlero nuevo
 
Mensajes: 1
Registrado: 2013-08-03 12:58 @582
Arriba
Publicar una respuesta

Volver a JavaScript

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados

Powered by phpBB® Forum Software © phpBB Group
Traducción al Español Mexicano por nextgen en colaboración con phpbb-es.com
phpBB SEO
Advertisements by Advertisement Management
cron