function lunadenac(){
DiasSemana=new MakeArrays(6);
DiasSemana[0]="Domingo, "	
DiasSemana[1]="Lunes, "
DiasSemana[2]="Martes, "
DiasSemana[3]="Miércoles, "
DiasSemana[4]="Jueves, "
DiasSemana[5]="Viernes, "
DiasSemana[6]="Sábado, "
NombreMes=new MakeArrays(11);
NombreMes[0]="Enero"
NombreMes[1]="Febrero"
NombreMes[2]="Marzo"
NombreMes[3]="Abril"
NombreMes[4]="Mayo"
NombreMes[5]="Junio"
NombreMes[6]="Julio"
NombreMes[7]="Agosto"
NombreMes[8]="Septiembre"
NombreMes[9]="Octubre"
NombreMes[10]="Noviembre"
NombreMes[11]="Diciembre"

datevar = new Date(); 
diaparaluna=datevar.getDate()
mesparaluna=datevar.getMonth()+1

if((mesparaluna==7)&&(diaparaluna>25)){
	luna="POP" 
	lunai="uinal1"
	finLuna="August 15, "
	}
if((mesparaluna==8)&&(diaparaluna<15)){
	luna="POP" 
	lunai="uinal1"
	finLuna="August 15, "
	}

if((mesparaluna==8)&&(diaparaluna>14)){
	luna="UO" 
        lunai="uinal2"
	finLuna="September 4, "
        }
if((mesparaluna==9)&&(diaparaluna<4)){
	luna="UO" 
        lunai="uinal2"
	finLuna="September 4, "
        }

if((mesparaluna==9)&&(diaparaluna>3)){
	luna="ZIP" 
        lunai="uinal3"
	finLuna="September 24, "
        }
if((mesparaluna==9)&&(diaparaluna<24)){
	luna="ZIP" 
        lunai="uinal3"
	finLuna="September 24, "
        }

if((mesparaluna==9)&&(diaparaluna>23)){
	luna="TZOTZ" 
        lunai="uinal4"
	finLuna="October 14, "
        }
if((mesparaluna==10)&&(diaparaluna<14)){
	luna="TZOTZ" 
        lunai="uinal4"
	finLuna="October 14, "
        }

if((mesparaluna==10)&&(diaparaluna>13)){
	luna="TZEC" 
        lunai="uinal5"
	finLuna="November 3, "
        }
if((mesparaluna==11)&&(diaparaluna<3)){
	luna="TZEC" 
        lunai="uinal5"
	finLuna="November 3, "
        }

if((mesparaluna==11)&&(diaparaluna>2)){
	luna="XUL" 
        lunai="uinal6"
	finLuna="November 23, "
        }
if((mesparaluna==11)&&(diaparaluna<23)){
	luna="XUL" 
        lunai="uinal6"
	finLuna="November 23, "
        }

if((mesparaluna==11)&&(diaparaluna>22)){
	luna="YAXKIN" 
        lunai="uinal7"
	finLuna="December 13, "
        }
if((mesparaluna==12)&&(diaparaluna<13)){
	luna="YAXKIN" 
        lunai="uinal7"
	finLuna="December 13, "
        }

		if((mesparaluna==1)&&(diaparaluna==1)){
		luna="MOL" 
	        lunai="uinal8"
		finLuna="December 13, "
        	}

if((mesparaluna==12)&&(diaparaluna>12)){
	luna="MOL" 
        lunai="uinal8"
	finLuna="January 2, "
        }
if((mesparaluna==12)&&(diaparaluna<32)){
	luna="MOL" 
        lunai="uinal8"
	finLuna="January 2, "
        }

if((mesparaluna==1)&&(diaparaluna>1)){
	luna="CHEN" 
        lunai="uinal9"
	finLuna="January 22, "
        }
if((mesparaluna==1)&&(diaparaluna<22)){
	luna="CHEN" 
        lunai="uinal9"
	finLuna="January 22, "
        }

if((mesparaluna==1)&&(diaparaluna>21)){
	luna="YAX" 
        lunai="uinal10"
	finLuna="February 11, "
        }
if((mesparaluna==2)&&(diaparaluna<11)){
	luna="YAX" 
        lunai="uinal10"
	finLuna="February 11, "
        }

if((mesparaluna==2)&&(diaparaluna>10)){
	luna="ZAK" 
        lunai="uinal11"
	finLuna="March 3, "
        }
if((mesparaluna==3)&&(diaparaluna<3)){
	luna="ZAK" 
        lunai="uinal11"
	finLuna="March 3, "
        }

if((mesparaluna==3)&&(diaparaluna>2)){
	luna="CEH" 
        lunai="uinal12"
	finLuna="March 23, "
        }
if((mesparaluna==3)&&(diaparaluna<23)){
	luna="CEH" 
        lunai="uinal12"
	finLuna="March 23, "
        }

if((mesparaluna==3)&&(diaparaluna>22)){
	luna="MAC" 
        lunai="uinal13"
	finLuna="April 12, "
        }
if((mesparaluna==4)&&(diaparaluna<12)){
	luna="MAC" 
        lunai="uinal13"
	finLuna="April 12, "
        }

if((mesparaluna==4)&&(diaparaluna>11)){
	luna="KANKIN" 
        lunai="uinal14"
	finLuna="May 2, "
        }
if((mesparaluna==5)&&(diaparaluna<2)){
	luna="KANKIN" 
        lunai="uinal14"
	finLuna="May 2, "
        }

if((mesparaluna==5)&&(diaparaluna>1)){
	luna="MUAN" 
        lunai="uinal15"
	finLuna="May 22, "
        }
if((mesparaluna==5)&&(diaparaluna<22)){
	luna="MUAN" 
        lunai="uinal15"
	finLuna="May 22, "
        }

if((mesparaluna==5)&&(diaparaluna>21)){
	luna="PAX" 
        lunai="uinal16"
	finLuna="June 11, "
        }
if((mesparaluna==6)&&(diaparaluna<11)){
	luna="PAX" 
        lunai="uinal16"
	finLuna="June 11, "
        }


if((mesparaluna==6)&&(diaparaluna>10)){
	luna="KAYAB" 
        lunai="uinal17"
	finLuna="July 1, "
        }
if((mesparaluna==7)&&(diaparaluna<1)){
	luna="KAYAB" 
        lunai="uinal17"
	finLuna="July 1, "
        }

if((mesparaluna==6)&&(diaparaluna>30)){
	luna="CUMKU" 
        lunai="uinal18"
	finLuna="July 21, "
        }
if((mesparaluna==7)&&(diaparaluna<21)){
	luna="CUMKU" 
        lunai="uinal18"
	finLuna="July 21, "
        }

if((mesparaluna==7)&&(diaparaluna>20)){
	luna="UAYEB" 
        lunai="uinal19"
	finLuna="July 26, "
        }
if((mesparaluna==7)&&(diaparaluna<26)){
	luna="UAYEB" 
        lunai="uinal19"
	finLuna="July 26, "
        }

switch(mesparaluna){
case 1: mesLuna="January"
break;
case 2: mesLuna="February"
break;
case 3: mesLuna="March"
break;
case 4: mesLuna="April"
break;
case 5: mesLuna="May"
break;
case 6: mesLuna="June"
break;
case 7: mesLuna="July"
break;
case 8: mesLuna="August"
break;
case 9: mesLuna="September"
break;
case 10: mesLuna="October"
break;
case 11: mesLuna="November"
break;
case 12: mesLuna="December"
break;
}

var el2000 = new Date(finLuna +"2009 00:00:00") //dia que termina la Luna + 1
var milisegundosPorDia = 86400*1000
var now = new Date(mesLuna +" " + diaparaluna + ", 2009 00:00:00") // dia en que naci
var fecha = DiasSemana[now.getDay()]	+ now.getDate() + " de " + NombreMes[now.getMonth()] + " del " + now.getYear()
var restar = 0
dias = (el2000.getTime() - now.getTime() - restar)/milisegundosPorDia

switch(parseInt(dias)-1){
case 0: diaLuna="20"
break;
case 1: diaLuna="19"
break;
case 2: diaLuna="18"
break;
case 3: diaLuna="17"
break;
case 4: diaLuna="16"
break;
case 5: diaLuna="15"
break;
case 6: diaLuna="14"
break;
case 7: diaLuna="13"
break;
case 8: diaLuna="12"
break;
case 9: diaLuna="11"
break;
case 10: diaLuna="10"
break;
case 11: diaLuna="9"
break;
case 12: diaLuna="8"
break;
case 13: diaLuna="7"
break;
case 14: diaLuna="6"
break;
case 15: diaLuna="5"
break;
case 16: diaLuna="4"
break;
case 17: diaLuna="3"
break;
case 18: diaLuna="2"
break;
case 19: diaLuna="1"
break;
default :diaLuna="0"
break;
}

resultadohaab="Día <b>" + diaLuna + "</b> del mes <b>" + luna.toUpperCase() + "</b> en el Calendario Solar Haab"
}


function MakeArrays(n){
	this.length=n;
	for(var i=0; i<n; i++){
		this[i]=0
	}
	return this
}