function numlot(){ 
  var pnum=eval(document.calculo.dia.value)+eval(document.calculo.mes.value)+eval(document.calculo.ano.value);
  var snum=eval(document.calculo.dd.value)+eval(document.calculo.mm.value)+eval(document.calculo.aa.value);
  var tnum=eval(document.calculo.mayor.value);
  var num=pnum+snum+tnum;
  if (num>10000){
	var i=0; 
	var dig="";
	var resul=0;
	var numc=num+"";
	do{
		dig=numc.charAt(i);
		switch(dig){
		  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==2 && resul>9){
			i=0;
			numc=resul+"";
			resul=0;
		}
	}while(i<2)
	num=resul+numc.charAt(2)+numc.charAt(3)+numc.charAt(4);
  }
  document.calculo.resultado.value=num; 

}