/* Variables para mostrar fechas */
var centro='';
var centro_ant='';
var fecha_1='';
var fecha_2='';
var colores=new Array('FFFF22','FFD6AB','318B00');
function fanterior()
{
valor=document.formu.mes.value;
if ((parseInt(document.formu.mesactual.value)) != (parseInt(valor)+1))
{
if (valor=='01')
{
mesanterior='12';
document.formu.mes.value=mesanterior;
anioanterior=eval(document.formu.anio.value)-1;
document.formu.anio.value=anioanterior;
}
else
{
mesanterior=eval(document.formu.mes.value)-1;
ma=mesanterior.toString();
if (ma.length == 1)
document.formu.mes.value='0'+mesanterior;
else
document.formu.mes.value=mesanterior;
}
var tabla = '';
var caption='
'+NombMes[eval(mesanterior)]+' '+document.formu.anio.value+'
';
var cabeceras = '| Lu | Ma | Mi | Ju | Vi | Sa | Do |
|---|
'
var calendario=calendario1_accesible(eval(document.formu.mes.value), eval(document.formu.anio.value),eval(document.formu.diaactual.value),fechas);
var fintabla = '
';
var objTabla = document.getElementById('calendariotabla');
objTabla.innerHTML= tabla + caption + cabeceras + calendario + fintabla;
}
}
function siguiente()
{
valor=document.formu.mes.value;
if (valor=='12')
{
mesanterior='01';
document.formu.mes.value=mesanterior;
anioanterior=eval(document.formu.anio.value)+1;
document.formu.anio.value=anioanterior;
}
else
{
mesanterior=eval(document.formu.mes.value)+1;
ma=mesanterior.toString();
if (ma.length == 1)
document.formu.mes.value='0'+mesanterior;
else
document.formu.mes.value=mesanterior;
}
var tabla = '';
var caption=''+NombMes[eval(mesanterior)]+ ' '+document.formu.anio.value+'';
var cabeceras = '| Lu | Ma | Mi | Ju | Vi | Sa | Do |
|---|
'
var calendario= calendario1_accesible(eval(document.formu.mes.value), eval(document.formu.anio.value),eval(document.formu.diaactual.value),fechas);
var fintabla = '
';
var objTabla = document.getElementById('calendariotabla');
objTabla.innerHTML= tabla + caption + cabeceras + calendario + fintabla;
}
function iniciar(){
document.getElementById('calendar_js').style.display='block';
}
function calendario_accesible(mes,anio,vardia,arrayfecha,dactual,mactual,aactual)
{
ames=mes;
aanyo=anio;
var nfilas=6; //filas de cada mes
var diasmes = longitudesmeses[mes]; //dias que tiene ese mes...
var fecha = new Date();
fecha.setDate(1);
fecha.setMonth(mes-1);
fecha.setFullYear(anio);
var diasemana = fecha.getDay();
if (diasemana==0) diasemana=7;
var cont = 1;
document.write(' | Lu | Ma | Mi | Ju | Vi | Sa | Do |
|---|
');
document.write('');
//pìnto espacios antes del primer día
for (i=1;i<=diasemana-1; i++)
{document.write(' | ');}
//pinto primera fila de días
for (i=diasemana;i<=7; i++)
{
if (devuelvedia(mes,anio,cont,arrayfecha))
{
if(dactual==cont)
{
document.write(' | ');
}
else
{
document.write(''+cont+' | ');}
}
else
{
if(dactual==cont)
{document.write(''+cont+' | ');}
else
{document.write(''+cont+' | ');}
}
cont++;
}
document.write('
');
//las demas filas
for (j=2;j<=6;j++)
{
document.write('');
for (h=1;h<=7;h++)
{
if (cont<=diasmes)
{
if (devuelvedia(mes,anio,cont,arrayfecha))
{
if(dactual==cont)
{
document.write(' | ');
}
else
{document.write(''+cont+' | ');}
}
else
{
if(dactual==cont)
{document.write(''+cont+' | ');}
else
{document.write(''+cont+' | ');}
}
}
else
{document.write(' | ');}
cont++;
}
document.write('
');
}
document.write('
');
}
function calendario1_accesible(mes,anio,vardia,arrayfecha)
{
ames=mes;
aanyo=anio;
dia=vardia;
var nfilas=6; //filas de cada mes
var diasmes = longitudesmeses[mes]; //dias que tiene ese mes...
var fecha = new Date();
fecha.setDate(1);
fecha.setMonth(mes-1);
fecha.setFullYear(anio);
var diasemana = fecha.getDay();
if (diasemana==0) diasemana=7;
var cont = 1;
presenta='';
//pìnto espacios antes del primer día
for (i=1;i<=diasemana-1; i++)
{presenta+='| | ';}
//pinto primera fila de días
for (i=diasemana;i<=7; i++)
{
if (devuelvedia(mes,anio,cont,arrayfecha))
{
if((dia==cont)&& (eval(document.formu.mesactual.value)==mes)&& (eval(document.formu.anioactual.value)==anio))
{
presenta+=(' | ');
}
else
{presenta+=(''+cont+' | ');}
}
else
{
if((dia==cont) && (eval(document.formu.mesactual.value)==mes)&& (eval(document.formu.anioactual.value)==anio))
{presenta+=(''+cont+' | ');}
else
{presenta+=(''+cont+' | ');}
}
cont++;
}
presenta+='
';
//las demas filas
for (j=2;j<=6;j++)
{
presenta+='';
for (h=1;h<=7;h++)
{
if (cont<=diasmes)
{
if (devuelvedia(mes,anio,cont,arrayfecha))
{
if((dia==cont) && (eval(document.formu.mesactual.value)==mes)&& (eval(document.formu.anioactual.value)==anio))
{
presenta+=(' | ');
}
else
{presenta+=(''+cont+' | ');}
}
else
{
if((dia==cont) && (eval(document.formu.mesactual.value)==mes)&& (eval(document.formu.anioactual.value)==anio))
{presenta+=(''+cont+' | ');}
else
{presenta+=(''+cont+' | ');}
}
}
else
{presenta+=' | ';}
cont++;
}
presenta+='
';
}
return presenta;
}