function clasecita(clase) {
	var stylo=new Array;
	stylo['dia'] ="color:white;background-color:black;font-weight:bold;";
	stylo['diahoy'] ="color:brown;background-color:#ff7f50;";
	stylo['mes1']="font-family:Arial;font-style:normal;color:#ff7f50;font-size:14px;font-weight:bold;border:0;background-color:black;";
    stylo['tdh']="text-align:center;font-style:normal;height:9px;color:white;background-color:brown;";
    stylo['hoy']="color:brown;";
    stylo['nobisiesto29']="color:gray;background-color:black;";
	stylo['tcalendario']="background-color:#ff7f50;width:47%;border:1px;padding:2px;width='150px';height:200px";
	if (clase=="")	{
		stylos="";
	}
	else {
		stylos = "style='" + stylo[clase] + "' ";
	}
	return stylos
}
function iniciar() {
	var mesdia=obtendiames();	
	var mes=valor(mesdia.substring(0,2));	
	fijarCombo(mes);  	
	cargarTablas(mesdia);
}

function obtendiames() {
  var objFecha = document.getElementById("fechaoculta");
  var mesdia=objFecha.value;
  if (mesdia == "")  {
	  var fecha=new Date();
	  var mes=fecha.getMonth();
	  mes++;
	  var dia=fecha.getDate();
	  mesdia=rellenar(mes,2)+rellenar(dia,2)+"";
  }
  return mesdia
}

function valor(n) {	var x=n;	while (x.substring(0,1) == "0")	{
		x=x.substring(1,x.length);
	}
	return parseInt(x);
}

function fijarCombo(mes) {
   document.getElementById("selmes").options.selectedIndex=mes-1;
}


function cargarTablas(n) {
  var mes=valor(n.substring(0,2));
  pondia(n);
  calendario(paramMes(mes),mes);

}

function pondia(n) {
  var objFecha = document.getElementById("fechaoculta");
  objFecha.value=n;
}
function calendario(paramMeses,mes) {
  var k=1;  
  var param=paramMeses.split("#");  
  var dia="",clase;  
  var html="<table " + clasecita('mes1') + ">";   
  html += "<thead>\n";
  html += "<tr>\n";  
  var titulo="LMXJVSD";  
  for (i=0;i<titulo.length;i++)  {
	  html += "<td " + clasecita('tdh') + ">\n" + titulo.substring(i,i+1) + "</td>\n"	 
  }
  html += "</tr>\n";	   
  html += "</thead>\n";  
  var fin=false;
  for (var i=1;i<7 ;i++ )  {
	ponfin=false;
	if (fin ==false){
	    html += "<tr style='background-color:black'>";
		ponfin=true;
	}
    for (var j=1 ;j<=7;j++ )  {	 
		var textdiames=rellenar(mes,2)+rellenar(k,2)+"";	
		var clase2="dia";
		if ((textdiames == obtendiames())) {
			clase="hoy";
			clase2="diahoy";
        } 	
	    else {	  
		    clase = "";	
	    }	
	    if ((i==1) && (j<param[0]))  {
			dia="0";	  clase="";
	     }	
		 else {
			if ((mes==2) && (k==29) && (k>param[1]))	{
				dia=k++;
				clase="";
				if (textdiames == obtendiames()) {
					clase="hoy";
					clase2="diahoy";
			    }
				else {
				   clase2="nobisiesto29";
				}
			}
			else {
			    if (k > param[1]) {
			  	   dia ="";
	               clase="";
				   k++;
				   fin=true
	             }
			     else {
        	       dia=k++;
				 }//(>Ultimo)
	        } //if 29,02
	    } //if (<Primero)
		if (dia=="0")	{
            html += "<td " +  clasecita(clase) + " align='center' height='19' width='14%'></td>";
		}
		if ((dia !="")&&(dia!="0"))	{		
            html += "<td " +  clasecita(clase) + " align='center' height='19' width='14%'>";
            html += "<a target='_blank' " + clasecita(clase2) + " href='http://www.hechoshistoricos.es/html/hechoshistoricos" + rellenar(mes,2) + rellenar(dia,2) + ".html'>" + dia + "</a></td>";
	    }
    } // for j
	if (ponfin)	{
	   html += "</tr>";
	}
  } //for i
  html +="</table>"
  document.getElementById('tcalendario').innerHTML = html;
}

function rellenar(t,n) {
  var ceros="000000000000000000";
  var x=t+"";
  var misceros=ceros.substring(0,n-x.length);
  return misceros+x;
}
function paramMes(mes) {
	var fecha=new Date()
	var anio = fecha.getFullYear();
	fecha.setFullYear(anio,mes-1,1);
	var ultimo=lastDay(fecha) 
	var primero=fecha.getDay();
	if (primero==0) {
		primero=7;
	}
	var cadena =primero+"#"+ultimo;
	return cadena
}

function lastDay(fecha) {
   var anio = fecha.getYear();
   var mes = fecha.getMonth();
   if (mes == 12)   {
      mes = 1;
	  anio++;
   }
   else {
     mes++;
   }
   var nuevafecha=new Date()
   nuevafecha.setFullYear(anio,mes,1);
   nuevafecha.setDate(nuevafecha.getDate()-1);
   var dias = nuevafecha.getDate();
   return dias;
}

function cambiames() {
   var mes=document.getElementById("selmes").options.selectedIndex + 1;
   var objFecha = document.getElementById("fechaoculta");
   var dia = objFecha.value.substring(2,4)
   var fecha=new Date();
   var ano=fecha.getFullYear();
   var ultimo = paramMes(valor(mes+"")).split("#")
   ultimo=ultimo[1];
   if (valor(dia) > ultimo)   {
	   dia=ultimo;
   }
   var mesdia=rellenar(mes,2)+dia+"";
   objFecha.value=mesdia;
   cargarTablas(mesdia);
}