function numper(){ 
	var i=0; 
	var resul=0;
	var resulv=0;
	var long=0;
	var letra="";
	var nom="";
	var pnum=document.calculo.dia.value+document.calculo.mes.value+document.calculo.ano.value;
	long=pnum.length;
	do{
		letra=pnum.charAt(i);
		switch(letra){
		  case "1": resul+=1;
			    break;
		  case "2": resul+=2;
			    break;
		  case "3": resul+=3;
			    break;
		  case "4": resul+=4;
			    break;	
		  case "5": resul+=5;
			    break;
		  case "6": resul+=6;
			    break;	
		  case "7": resul+=7;
			    break;	
		  case "8": resul+=8;
			    break;	
		  case "9": resul+=9;
			    break;
		  default  :resul+=0;
                }
		++i;
		if (i==long && resul>9){
			i=0;
			pnum=resul+" ";
			long=pnum.length;
			resul=0;
		}
	}while(i<long)

	pnum=resul+"";
	
	nom=document.calculo.nombre.value+document.calculo.apellido.value;
	long=nom.length;
	nom=nom.toLowerCase();
	i=0;
	resul=0;
	do{
        	letra=nom.charAt(i);
		switch(letra){
		  case "a": resulv+=1;
			    break;
		  case "j": 
		  case "s": resul+=1;
			    break;
		  case "b": 
		  case "k": 
		  case "t": resul+=2;
			    break;
		  case "c": 
		  case "l": resul+=3;
			    break; 
		  case "u": resulv+=3;
			    break;
		  case "d": 
		  case "m": 
		  case "v": resul+=4;
			    break;	
		  case "e": resulv+=5;
			    break;
		  case "n": 
           case "&ntilde;": 
		  case "q": 
		  case "w": resul+=5;
			    break;
		  case "o": resulv+=6;
			    break;
		  case "f": 
		  case "x": resul+=6;
			    break;	
		  case "g": 
		  case "p": 
		  case "y": resul+=7;
			    break;	
		  case "h": 
		  case "q": 
		  case "z": resul+=8;
			    break;	
		  case "i": resulv+=9;
			    break;
		  case "r": resul+=9;
                }
	}while(++i<long)
 
	var snum=resulv+"";
	var tnum=resul+"";
	long=snum.length;
	i=0;
	resul=0;
	do{
		letra=snum.charAt(i);
		switch(letra){
		  case "1": resul+=1;
			    break;
		  case "2": resul+=2;
			    break;
		  case "3": resul+=3;
			    break;
		  case "4": resul+=4;
			    break;	
		  case "5": resul+=5;
			    break;
		  case "6": resul+=6;
			    break;	
		  case "7": resul+=7;
			    break;	
		  case "8": resul+=8;
			    break;	
		  case "9": resul+=9;
			    break;
		  default  :resul+=0;
                }
		++i;
		if (i==long && resul>9){
			i=0;
			snum=resul+" ";
			long=snum.length;
			resul=0;
		}
	}while(i<long)

	snum=resul+"";

	long=tnum.length;
	resul=0;
	i=0;
	do{
		letra=tnum.charAt(i);
		switch(letra){
		  case "1": resul+=1;
			    break;
		  case "2": resul+=2;
			    break;
		  case "3": resul+=3;
			    break;
		  case "4": resul+=4;
			    break;	
		  case "5": resul+=5;
			    break;
		  case "6": resul+=6;
			    break;	
		  case "7": resul+=7;
			    break;	
		  case "8": resul+=8;
			    break;	
		  case "9": resul+=9;
			    break;
		  default  :resul+=0;
                }
		++i;
		if (i==long && resul>9){
			i=0;
			tnum=resul+"";
			long=tnum.length;
			resul=0;
		}
	}while(i<long)

	tnum=resul+"";

	var cnum=snum+tnum;
	long=cnum.length;
	resul=0;
	i=0;
	do{
		letra=cnum.charAt(i);
		switch(letra){
		  case "1": resul+=1;
			    break;
		  case "2": resul+=2;
			    break;
		  case "3": resul+=3;
			    break;
		  case "4": resul+=4;
			    break;	
		  case "5": resul+=5;
			    break;
		  case "6": resul+=6;
			    break;	
		  case "7": resul+=7;
			    break;	
		  case "8": resul+=8;
			    break;	
		  case "9": resul+=9;
			    break;
		  default  :resul+=0;
                }
		++i;
		if (i==long && resul>9){
			i=0;
			cnum=resul+"";
			long=cnum.length;
			resul=0;
		}
	}while(i<long)

	cnum=resul+"";

	document.calculo.resultado.value=pnum+cnum+snum+tnum; 
}