José Edik Gamarra Vicuña: Fuente para convertir números a letras

Hace tiempo escribí un programa en dbase para convertir un número, en letras (expresión escrita de la lectura del número). Se utiliza para emitir cheques por computadora, incluía los centavos, ya que solicitaba una unidad de moneda. Para probarlo y recordarlo lo he pasado a htm (página web), de manera que si se copia y se pega el código en un archivo htm (con el block de notas de windows), ejemplo: numalet.htm, se puede visualizar el resultado con un explorador de internet. Cualquier consulta escribeme a jgamarravi@gmail.com Acá dejo el código:

<html>

<head>

<title>Convertir números en letras</title>

<!--

function MM_callJS(jsStr) { //v2.0

return eval(jsStr)

}

function MM_jumpMenu(targ,selObj,restore){ //v3.0

eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");

if (restore) selObj.selectedIndex=0;

}

//-->

</script>

<!--

.style1 {color: #6633FF}

-->

</style>

</head>

// Función para convertir un número a letras

// Requiere de una unidad de moneda, si no se escribe, considera el EURO

// Febrero, 2009

// Convertido del dbase a javascript, las variaciones son mínimas.

// cualquiera que programe lo puede reconvertir.

// La función numalet tendría como parámetros: num:numérico, unidadMoneda:string

// normalmente se llamaria: numalet(num,unidadMoneda)

// La función devuelve una cadena de caracteres correspondiente al

// número ingresado como num.

// Para este caso, he considerado los parámetros como elementos de formularios.

function numalet()

{

var num=parseFloat(document.capturafrm.importe.value); // el número

var unidadMoneda=document.capturafrm.unidad.value; // la unidad monetaria

if (unidadMoneda.length==0) {unidadMoneda = "EURO";}

if (num <= 0) {num = 0;}

var salida="";

var entero="";

var dec ="";

var tmp=0;

var posPunto=0;

var largo = 0;

var clase1 = 0;

var clase2 = 0;

num = num +0.005;

tmp = parseInt(num);

entero = tmp.toString();

tmp = num - parseInt(num);

tmp = parseInt(100 * tmp);

dec = tmp.toString();

// Calcular la longitud del número

// y completarlo a múltiplo de tres, con ceros a la izquierda

// cada clase en la numeración está formada por UNIDAD, DECENA Y CENTENA.

largo = entero.length;

modulo = parseInt(largo/3);

for (var n=0; n<3; n++) {

if (largo == 3 * modulo + n) {break;}

}

ceros = (3-n);

switch (ceros)

{

case 1:

entero = "0"+entero;

break;

case 2:

entero = "00"+entero;

break;

}

// Para unidades

if (largo > 0 && largo < 4)

{

salida = nutol(num);

}

// Para miles

if (largo > 3 && largo < 7)

{

clase2 = entero.substring(0,3);

clase1 = entero.substring(3,6);

salida = nutol(clase1);

if (salida == "CERO") {salida = "";}

salida = nutol(clase2)+ " MIL "+ salida;

}

// Para millones

if (largo > 6 && largo < 10)

{

clase3 = entero.substring(0,3);

clase2 = entero.substring(3,6);

clase1 = entero.substring(6,9);

millones = nutol(clase3);

miles = nutol(clase2);

unidades = nutol(clase1);

millones = millones + " MILLONES ";

if (clase3=="001"){millones = "UN MILLON ";}

if (clase2=="000" && clase1 =="000") { millones = millones + " DE ";}

if (miles=="CERO"){miles = "";} else {miles = miles + " MIL ";}

if (unidades == "CERO") {unidades = "";}

salida = millones+ miles+ unidades;

}

// Para millares de millón

if (largo > 9 && largo < 13)

{

clase4 = entero.substring(0,3);

clase3 = entero.substring(3,6);

clase2 = entero.substring(6,9);

clase1 = entero.substring(9,12);

milmillones = nutol(clase4);

millones = nutol(clase3);

miles = nutol(clase2);

unidades = nutol(clase1);

milmillones = milmillones + " MIL ";

if (clase4 == "001") {milmillones = "UN MIL ";}

millones = millones + " MILLONES ";

if (clase3=="001"){millones = "UN MILLON ";}

if (clase3 =="000"){millones = "MILLONES ";}

if (clase2=="000" && clase1 =="000") { millones = millones + " DE ";}

if (miles=="CERO"){miles = "";} else {miles = miles + " MIL ";}

if (unidades == "CERO") {unidades = "";}

salida = milmillones + millones+ miles+ unidades;

}

// Para billones

if (largo > 12 && largo < 16)

{

clase5 = entero.substring(0,3);

clase4 = entero.substring(3,6);

clase3 = entero.substring(6,9);

clase2 = entero.substring(9,12);

clase1 = entero.substring(12,15);

billones = nutol(clase5);

milmillones = nutol(clase4);

millones = nutol(clase3);

miles = nutol(clase2);

unidades = nutol(clase1);

// 001.000.000.000.000

billones = billones + " BILLONES ";

if (clase5=="001"){billones = "UN BILLON ";}

milmillones = milmillones + " MIL ";

if (clase4 =="000") {milmillones ="";}

millones = millones + " MILLONES ";

if (clase3 == "000" && clase4 =="000"){millones = "";}

if (clase3 == "000" && clase4 !="000"){ millones = " MILLONES ";}

if (clase3 == "001" && clase4 =="000"){ millones = " UN MILLON ";}

miles = miles + " MIL " ;

if (clase2 =="000") {miles ="";}

if (clase1=="000") {unidades ="";}

if (clase1=="000" && clase2=="000") {unidades = " DE ";}

salida = billones+ milmillones + millones+ miles+ unidades;

}

// Convirtir los centimos en letras

centimos = " CON "+nutol(dec)+ " CENTIMOS";

// Convertir la unidad de moneda en Mayúscula la primera y minúscula

// las letras que siguen

ancho = unidadMoneda.length;

cadena = unidadMoneda.substring(0,1);

cadena1 = unidadMoneda.substring(1,ancho);

unidadMoneda = cadena.toUpperCase() + cadena1.toLowerCase();

if (entero==1) {moneda = " "+ unidadMoneda;}

else {

moneda = " " + money(unidadMoneda);

}

if (dec==0) {centimos = "";}

if (dec==1) {centimos = " CON UN CENTIMO";}

//imprimir el resultado

document.form1.letras.value= salida.toLowerCase()+moneda+centimos.toLowerCase();

}

// Esta función convierte una clase en letras

// devuelve el numero entre cero y 999.

// Requiere de un parámetro numérico

function nutol(num)

{

var u=0;

var d=0;

var d1 = 0;

var c=0;

var texto ="";

var unidad= "";

var decena = "";

var centena = "";

var UNID = new Array();

var DECE = new Array();

var CENTe = new Array();

var vente = false;

UNID[0]="";

UNID[1]="UN";

UNID[2]="DOS";

UNID[3]="TRES";

UNID[4]="CUATRO";

UNID[5]="CINCO";

UNID[6]="SEIS";

UNID[7]="SIETE";

UNID[8]="OCHO";

UNID[9]="NUEVE";

UNID[10]="DIEZ";

UNID[11]="ONCE";

UNID[12]="DOCE";

UNID[13]="TRECE";

UNID[14]="CATORCE";

UNID[15]="QUINCE";

UNID[16]="DIECISEIS";

UNID[17]="DIECISIETE";

UNID[18]="DIECIOCHO";

UNID[19]="DIECINUEVE";

UNID[20]="VEINTE";

DECE[0]="";

DECE[1]="";

DECE[2]="VEINTI";

DECE[3]="TREINTA";

DECE[4]="CUARENTA";

DECE[5]="CINCUENTA";

DECE[6]="SESENTA";

DECE[7]="SETENTA";

DECE[8]="OCHENTA";

DECE[9]="NOVENTA";

CENTe[0]="";

CENTe[1]="CIENTO";

CENTe[2]="DOSCIENTOS";

CENTe[3]="TRESCIENTOS";

CENTe[4]="CUATROCIENTOS";

CENTe[5]="QUINIENTOS";

CENTe[6]="SEISCIENTOS";

CENTe[7]="SETECIENTOS";

CENTe[8]="OCHOCIENTOS";

CENTe[9]="NOVECIENTOS";

c = parseInt(num/100);

d1 = parseInt(num - c * 100);

d = parseInt((num - c * 100)/10);

u = parseInt(num - c * 100 - d * 10);

if (c == 0 && d == 0 && u == 0){ return "CERO";}

if (c == 1 && d == 0 && u == 0){ return "CIEN";}

if (c > 0) {centena = CENTe[c];}

if (d1> 9 && d1 < 21 ) {

decena = UNID[d1];

texto = centena + " " + decena;

return texto;}

decena = DECE[d];

unidad = UNID[u];

if (decena == "VEINTI"){

decena = decena + UNID[u];

texto = centena + " " + decena;

return texto;

}

if (u > 0 && d> 0) { decena = decena + " y ";}

texto = centena + " "+decena + unidad;

return texto;

}

// Convierte en plural la unidad de moneda

function money(unimon)

{

if (unimon.length==0) return "";

var ancho=0;

var cadena= "";

var cadena = "";

ancho = unimon.length;

ultima = unimon.substring(ancho - 1, ancho);

switch (ultima.toUpperCase())

{

case "A":

case "E":

case "I":

case "O":

case "U":

fin = unimon+"s";

break;

default :

fin = unimon+"es";

break;

}

return fin;

}

</script>

<body>

<h3 class="style1">Escribe un número y una unidad de moneda para convertirlo en letras: </h3>

<p>Importe

Unidad moneda

<option value="DOLAR">DOLAR</option>

<option value="LIBRA">LIBRA</option>

</select>

</p>

</form>

</form>

</body>

</html>

José Edik Gamarra Vicuña

viernes, 20 de marzo de 2009

Fuente para convertir números a letras

No hay comentarios:

Publicar un comentario

Archivo del blog