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 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);
   location="hechoshistoricos"+rellenar(mes,2)+rellenar(dia,2)+".html"
}

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 rellenar(t,n) {
  var ceros="000000000000000000";
  var x=t+"";
  var misceros=ceros.substring(0,n-x.length);
  return misceros+x;
}

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

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

function iniciar() {
	var mesdia=obtendiames();	
	var mes=valor(mesdia.substring(0,2));	
	fijarCombo(mes);  	
	cargarTablas(mesdia);
}

function calendario(paramMeses,mes) {
  var k=1;  
  var param=paramMeses.split("#");  
  var dia="",clase;  
  var html="<table class='mes1'>";   
  html += "<thead>\n";
  html += "<tr class='sem'>\n";  
  var titulo="LMXJVSD";  
  for (i=0;i<titulo.length;i++)  {
	  html += "<td class='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 class='sem' style='background-color:black'>";
		ponfin=true;
	}
    for (var j=1 ;j<=7;j++ )  {	 
		var textdiames=rellenar(mes,2)+rellenar(k,2)+"";	
		var clase2="class='dia'";
		if ((textdiames == obtendiames())) {
			clase="class='hoy'";
			clase2="class='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="class='hoy'";
					clase2="class='diahoy'";
			    }
				else {
				   clase2="class='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 " +  clase + " align='center' height='19' width='14%'></td>";
		}
		if ((dia !="")&&(dia!="0"))	{		
            html += "<td " +  clase + " align='center' height='19' width='14%'>";
            html += "<a " + clase2 + " href='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 pondia(n) {
  var objFecha = document.getElementById("fechaoculta");
  objFecha.value=n;
}

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

}
  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 incdecfec(n) {
	var actual = fechaoculta.value;
	var mes=parseInt(actual.substring(0,2),10)-1;
	var dia=parseInt(actual.substring(2,4),10);
	var anio = 2004;
	var fecha=new Date();
	fecha.setFullYear(anio,mes,dia+n);
	var sig=rellenar(fecha.getMonth()+1,2) + "" + rellenar(fecha.getDate(),2);
    var nombre=location.href;
	nombre = nombre.substring(nombre.lastIndexOf("/")+1,nombre.length+1);
	var largo=nombre.lastIndexOf(".")-5;
	nombre=nombre.substring(0,largo+1);
    var nurl=nombre + sig + ".html";
	location.href=nurl;
}

function traduciringles(nombre) {
    l=nombre.length;
    var subnombre=nombre.substring(7,l);
	var direccion = "http://translate.google.es/translate?u=http%3A%2F%2F" + subnombre;
	direccion += "&sl=es&tl=en&hl=es&ie=UTF-8";
    window.location.href = direccion;
}

function traducirfrances(nombre) {
    l=nombre.length;
    var subnombre=nombre.substring(7,l);
	var direccion = "http://translate.google.es/translate?u=http%3A%2F%2F" + subnombre;
	direccion += "&sl=es&tl=fr&hl=es&ie=UTF-8";
    window.location.href = direccion;
}

//Añadir en favoritos
function agregar(){
//Para internet explorer
if ((navigator.appName=="Microsoft Internet Explorer") && (parseInt(navigator.appVersion)>=4)) {
var url="http://www.hechoshistoricos.es/";
var titulo="Efemérides históricas.";
window.external.AddFavorite(url,titulo);
}
//Para Netscape y Firefox
else {
if(navigator.appName == "Netscape")
alert ("Presione Ctrl+D para agregar a este sitio a sus Marcadores");
}
}