/* Programado por Federico García para Liga Iberoamericana de Astronomía
se prohibe la reproducción parcial o total del SCRIPT.
Copyright 2002. Todos los derechos reservados */


	days = new Date();
	gdate = days.getUTCDate();
	gmonth = days.getUTCMonth()+1;
	gyear = days.getUTCFullYear();
	ghour = days.getUTCHours();
	var dji=1721044.5;
	var lmes= new Array(31,28,31,30,31,30,31,31,30,31,30,31);
	var j;
	var k;
	var calc=ghour/24.0;
	if (gyear%4==0) lmes[1]=29;
	else calc+=1;
	if (gmonth!=1) for (j=0;j<=(gmonth-2);++j) {
		calc+=lmes[j];
	}
	k=gyear/4.0;
	calc+=gdate-1;
	calc+=dji;
	calc+=365.0*gyear;
	calc+=parseInt(k);
	var cal=parseInt(calc);
	var c=cal.toString();

   var diafase=(((calc-2452258.365972)/29.530588)-parseInt((calc-2452258.365972)/29.530588))*29.530588;
//alert((((calc-2452258.365972)/29.530588)-parseInt((calc-2452258.365972)/29.530588)).toString());
   var fasetotal=Math.round((((calc-2452258.365972)/29.530588)-parseInt((calc-2452258.365972)/29.530588))*100);

   document.write('<table width="90%" valign="center" rowspan="0" border="0" cellspacing="0" cellpadding="0"><td width="50" valign="center"><a href="http://institutocopernico.org/efemer.php" target="_blank"><img border="0" src=');
   
     
   var tipofase;
   if (fasetotal<50) { var tipofase="Creciente"}
   else {var tipofase="Menguante"}

   var fase=Math.round(fasetotal);
   if (fase==100) fase=0;

   if (fase==50 || fase==51 || fase==52 || fase==49 || fase==48) fase="<br>Luna Llena: ";
   else if (fase==0 || fase==1 || fase==2 || fase==99 || fase==98) fase="<br>Luna Nueva: ";
   else fase="<br>Luna " + tipofase + ": ";

var perimg=29.530588/28;
var inic=perimg-(29.530588-29);

	if (diafase>=inic && diafase<(inic+perimg)) document.write('"images/lunas/2.gif"');
	else if (diafase>=(inic+perimg) && diafase<(inic+2*perimg)) document.write('"images/lunas/3.gif"');
	else if (diafase>=(inic+2*perimg) && diafase<(inic+3*perimg)) document.write('"images/lunas/4.gif"');
	else if (diafase>=(inic+3*perimg) && diafase<(inic+4*perimg)) document.write('"images/lunas/5.gif"');
	else if (diafase>=(inic+4*perimg) && diafase<(inic+5*perimg)) document.write('"images/lunas/6.gif"');
	else if (diafase>=(inic+5*perimg) && diafase<(inic+6*perimg)) document.write('"images/lunas/7.gif"');
	else if (diafase>=(inic+6*perimg) && diafase<(inic+7*perimg)) document.write('"images/lunas/8.gif"');
	else if (diafase>=(inic+7*perimg) && diafase<(inic+8*perimg)) document.write('"images/lunas/9.gif"');
	else if (diafase>=(inic+8*perimg) && diafase<(inic+9*perimg)) document.write('"images/lunas/10.gif"');
	else if (diafase>=(inic+9*perimg) && diafase<(inic+10*perimg)) document.write('"images/lunas/11.gif"');
	else if (diafase>=(inic+10*perimg) && diafase<(inic+11*perimg)) document.write('"images/lunas/12.gif"');
	else if (diafase>=(inic+11*perimg) && diafase<(inic+12*perimg)) document.write('"images/lunas/13.gif"');
	else if (diafase>=(inic+12*perimg) && diafase<(inic+13*perimg)) document.write('"images/lunas/14.gif"');
	else if (diafase>=(inic+13*perimg) && diafase<(inic+14*perimg)) document.write('"images/lunas/15.gif"');
	else if (diafase>=(inic+14*perimg) && diafase<(inic+15*perimg)) document.write('"images/lunas/16.gif"');
	else if (diafase>=(inic+15*perimg) && diafase<(inic+16*perimg)) document.write('"images/lunas/17.gif"');
	else if (diafase>=(inic+16*perimg) && diafase<(inic+17*perimg)) document.write('"images/lunas/18.gif"');
	else if (diafase>=(inic+17*perimg) && diafase<(inic+18*perimg)) document.write('"images/lunas/19.gif"');
	else if (diafase>=(inic+18*perimg) && diafase<(inic+19*perimg)) document.write('"images/lunas/20.gif"');
	else if (diafase>=(inic+19*perimg) && diafase<(inic+20*perimg)) document.write('"images/lunas/21.gif"');
	else if (diafase>=(inic+20*perimg) && diafase<(inic+21*perimg)) document.write('"images/lunas/22.gif"');
	else if (diafase>=(inic+21*perimg) && diafase<(inic+22*perimg)) document.write('"images/lunas/23.gif"');
	else if (diafase>=(inic+22*perimg) && diafase<(inic+23*perimg)) document.write('"images/lunas/24.gif"');
	else if (diafase>=(inic+23*perimg) && diafase<(inic+24*perimg)) document.write('"images/lunas/25.gif"');
	else if (diafase>=(inic+24*perimg) && diafase<(inic+25*perimg)) document.write('"images/lunas/26.gif"');
	else if (diafase>=(inic+25*perimg) && diafase<(inic+26*perimg)) document.write('"images/lunas/27.gif"');
	else if (diafase>=(inic+26*perimg) && diafase<(inic+27*perimg)) document.write('"images/lunas/28.gif"');
	else document.write('"images/lunas/1.gif"');

   document.write(' alt="Efemérides Lunares"></a></td><td width="100%" valign="center"><p><font color="#2F6B88" style="font-size:100%">');

	document.write(fase);
	document.write(Math.round(diafase));

	document.write('&nbsp;d&iacute;as</font></p></td></table>');

//end