var days = new Array(8);
days[1] = "Dom";
days[2] = "Lun";
days[3] = "Mar";
days[4] = "Mie";
days[5] = "Jue";
days[6] = "Vie";
days[7] = "Sáb";
var months = new Array(13);
months[1] = "Ene";
months[2] = "Feb";
months[3] = "Mar";
months[4] = "Abr";
months[5] = "May";
months[6] = "Jun";
months[7] = "Jul";
months[8] = "Ago";
months[9] = "Sep";
months[10] = "Oct";
months[11] = "Nov";
months[12] = "Dic";
var dateObj = new Date()
var wday = days[dateObj.getDay() + 1]
var lmonth = months[dateObj.getMonth() + 1]
var date = dateObj.getDate()


<!-- hide this script tag's contents from old browsers
function PrimerGiro (x) {
	x= x- 360 * Math.floor ( x / 360);
	return x;
	}
function run() {
    var  fecha = new Date();
    var zona=(fecha.getTimezoneOffset())/60;
    var tu=(fecha.toGMTString());
<!--hora de verano-->
    //     if (document.fase.v.checked) {
    //	var miliseg=(Date.parse(tu))+(zona-1)*60*60*1000;
    //		}else {
    		var miliseg=(Date.parse(tu))+zona*60*60*1000;
    //	}
    var fecha=new Date(miliseg);
    var YY = (fecha.getFullYear());
    var MM = (fecha.getMonth())+1;
    var DD = (fecha.getDate());
    var HR = (fecha.getHours());
    var MN = (fecha.getMinutes());
    var SG = (fecha.getSeconds());
    <!--resolver el malfuncionamiento de la función getYear()-->
    <!-- Para el año 2000 Netscape indica que estamos en el año 100 y hay que sumar 1900, 	mientras Internet Explorer indica que estamos en el 2000 y al sumar 1900 nos situa en el año 3900.  -->
      if (YY>3895) YY=YY-1900; 
    //document.fase.nyear.value =YY;
    //document.fase.nmonth.value =MM;
    //document.fase.nday.value =DD;
    //document.fase.nhour.value =HR;
    //document.fase.nminute.value =MN;
    //document.fase.nsegundos.value =SG;
with (Math) {  
    <!--fecha juliana -->
      HORA=HR + MN / 60 + SG /3600;
      GGG = 1;
      if (YY <= 1585) GGG = 0;
      JD = -1 * floor(7 * (floor((MM + 9) / 12) + YY) / 4);
      S = 1;
      if ((MM - 9)<0) S=-1;
      A = abs(MM - 9);
      J1 = floor(YY + S * floor(A / 7));
      J1 = -1 * floor((floor(J1 / 100) + 1) * 3 / 4);
      JD = JD + floor(275 * MM / 9) + DD + (GGG * J1);
      JD = JD + 1721027 + 2 * GGG + 367 * YY - 0.5;
      JD = JD + HORA / 24;
      J2=JD;
      <!--asignacion valores Tierra-->
	RAD=180/PI
	ET=0.016718;
	VP=8.22E-5
	P=4.93204
	M0=2.12344
	MN=1.72019E-2
	T0=2444000.5
	S=2415020.5
	P=P+(J2-T0)*VP/100
	AM=M0+MN*(J2-T0)
	AM=AM-2*PI*floor(AM/(2 * PI))
	<!--Ec. Kepler para Tierra-->
	V=AM+2*ET*sin(AM)+1.25*ET*ET*sin(2*AM);
	if (V<0) {
		V=2*PI+V
		}
	LS=P+V
	LS=LS-2*PI*floor(LS/(2*PI))
        LS=LS*RAD;
	<!-- POSICION DE LA LUNA   -->
	<!--30 Position of the moons (Meeus)-->
	T = (JD- 2415020) / 36525
	T2 = T * T
	T3 = T2 * T
	L1 = 270.434164 + 481267.8831 * T - .001133 * T2 + .0000019 * T3
	M = 358.475833 + 35999.0498 * T - .00015 * T2 - .0000033 * T3
	M1 = 296.104608 + 477198.8491 * T + .009192 * T2 + .0000144 * T3
	D = 350.737486 + 445267.1142 * T - .001436 * T2 + .0000019 * T3
	F = 11.250889 + 483202.0251 * T - .003211 * T2 - .0000003 * T3
	OM = 259.183275 - 1934.142 * T + .002078 * T2 + .0000022 * T3
	OM = OM * PI / 180
	<!--TERMINOS ADITIVOS -->
	L1 = L1 + .000233 * sin((51.2 + 20.2 * T) * PI / 180)
	S = .003964 * sin((346.56 + 132.87 * T - .0091731 * T2) * PI / 180)
	L1 = L1 + S + .001964 * sin(OM)
	M = M - .001778 * sin((51.2 + 20.2 * T) * PI / 180)
	M1 = M1 + .000817 * sin((51.2 + 20.2 * T) * PI / 180)
	M1 = M1 + S + .002541 * sin(OM)
	D = D + .002011 * sin((51.2 + 20.2 * T) * PI / 180)
	D = D + S + .001964 * sin(OM)
	F = F + S - .024691 * sin(OM)
	F = F - .004328 * sin(OM + (275.05 - 2.3 * T) * PI / 180)
	EX = 1 - .002495 * T - .00000752 * T2
	OM = OM * 180 / PI
	L1 = PrimerGiro(L1)
	M = PrimerGiro(M)
	M1 = PrimerGiro(M1)
	D = PrimerGiro(D)
	F = PrimerGiro(F)
	OM = PrimerGiro(OM)
	M = M * PI / 180
	M1 = M1 * PI / 180
	D = D * PI / 180
	F = F * PI / 180
<!--CALCULO DE LA LONGITUD-->
L=L1+ 6.28875 * sin(M1) + 1.274018 * sin(2 * D - M1) + .658309 * sin(2 * D)
L= L + .213616 * sin(2 * M1) - EX * .185596 * sin(M) - .114336 * sin(2 * F)
L= L + .058793 * sin(2 * D - 2 * M1) + EX * .057212 * sin(2 * D - M - M1) + .05332 * sin(2 * D + M1)
L = L + EX * .045874 * sin(2 * D - M) + EX * .041024 * sin(M1 - M) - .034718 * sin(D)
L = L - EX * .030465 * sin(M + M1) + .015326 * sin(2 * D - 2 * F) - .012528 * sin(2 * F + M1)
L = L - .01098 * sin(2 * F - M1) + .010674 * sin(4 * D - M1) + .010034 * sin(3 * M1)
L = L + .008548 * sin(4 * D - 2 * M1) - EX * .00791 * sin(M - M1 + 2 * D) - EX * .006783 * sin(2 * D + M)
L = L + .005162 * sin(M1 - D) + EX * .005 * sin(M + D) + EX * .004049 * sin(M1 - M + 2 * D)
L = L + .003996 * sin(2 * M1 + 2 * D) + .003862 * sin(4 * D) + .003665 * sin(2 * D - 3 * M1)
L = L + EX * .002695 * sin(2 * M1 - M) + .002602 * sin(M1 - 2 * F - 2 * D) + EX * .002396 * sin(2 * D - M - 2 * M1)
L = L - .002349 * sin(M1 + D) + EX * EX * .002249 * sin(2 * D - 2 * M) - EX * .002125 * sin(2 * M1 + M)
L = L - EX * EX * .002079 * sin(2 * M) + EX * EX * .002059 * sin(2 * D - M1 - 2 * M) - .001773 * sin(M1 + 2 * D - 2 * F)
L = L + EX * .00122 * sin(4 * D - M - M1) - .00111 * sin(2 * M1 + 2 * F) + .000892 * sin(M1 - 3 * D)
L = L - EX * .000811 * sin(M + M1 + 2 * D) + EX * .000761 * sin(4 * D - M - 2 * M1) + EX * EX*.000717 * sin(M1 - 2 * M)
L = L + EX * EX * .000704 * sin(M1 - 2 * M - 2 * D) + EX * .000693 * sin(M - 2 * M1 + 2 * D) + EX * .000598 * sin(2 * D - M - 2 * F) + .00055 * sin(M1 + 4 * D)
L = L + .000538 * sin(4 * M1) + EX * .000521 * sin(4 * D - M) + .000486 * sin(2 * M1 - D)
L = L - .001595 * sin(2 * F + 2 * D);
<!--CALCULO DE LA LATITUD-->
B = 5.128189 * sin(F) + .280606 * sin(M1 + F) + .277693 * sin(M1 - F) + .173238 * sin(2 * D - F);
	W1 = .0004664 * cos(OM * PI / 180);
	W2 = .0000754 * cos((OM + 275.05 - 2.3 * T) * PI / 180);
	B = B * (1 - W1 - W2);
<!--CALCULO DEL ANGULO DE FASE Y FASE LUNAR-->
        DL=acos(cos((L-LS)/RAD)*cos(B/RAD));
	IL=180-DL*RAD-0.1468*(1-0.0549*sin(M1))*sin(DL)/(1-0.0167*sin(M));
	K=(1+cos(IL/RAD))/2;
<!--Lunación Brown-->
	QQ=JD/29.530588-82064;
	BB =floor(QQ);
<!--Fase con texto y Edad-->
	X=PrimerGiro(L-LS);
 	if (X<90) {
		faseluna="Luna Creciente"
		} else {
			if (X<180) {
				faseluna="Gibosa Creciente"
				} else {
					if(X<270) {
						faseluna="Gibosa Decreciente"
						} else {
							faseluna="Luna Menguante"
							}
					}

			}
	if (abs(X)<3) {
		faseluna="Luna Nueva"}
        if (abs(X-90)<3) {
		faseluna="Cuarto Creciente"}
	if (abs(X-180)<3) {
		faseluna="Luna Llena"}
	if (abs(X-270)<3) {
		faseluna="Cuarto Menguante"}
	X1=PrimerGiro(L1-LS);
	Edad=X1*29.530588/360;
	
    }
    //    fase.juliano.value = JD;
    //    fase.lsolar.value =LS;
    //    fase.longitud.value =L;
    //    fase.latitud.value =B;
    //---------------------------------------fase.fase.value =K;
    //    fase.brown.value=BB;
    //---------------------------------------fase.edad.value=Edad;
    //---------------------------------------fase.faseluna.value=faseluna;
//    window.setTimeout("run()");    


moonday=parseInt(Edad)

if (moonday == 1) {dialuna = "1º día de la Luna Nueva"; angel="<B><font size=4> GENEDIEL</b></font>: Maestro de las Influencias Cosmicas Del dia de la Luna Nueva"}
if (moonday == 2) {dialuna = "2º día de la Luna Nueva"; angel="<B><font size=4> ENEDIEL</b></font>: Maestro de las Influencias Cosmicas del 2 dia de la Luna Nueva"}
if (moonday == 3) {dialuna = "3º día de la Luna Nueva"; angel="<B><font size=4> AMIXIEL 1</b></font>: Maestro de las influencias Cosmicas del dia 3 del la Luna Nueva"}
if (moonday == 4) {dialuna = "4º día de la Luna Nueva"; angel="<B><font size=4> AZARIEL</b></font>: Maestro de las Influencias Cosmicas del dia 4 de la Luna Nueva"}
if (moonday == 5) {dialuna = "5 dia de la Luna Nueva"; angel="<B><font size=4> GABRIEL</b></font>: Maestro de las Influencias Cosmicas del dia  5 de la Luna Nueva"}
if (moonday == 6) {dialuna = "6 dia de la Luna Nueva"; angel="<B><font size=4> DIRACHIEL</b></font>: Maestro de las Influencias Cosmicas de dia 6 de la Luna Nueva"}
if (moonday == 7) {dialuna = "7 dia de la Luna Nueva"; angel="<B><font size=4>  SEHELIEL</b></font>: Maestro de las Influencias Cosmicas dia 7 de la Luna Nueva"}
if (moonday == 8) {dialuna = "1 dia del Cuarto Creciente"; angel="<B><font size=4> MANEDIEL</b></font>: Maestro de las Influencias Cosmicas Del 1 DIA del Cuarto Creciente"}
if (moonday == 9) {dialuna = "2 dia del Cuarto Creciente"; angel="<B><font size=4> BARBIEL</b><br>: Maestro de las Influencias Cosmicas del dia 2 del Cuarto Creciente"}
if (moonday == 10) {dialuna = "3 dia del Cuarto Creciente"; angel="<B><font size=4> ARDEFIEL</b></font>: Maestro de la influencias Cosmicas del  dia 3 Del Cuarto Creciente"}
if (moonday == 11) {dialuna = "4 dia del Cuarto Creciente"; angel="<B><font size=4> NECIEL</b></font>: Maestro de las Influencias Cosmicas Del 4 dia del Cuarto Creciente"}
if (moonday == 12) {dialuna = "5 dia del Cuarto Creciente"; angel="<B><font size=4> ABDIZUEL</b></font>: Maestro de la Influencias Cosmicas del 5 Dia del Cuarto Creciente"}
if (moonday == 13) {dialuna = "6 dia del Cuarto Creciente"; angel="<B><font size=4> JAZERIEL</b></font>: Maestro de las Influencias del 6 dia del Cuarto Creciente"}
if (moonday == 14) {dialuna = "7 dia del Cuarto Creciente"; angel="<B><font size=4> ERGEDIEL</b></font>: Maestro de las Influencias Cosmicas del 7 Dia del Cuarto Creciente"}
if (moonday == 15) {dialuna = "1 dia de la Luna Llena"; angel="<B><font size=4>  ATALIEL</b></font>: Maestro de las Influencias Cosmicas del Dia de Luna Llena"}
if (moonday == 16) {dialuna = "2 dia de la Luna Llena"; angel="<B><font size=4> AZERUEL</b></font>: Maestro de las Influencias Cosmicas del 2 Dia de la Luna Llena"}
if (moonday == 17) {dialuna = "3 dia de la Luna Llena"; angel="<B><font size=4> ADRIEL</b></font>: Maestro de las Influencias Cosmicas del Dia 3 de la Luna Llena"}
if (moonday == 18) {dialuna = "4 dia de la Luna Llena"; angel="<B><font size=4> EGIBIEL</b></font>: Maestro de las Influencias Cosmicas del 4 Dia de la Luna Llena"}
if (moonday == 19) {dialuna = "5 dia de la Luna Llena"; angel="<B><font size=4>  AMUTIEL</b></font>: Maestro de las Influencias Cosmicas del 5 Dia de Luna Llena"}
if (moonday == 20) {dialuna = "6 dia de la Luna Llena"; angel="<B><font size=4>  KYRIEL</b></font>: Maestro de las Influencias Cosmicas del 6 Dia de la Luna Llena"}
if (moonday == 21) {dialuna = "7 dia de la Luna Llena"; angel="<B><font size=4>  BETHNAEL</b></font>: Maestro de las Influencias Cosmicas del 7 dia de Luna Llena"}
if (moonday == 22) {dialuna = "1 dia del Cuarto Menguante"; angel="<B><font size=4>  GELIEL</b></font>: Maestro de las Influencias Cosmicas el 1 dia del Cuarto Menguante"}
if (moonday == 23) {dialuna = "2 dia del Cuarto Menguante"; angel="<B><font size=4>  REQUIEL</b></font>: Maestro de las Influencias Cosmicas del 2 Dia del Cuarto Menguante"}
if (moonday == 24) {dialuna = "3 dia del Cuarto Menguante"; angel="<B><font size=4>  BARINAEL</b></font>: Maestro de las Influencias Cosmica del 3 Dia del Cuarto Menguante"}
if (moonday == 25) {dialuna = "4 dia del Cuarto Menguante"; angel="<B><font size=4> AZIEL</b></font>: Maestro de las Influencias Cosmicas del 4 Dia del Cuarto Menguante"}
if (moonday == 26) {dialuna = "5 dia del Cuarto Menguante"; angel="<B><font size=4>  TAGRIEL</b></font>: Maestro de las Influencias Cosmicas en el 5 Dia del Cuarto Menguante"}
if (moonday == 27) {dialuna = "6 dia del Cuarto Menguante"; angel="<B><font size=4>  ALHENIEL</b></font>: Maestro de las Influencias Cosmica en el 6 Dia del Cuarto Menguante"}
if (moonday == 28) {dialuna = "7 dia del Cuarto Menguante"; angel="<B><font size=4>  AMIXIEl 2</b></font>:  Maestro de las Influencias Cosmicas del Ultimo Dia de la Lunacion"}
if (moonday == 29) {dialuna = "7 dia del Cuarto Menguante"; angel="<B><font size=4>  AMIXIEl 2</b></font>:  Maestro de las Influencias Cosmicas del Ultimo Dia de la Lunacion"}


if (moonday == 1) {textoface="Dia 1 de 'Calendas'. Primer dia del Mes Lunar"}
if (moonday == 2) {textoface="2 dia de 'Calendas'"}
if (moonday == 3) {textoface="3 dia de 'Calendas'"}
if (moonday == 4) {textoface="4 dia de 'Calendas'"}
if (moonday == 5) {textoface="5 dia de 'Calendas'"}
if (moonday == 6) {textoface="6 dia de 'Calendas'"}
if (moonday == 7) {textoface="7 dia de 'Calendas'"}
if (moonday == 8) {textoface="1 dia de 'Octos, Cuarto Creciente'"}
if (moonday == 9) {textoface="2 dia de 'Octos'"}
if (moonday == 10) {textoface="3 dia de 'Octos'"}
if (moonday == 11) {textoface="4 dia de 'Octos'"}
if (moonday == 12) {textoface="5 dia de 'Octos'"}
if (moonday == 13) {textoface="6 dia de 'Octos'"}
if (moonday == 14) {textoface="7 dia de 'Octos'"}
if (moonday == 15) {textoface="1 dia de la mitad o 'Ides-Dies', Dia de la Luna Llena"}
if (moonday == 16) {textoface="2 dia de 'Ides'"}
if (moonday == 17) {textoface="3 dia de 'Ides'"}
if (moonday == 18) {textoface="4 dia de 'Ides'"}
if (moonday == 19) {textoface="5 dia de 'Ides'"}
if (moonday == 20) {textoface="6 dia de 'Ides'"}
if (moonday == 21) {textoface="7 dia de 'Ides'"}
if (moonday == 22) {textoface="1 dia de Finem-Díes: Los dias limite: Cuarto Menguante de la Luna."}
if (moonday == 23) {textoface="2 dia de 'Finis'"}
if (moonday == 24) {textoface="3 día de 'Finis'"}
if (moonday == 25) {textoface="4 dia de 'Finis'"}
if (moonday == 26) {textoface="5 dia de 'Finis'"}
if (moonday == 27) {textoface="6 dia de 'Finis'"}
if (moonday == 28) {textoface="7 dia de 'Finis'"}
if (moonday == 29) {textoface="7 dia de 'Finis'"}

dato1=wday + ". " + date + " " + lmonth + ", " + dateObj.getYear()
dato2="Edad de la Luna: " + parseInt(Edad) + " dias (<b>" + textoface + "</b>)"
dato3="<b>Angel Lunar</b>: "+ angel
}