Código ActionScript :
//BUSCO EL DÍA DE HOY
var hoy:Date = new Date();
var anio=hoy.fullYear;
var mes=hoy.month;
var dia=hoy.date;
var a:int=0;
//CARGO EL FORMULARIO
bAnt_btn.buttonMode=true;
bSig_btn.buttonMode=true;
fCalendario();
//CERRAR LOS AVISOS Y VOLVERLO BOTON EN UN MOVIE CLIP (CERRAR)
cerrar.buttonMode=true;
//FUNCION PARA EL CALENDARIO
function fCalendario():void
{
//CARGO LOS NOMBRES DE LOS MESES EN UN ARRAY (el objeto Date cuenta los meses desde 0 hasta 11)
var meses:Array = new Array("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre");
var mesesDias:Array = new Array(31,28,31,30,31,30,31,31,30,31,30,31);
var diasemana:Array = new Array("Domingo","Lunes","Martes","Miercoles","Jueves","Viernes","Sabado");
//BUSCO BISIESTOS PARA PONERLE 29 DÍAS A FEBRERO
if(anio%4==0 && anio%100!=0 || anio%400==0){ //esta es la formula para detectar bisiestos
mesesDias[1]=29;
}else{
mesesDias[1]=28;
}
//busco el primer día del mes
var primerdiames:Date = new Date(anio,mes)
//Elijo la posición en el calendario para el primer día del mes
var primerdia;
switch (primerdiames.day) {
case 0:
primerdia=0;
break;
case 1:
primerdia=1;
break;
case 2:
primerdia=2;
break;
case 3:
primerdia=3;
break;
case 4:
primerdia=4;
break;
case 5:
primerdia=5;
break;
case 6:
primerdia=6;
break;
}
//Dibujo el calendario
for(var i:uint=0;i<mesesDias[mes];i++)
{
var vPos=primerdia+i;
var bDia = "d" + vPos;
root[bDia].alpha=1;
root[bDia].numero_txt.text=i+1;
if((i+1)==hoy.date && mes==hoy.month && anio==hoy.fullYear)
{
root[bDia].numero_txt.textColor=0x968B8B;
}
if(((i+1) == 7)&&(meses[mes]=="Enero"))
{
root[bDia].numero_txt.textColor=0xE2F821;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0x06D1E8;
root[bDia].addEventListener(MouseEvent.CLICK,llamado1);
}
if(((i+1)== 11)&&(meses[mes] == "Enero"))
{
root[bDia].numero_txt.textColor=0xFA1FB9;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xA08AFD;
root[bDia].addEventListener(MouseEvent.CLICK,llamado2);
}
if(((i+1)== 18)&&(meses[mes] == "Enero"))
{
root[bDia].numero_txt.textColor=0x0000FF;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xB8E20C;
root[bDia].addEventListener(MouseEvent.CLICK,llamado3);
}
if(((i+1)== 4)&&(meses[mes] == "Febrero"))
{
root[bDia].numero_txt.textColor=0xE2F821;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0x06D1E8;
root[bDia].addEventListener(MouseEvent.CLICK,llamado1);
}
if(((i+1)== 11)&&(meses[mes] == "Febrero"))
{
root[bDia].numero_txt.textColor=0xFA1FB9;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xA08AFD;
root[bDia].addEventListener(MouseEvent.CLICK,llamado2);
}
if(((i+1)== 18)&&(meses[mes] == "Febrero"))
{
root[bDia].numero_txt.textColor=0x0000FF;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xB8E20C;
root[bDia].addEventListener(MouseEvent.CLICK,llamado3);
}
if(((i+1)== 4)&&(meses[mes] == "Marzo"))
{
root[bDia].numero_txt.textColor=0xE2F821;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0x06D1E8;
root[bDia].addEventListener(MouseEvent.CLICK,llamado1);
}
if(((i+1)== 11)&&(meses[mes] == "Marzo"))
{
root[bDia].numero_txt.textColor=0xFA1FB9;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xA08AFD;
root[bDia].addEventListener(MouseEvent.CLICK,llamado2);
}
if(((i+1)== 18)&&(meses[mes] == "Marzo"))
{
root[bDia].numero_txt.textColor=0x0000FF;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xB8E20C;
root[bDia].addEventListener(MouseEvent.CLICK,llamado3);
}
if(((i+1)== 5)&&(meses[mes] == "Abril"))
{
root[bDia].numero_txt.textColor=0xE2F821;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0x06D1E8;
root[bDia].addEventListener(MouseEvent.CLICK,llamado1);
}
if(((i+1)== 11)&&(meses[mes] == "Abril"))
{
root[bDia].numero_txt.textColor=0xFA1FB9;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xA08AFD;
root[bDia].addEventListener(MouseEvent.CLICK,llamado2);
}
if(((i+1)== 18)&&(meses[mes] == "Abril"))
{
root[bDia].numero_txt.textColor=0x0000FF;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xB8E20C;
root[bDia].addEventListener(MouseEvent.CLICK,llamado3);
}
if(((i+1)== 6)&&(meses[mes] == "Mayo"))
{
root[bDia].numero_txt.textColor=0xE2F821;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0x06D1E8;
root[bDia].addEventListener(MouseEvent.CLICK,llamado1);
}
if(((i+1)== 11)&&(meses[mes] == "Mayo"))
{
root[bDia].numero_txt.textColor=0xFA1FB9;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xA08AFD;
root[bDia].addEventListener(MouseEvent.CLICK,llamado2);
}
if(((i+1)== 18)&&(meses[mes] == "Mayo"))
{
root[bDia].numero_txt.textColor=0x0000FF;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xB8E20C;
root[bDia].addEventListener(MouseEvent.CLICK,llamado3);
}
if(((i+1)== 7)&&(meses[mes] == "Junio"))
{
root[bDia].numero_txt.textColor=0xE2F821;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0x06D1E8;
root[bDia].addEventListener(MouseEvent.CLICK,llamado1);
}
if(((i+1)== 10)&&(meses[mes] == "Junio"))
{
root[bDia].numero_txt.textColor=0xFA1FB9;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xA08AFD;
root[bDia].addEventListener(MouseEvent.CLICK,llamado2);
}
if(((i+1)== 17)&&(meses[mes] == "Junio"))
{
root[bDia].numero_txt.textColor=0x0000FF;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xB8E20C;
root[bDia].addEventListener(MouseEvent.CLICK,llamado2);
}
if(((i+1)== 5)&&(meses[mes] == "Julio"))
{
root[bDia].numero_txt.textColor=0xE2F821;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0x06D1E8;
root[bDia].addEventListener(MouseEvent.CLICK,llamado1);
}
if(((i+1)== 11)&&(meses[mes] == "Julio"))
{
root[bDia].numero_txt.textColor=0xFA1FB9;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xA08AFD;
root[bDia].addEventListener(MouseEvent.CLICK,llamado2);
}
if(((i+1)== 18)&&(meses[mes] == "Julio"))
{
root[bDia].numero_txt.textColor=0x0000FF;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xB8E20C;
root[bDia].addEventListener(MouseEvent.CLICK,llamado3);
}
if(((i+1)== 5)&&(meses[mes] == "Agosto"))
{
root[bDia].numero_txt.textColor=0xE2F821;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0x06D1E8;
root[bDia].addEventListener(MouseEvent.CLICK,llamado1);
}
if(((i+1)== 11)&&(meses[mes] == "Agosto"))
{
root[bDia].numero_txt.textColor=0xFA1FB9;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xA08AFD;
root[bDia].addEventListener(MouseEvent.CLICK,llamado2);
}
if(((i+1)== 18)&&(meses[mes] == "Agosto"))
{
root[bDia].numero_txt.textColor=0x0000FF;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xB8E20C;
root[bDia].addEventListener(MouseEvent.CLICK,llamado3);
}
if(((i+1)== 5)&&(meses[mes] == "Septiembre"))
{
root[bDia].numero_txt.textColor=0xE2F821;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0x06D1E8;
root[bDia].addEventListener(MouseEvent.CLICK,llamado1);
}
if(((i+1)== 12)&&(meses[mes] == "Septiembre"))
{
root[bDia].numero_txt.textColor=0xFA1FB9;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xA08AFD;
root[bDia].addEventListener(MouseEvent.CLICK,llamado2);
}
if(((i+1)== 19)&&(meses[mes] == "Septiembre"))
{
root[bDia].numero_txt.textColor=0x0000FF;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xB8E20C;
root[bDia].addEventListener(MouseEvent.CLICK,llamado3);
}
if(((i+1)== 5)&&(meses[mes] == "Octubre"))
{
root[bDia].numero_txt.textColor=0xE2F821;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0x06D1E8;
root[bDia].addEventListener(MouseEvent.CLICK,llamado1);
}
if(((i+1)== 11)&&(meses[mes] == "Octubre"))
{
root[bDia].numero_txt.textColor=0xFA1FB9;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xA08AFD;
root[bDia].addEventListener(MouseEvent.CLICK,llamado2);
}
if(((i+1)== 18)&&(meses[mes] == "Octubre"))
{
root[bDia].numero_txt.textColor=0x0000FF;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xB8E20C;
root[bDia].addEventListener(MouseEvent.CLICK,llamado3);
}
if(((i+1)== 4)&&(meses[mes] == "Noviembre"))
{
root[bDia].numero_txt.textColor=0xE2F821;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0x06D1E8;
root[bDia].addEventListener(MouseEvent.CLICK,llamado1);
}
if(((i+1)== 11)&&(meses[mes] == "Noviembre"))
{
root[bDia].numero_txt.textColor=0xFA1FB9;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xA08AFD;
root[bDia].addEventListener(MouseEvent.CLICK,llamado2);
}
if(((i+1)== 18)&&(meses[mes] == "Noviembre"))
{
root[bDia].numero_txt.textColor=0x0000FF;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xB8E20C;
root[bDia].addEventListener(MouseEvent.CLICK,llamado3);
}
if(((i+1)== 5)&&(meses[mes] == "Diciembre"))
{
root[bDia].numero_txt.textColor=0xE2F821;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0x06D1E8;
root[bDia].addEventListener(MouseEvent.CLICK,llamado1);
}
if(((i+1)== 9)&&(meses[mes] == "Diciembre"))
{
root[bDia].numero_txt.textColor=0xFA1FB9;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xA08AFD;
root[bDia].addEventListener(MouseEvent.CLICK,llamado2);
}
if(((i+1)== 16)&&(meses[mes] == "Diciembre"))
{
root[bDia].numero_txt.textColor=0x0000FF;
root[bDia].numero_txt.background=2;
root[bDia].numero_txt.backgroundColor=0xB8E20C;
root[bDia].addEventListener(MouseEvent.CLICK,llamado3);
}
}
//MUESTRO EL MES VIGENTE
mes_txt.text = meses[mes];
ani_txt.text= anio;
//MUESTRO LA FECHA DE HOY EN EL CUADRO DE TEXTO
diaHoy_txt.text="día de hoy: "+ diasemana[hoy.day] + " " + dia + " de " + meses[hoy.month] + " de " + hoy.fullYear;
}
//BOTON ES PARA ADELANTAR - RETROCEDER
bSig_btn.addEventListener(MouseEvent.CLICK,fSigCalendario);
bAnt_btn.addEventListener(MouseEvent.CLICK,fAntCalendario);
function fSigCalendario(evt:MouseEvent)
{
ClearArray();
for(var i=0;i<41;i++)
{
var bDia="d"+i;
root[bDia].alpha=0;
root[bDia].numero_txt.text="";
root[bDia].numero_txt.textColor=0x333333;
trace(bDia+i);
}
if(mes==11)
{
mes=0;
anio=anio+1;
}else{
mes=mes+1;
}
fCalendario();
}
function fAntCalendario(evt:MouseEvent)
{
ClearArray();
for(var i=0;i<41;i++)
{
var bDia="d"+i;
root[bDia].alpha=0;
root[bDia].numero_txt.text="";
root[bDia].numero_txt.textColor=0x333333;
}
if(mes==0){
mes=11;
anio=anio-1;
}else{
mes=mes-1;
}
fCalendario();
}
//ACCIONES CUANDO SELECCIONO UN DÍA
for(var i=0;i<42;i++)
{
var bDia="d" + i;
root[bDia].addEventListener(MouseEvent.MOUSE_OVER,fTraceDia);
root[bDia].addEventListener(MouseEvent.MOUSE_OUT,SALIRcrece);
}
function fTraceDia(evt:MouseEvent)
{
var meses:Array = new Array("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre");
diaSel_txt.text=root[evt.currentTarget.name].numero_txt.text + " de " +meses[mes]+ " de " + anio;
diaSel_txt.height=root[evt.currentTarget.name].height=50;
}
function SALIRcrece(evt:MouseEvent)
{
diaSel_txt.height=root[evt.currentTarget.name].height=20;
}
function llamado1(evt:MouseEvent)
{
info_txt.textColor=0x000000;
info_txt.text="SOLICITUDES DE AFILIACION, MODIFICACION DE APORTES O RETIRO DE AFILIACION DEFINITIVO";
info_clip.gotoAndPlay("sobre");
cerrar.x=198;
cerrar.y=105;
info_txt.x=40.65;
info_txt.y=90.30;
cerrar.addEventListener(MouseEvent.CLICK,salida2);
}
function llamado2(evt:MouseEvent)
{
info_txt.textColor=0x000000;
info_txt.text="SOLICITUDES DE CREDITO APORTES Y/O UTILIDADES";
info_clip.gotoAndPlay("sobre");
cerrar.x=198;
cerrar.y=105;
info_txt.x=40.65;
info_txt.y=113.90;
cerrar.addEventListener(MouseEvent.CLICK,salida2);
}
function llamado3(evt:MouseEvent)
{
info_txt.textColor=0x000000;
info_txt.text="GIRO DE RECURSOS";
info_clip.gotoAndPlay("sobre");
cerrar.x=198;
cerrar.y=105;
info_txt.x=40.65;
info_txt.y=130.90;
cerrar.addEventListener(MouseEvent.CLICK,salida2);
}
function salida2(evt:MouseEvent)
{
cerrar.x=500;
cerrar.y=400;
info_txt.x=500;
info_txt.y=208;
info_clip.gotoAndPlay("fuera");
info_txt.text="";
}
function ClearArray()
{
for(var i=0;i<41;i++)
{
var bDia="d"+i;
root[bDia].alpha=0;
root[bDia].numero_txt.text="";
root[bDia].numero_txt.background=0;
root[bDia].numero_txt.backgroundColor;
}
}
function limpiarClip(info_clip:MovieClip):void
{
var largo:Number = info_clip.numChildren - 1;
if(largo > 0){
trace("largo: " + largo.toString());
for(var cl:Number=largo;cl>=0;cl--){
var target:DisplayObject = info_clip.getChildAt(cl);
trace("Nombre a eliminar: " + target.name);
info_clip.removeChildAt(cl);
}
}else{
trace("No se limpio porque esta vácio");
}
}
