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"); } }