| [3ec149c] | 1 | <? |
|---|
| 2 | /*======================================================================================================== |
|---|
| 3 | Esta clase genera tablas HTML para selección de fechas (Versión inglesa) |
|---|
| 4 | |
|---|
| 5 | Atributos de la clase: |
|---|
| 6 | |
|---|
| 7 | clase: Clase [CSS] de la tabla HTML que se generará. |
|---|
| 8 | onmouseover: Función Javascript que se ejuctará al generarse el evento |
|---|
| 9 | onmouseout: Función Javascript que se ejuctará al generarse el evento |
|---|
| 10 | onclick: Función Javascript que se ejuctará al hacer click sobre el objeto |
|---|
| 11 | |
|---|
| 12 | =========================================================================================================*/ |
|---|
| 13 | class Calendario{ |
|---|
| 14 | var $aula; |
|---|
| 15 | var $horaresevini; |
|---|
| 16 | var $horaresevfin; |
|---|
| 17 | var $clase ; |
|---|
| 18 | var $onmouseover; |
|---|
| 19 | var $onmouseout; |
|---|
| 20 | var $onclick; |
|---|
| 21 | |
|---|
| 22 | var $desplazamiento_dias=6; // Ajuste fino dependiendo del año de comienzo del algoritmo |
|---|
| 23 | var $nombre_mes=array(); |
|---|
| 24 | var $nombre_dia=array(); |
|---|
| 25 | var $dias_meses=array(); |
|---|
| 26 | |
|---|
| 27 | function Calendario($pclase="",$ponmouseover="sobre(this)",$ponmouseout="fuera(this)",$ponclick="clic(this)"){ //Constructor |
|---|
| 28 | $this->clase=$pclase; |
|---|
| 29 | $this->onmouseover=$ponmouseover; |
|---|
| 30 | $this->onmouseout=$ponmouseout; |
|---|
| 31 | $this->onclick=$ponclick; |
|---|
| 32 | |
|---|
| 33 | $this->nombre_mes[1]=array ("January",0x0001); |
|---|
| 34 | $this->nombre_mes[2]=array ("February",0x0002); |
|---|
| 35 | $this->nombre_mes[3]=array ("March",0x0004); |
|---|
| 36 | $this->nombre_mes[4]=array ("April",0x0008); |
|---|
| 37 | $this->nombre_mes[5]=array ("May",0x0010); |
|---|
| 38 | $this->nombre_mes[6]=array ("June",0x0020); |
|---|
| 39 | $this->nombre_mes[7]=array ("July",0x0040); |
|---|
| 40 | $this->nombre_mes[8]=array ("August",0x0080); |
|---|
| 41 | $this->nombre_mes[9]=array ("September",0x0100); |
|---|
| 42 | $this->nombre_mes[10]=array ("October",0x0200); |
|---|
| 43 | $this->nombre_mes[11]=array ("November",0x0400); |
|---|
| 44 | $this->nombre_mes[12]=array ("December",0x0800); |
|---|
| 45 | |
|---|
| 46 | |
|---|
| 47 | $this->numero_annos[1]=array ("2004",0x01); // tamaño 1 bytes |
|---|
| 48 | $this->numero_annos[2]=array ("2005",0x02); |
|---|
| 49 | $this->numero_annos[3]=array ("2006",0x04); |
|---|
| 50 | $this->numero_annos[4]=array ("2007",0x08); |
|---|
| 51 | $this->numero_annos[5]=array ("2008",0x10); |
|---|
| 52 | $this->numero_annos[6]=array ("2009",0x20); |
|---|
| 53 | $this->numero_annos[7]=array ("2010",0x40); |
|---|
| 54 | $this->numero_annos[8]=array ("2011",0x80); |
|---|
| 55 | |
|---|
| 56 | $this->dias_meses[1]=31; |
|---|
| 57 | $this->dias_meses[2]=28; |
|---|
| 58 | $this->dias_meses[3]=31; |
|---|
| 59 | $this->dias_meses[4]=30; |
|---|
| 60 | $this->dias_meses[5]=31; |
|---|
| 61 | $this->dias_meses[6]=30; |
|---|
| 62 | $this->dias_meses[7]=31; |
|---|
| 63 | $this->dias_meses[8]=31; |
|---|
| 64 | $this->dias_meses[9]=30; |
|---|
| 65 | $this->dias_meses[10]=31; |
|---|
| 66 | $this->dias_meses[11]=30; |
|---|
| 67 | $this->dias_meses[12]=31; |
|---|
| 68 | |
|---|
| 69 | $this->nombre_dia[1]=array ("Mo",0x01); // tamaño 1 bytes |
|---|
| 70 | $this->nombre_dia[2]=array ("Tu",0x02); |
|---|
| 71 | $this->nombre_dia[3]=array ("We",0x04); |
|---|
| 72 | $this->nombre_dia[4]=array ("Th",0x08); |
|---|
| 73 | $this->nombre_dia[5]=array ("Fr",0x10); |
|---|
| 74 | $this->nombre_dia[6]=array ("Sa",0x20); |
|---|
| 75 | $this->nombre_dia[7]=array ("Su",0x40); |
|---|
| 76 | } |
|---|
| 77 | /*________________________________________________________________________________________________________ |
|---|
| 78 | Esta función devuelve una cadena con el código HTML del calendario del mes y año elegidos |
|---|
| 79 | y que son propiedades de la clase. |
|---|
| 80 | ________________________________________________________________________________________________________*/ |
|---|
| 81 | function MesAnno($mes,$anno,$CntMes){ |
|---|
| 82 | $fecha="1/".$mes."/".$anno; |
|---|
| 83 | $ds=$this->_DiaSemana($fecha); |
|---|
| 84 | if ($ds==0) $ds=7; |
|---|
| 85 | |
|---|
| 86 | $swbi=0; // Suma para bisiesto |
|---|
| 87 | if ($this->bisiesto($anno) && $mes==2) $swbi=1; |
|---|
| 88 | |
|---|
| 89 | $HTML_calendario='<TABLE border=1 cellspacing=0 cellpadding=1 id="tabla_mesanno" class="'.$this->clase.'">'.chr(13); |
|---|
| 90 | $HTML_calendario.='<TR>'.chr(13); |
|---|
| 91 | $HTML_calendario.='<TH colspan=7 id="'.$mes.'/'.$anno.'" value="'.$this->aula.'" style="cursor:hand" onclick="TH_'.$this->onclick.'">'.$this->nombre_mes[$mes][0].'</TH></TR>'.chr(13); // Nombre del mes |
|---|
| 92 | $HTML_calendario.='<TR>'.chr(13); |
|---|
| 93 | for ($i=1;$i<8;$i++) |
|---|
| 94 | $HTML_calendario.='<TH>'.$this->nombre_dia[$i][0].'</TH>'.chr(13); // Días de la semana |
|---|
| 95 | $HTML_calendario.='</TR><TR>'.chr(13); |
|---|
| 96 | for ($i=1;$i<$ds;$i++) |
|---|
| 97 | $HTML_calendario.='<TD> </TD>'.chr(13); // Relleno primeros dias de la semana |
|---|
| 98 | $sm=$ds; // Control salto de semana |
|---|
| 99 | for ($i=1;$i<=$this->dias_meses[$mes]+$swbi;$i++){ |
|---|
| 100 | $HTML_calendario.='<TD align=center '; |
|---|
| 101 | if(isset($CntMes[$i])){ |
|---|
| 102 | if($CntMes[$i]==1){ |
|---|
| 103 | $HTML_calendario.=' style="COLOR:#eeeeee;BACKGROUND-COLOR: #cc3366;"'; |
|---|
| 104 | $HTML_calendario.=' id="'.$i.'/'.$mes.'/'.$anno.'" value="'.$this->aula.'" style="cursor:hand" onmouseover="'.$this->onmouseover.'" onmouseout="'.$this->onmouseout.'" onclick="'.$this->onclick.'"'; |
|---|
| 105 | } |
|---|
| 106 | } |
|---|
| 107 | $HTML_calendario.='>'.$i.'</TD>'.chr(13); |
|---|
| 108 | if ($sm%7==0){ |
|---|
| 109 | $HTML_calendario.='</TR><TR>'.chr(13); |
|---|
| 110 | $sm=0; |
|---|
| 111 | } |
|---|
| 112 | $sm++; |
|---|
| 113 | } |
|---|
| 114 | $HTML_calendario.='</TR></TABLE>'.chr(13); |
|---|
| 115 | return($HTML_calendario); |
|---|
| 116 | } |
|---|
| 117 | /*________________________________________________________________________________________________________ |
|---|
| 118 | Esta función devuelve una cadena con el código HTML del calendario del mes y año elegidos |
|---|
| 119 | y que son propiedades de la clase. |
|---|
| 120 | ________________________________________________________________________________________________________*/ |
|---|
| 121 | function JMesAnno($mes,$anno,$JDif,$TBfechas,$sumahoras){ |
|---|
| 122 | $fecha="1/".$mes."/".$anno; |
|---|
| 123 | $Jdpl=$this->juliana($fecha)-$JDif; // Calcula punto departida para indice juliano |
|---|
| 124 | $ds=$this->_DiaSemana($fecha); |
|---|
| 125 | if ($ds==0) $ds=7; |
|---|
| 126 | $paso=2; // Porporción para el la intensidad del color |
|---|
| 127 | $swbi=0; // Suma para bisiesto |
|---|
| 128 | if ($this->bisiesto($anno) && $mes==2) $swbi=1; |
|---|
| 129 | $HTML_calendario='<TABLE border=1 cellspacing=0 cellpadding=1 id="tabla_mesanno" class="'.$this->clase.'">'.chr(13); |
|---|
| 130 | $HTML_calendario.='<TR>'.chr(13); |
|---|
| 131 | $HTML_calendario.='<TH colspan=7 id="'.$mes.'/'.$anno.'" style="cursor:hand" onclick="TH_'.$this->onclick.'">'.$this->nombre_mes[(int)$mes][0].'</TH></TR>'.chr(13); // Nombre del mes |
|---|
| 132 | $HTML_calendario.='<TR>'.chr(13); |
|---|
| 133 | for ($i=1;$i<8;$i++) |
|---|
| 134 | $HTML_calendario.='<TH>'.$this->nombre_dia[$i][0].'</TH>'.chr(13); // Días de la semana |
|---|
| 135 | $HTML_calendario.='</TR><TR>'.chr(13); |
|---|
| 136 | for ($i=1;$i<$ds;$i++) |
|---|
| 137 | $HTML_calendario.='<TD> </TD>'.chr(13); // Relleno primeros dias de la semana |
|---|
| 138 | $sm=$ds; // Control salto de semana |
|---|
| 139 | for ($i=1;$i<=$this->dias_meses[(int)$mes]+$swbi;$i++){ |
|---|
| 140 | $HTML_calendario.='<TD align=center '; |
|---|
| 141 | if(isset($TBfechas[$Jdpl])){ |
|---|
| 142 | if($TBfechas[$Jdpl]>0){ |
|---|
| 143 | $xpor=$TBfechas[$Jdpl]*100/$sumahoras; |
|---|
| 144 | $itcr=255; |
|---|
| 145 | $itc=240-($xpor*$paso); |
|---|
| 146 | if($xpor>=50) |
|---|
| 147 | $colordia="#FFFFFF"; |
|---|
| 148 | else |
|---|
| 149 | $colordia="#000000"; |
|---|
| 150 | |
|---|
| 151 | $bgcolordia=sprintf('#%02x%02x%02x',$itcr,$itc,$itc); |
|---|
| 152 | $HTML_calendario.=' style="COLOR:'.$colordia.';BACKGROUND-COLOR: '.$bgcolordia.';"'; |
|---|
| 153 | $HTML_calendario.=' id="'.$i.'/'.$mes.'/'.$anno.'" value="'.$this->aula.'" style="cursor:hand" onmouseover="'.$this->onmouseover.'" onmouseout="'.$this->onmouseout.'" onclick="'.$this->onclick.'"'; |
|---|
| 154 | } |
|---|
| 155 | } |
|---|
| 156 | $HTML_calendario.='>'.$i.'</TD>'.chr(13); |
|---|
| 157 | if ($sm%7==0){ |
|---|
| 158 | $HTML_calendario.='</TR><TR>'.chr(13); |
|---|
| 159 | $sm=0; |
|---|
| 160 | } |
|---|
| 161 | $sm++; |
|---|
| 162 | $Jdpl++; |
|---|
| 163 | } |
|---|
| 164 | $HTML_calendario.='</TR></TABLE>'.chr(13); |
|---|
| 165 | return($HTML_calendario); |
|---|
| 166 | } |
|---|
| 167 | |
|---|
| 168 | /*________________________________________________________________________________________________________ |
|---|
| 169 | Esta función devuelve el número del día de la semana: |
|---|
| 170 | 0=domingo 1=Lunes, 2=mártes ... 6=sábado |
|---|
| 171 | |
|---|
| 172 | Parámetro de entrada: |
|---|
| 173 | Una cadena con formato de fecha dd/mm/aaaa. |
|---|
| 174 | ________________________________________________________________________________________________________*/ |
|---|
| 175 | function _DiaSemana($fecha){ |
|---|
| 176 | list($dia,$mes,$anno)=split('[/.-]',$fecha); |
|---|
| 177 | $cont=0; |
|---|
| 178 | for ($i=1900;$i<$anno;$i++){ |
|---|
| 179 | if ($this->bisiesto($i)) $dias_anuales=366; else $dias_anuales=365; |
|---|
| 180 | $cont+=$dias_anuales; |
|---|
| 181 | } |
|---|
| 182 | for ($i=1;$i<$mes;$i++){ |
|---|
| 183 | if ($i!=2) |
|---|
| 184 | $cont+=$this->dias_meses[$i]; |
|---|
| 185 | else{ |
|---|
| 186 | if ($this->bisiesto($anno)) |
|---|
| 187 | $cont+=29; |
|---|
| 188 | else |
|---|
| 189 | $cont+=28; |
|---|
| 190 | } |
|---|
| 191 | } |
|---|
| 192 | $cont+=$dia+$this->desplazamiento_dias; |
|---|
| 193 | return($cont%7); |
|---|
| 194 | } |
|---|
| 195 | //________________________________________________________________________________________________________ |
|---|
| 196 | // Esta función devuelve true si el año pasado como parámetro es bisiesto y false si no lo es |
|---|
| 197 | // |
|---|
| 198 | // Parámetro de entrada: |
|---|
| 199 | // Una número que representa el año |
|---|
| 200 | //________________________________________________________________________________________________________ |
|---|
| 201 | function bisiesto($anob){ |
|---|
| 202 | if ($anob%4==0) return(true); else return(false); |
|---|
| 203 | } |
|---|
| 204 | //________________________________________________________________________________________________________ |
|---|
| 205 | // Esta función devuelve una cadena con el código HTML con las horas de reservas de las aulas |
|---|
| 206 | //________________________________________________________________________________________________________ |
|---|
| [c281499] | 207 | function HorasDias($CntDia,&$porcenhoras){ |
|---|
| [3ec149c] | 208 | $HTML_calendario=""; |
|---|
| 209 | $sw=0; |
|---|
| 210 | $conthoras=0; // Contador de horas y minutos de reservas |
|---|
| 211 | $maxcolumnas=8; |
|---|
| 212 | $tbampm[0]="a.m."; |
|---|
| 213 | $tbampm[1]="p.m."; |
|---|
| 214 | |
|---|
| 215 | $HTML_calendario.='<TABLE border=0 cellspacing=0 cellpadding=0 id="tabla_horas" class="'.$this->clase.'">'.chr(13); |
|---|
| 216 | $HTML_calendario.='<TR>'.chr(13); |
|---|
| 217 | $HTML_calendario.='<TH colspan=3>Horas</TH></TR>'.chr(13); // Literal Horas |
|---|
| 218 | $HTML_calendario.='<TR>'.chr(13); |
|---|
| 219 | $HTML_ampm[0]=""; |
|---|
| 220 | $HTML_ampm[1]=""; |
|---|
| 221 | $swampm[0]=false; |
|---|
| 222 | $swampm[1]=false; |
|---|
| 223 | |
|---|
| 224 | if($this->horaresevini<12) $ix=0; else $ix=1; |
|---|
| 225 | for($j=$ix;$j<=1;$j++){ |
|---|
| 226 | $HTML_ampm[$j].='<TD style="BACKGROUND-COLOR: #FFFFFF;" valig=top >'.chr(13); |
|---|
| 227 | $HTML_ampm[$j].='<TABLE valig=top cellspacing=0 cellpadding=0 border=1 class="'.$this->clase.'">'.chr(13); |
|---|
| 228 | $HTML_ampm[$j].='<TR>'.chr(13); |
|---|
| 229 | $HTML_ampm[$j].='<TH colspan='.$maxcolumnas.'>'.$tbampm[$j].'</TH></TR>'.chr(13); // Literal Horas |
|---|
| 230 | $HTML_ampm[$j].='<TR>'.chr(13); |
|---|
| 231 | |
|---|
| 232 | if($j==0){ // A.M.height |
|---|
| 233 | $imin=$this->horaresevini; |
|---|
| 234 | $currenthora=$imin; |
|---|
| 235 | if($this->horaresevfin<=12) |
|---|
| 236 | $imax=$this->horaresevfin; |
|---|
| 237 | else |
|---|
| 238 | $imax=12; |
|---|
| 239 | } |
|---|
| 240 | else{ |
|---|
| 241 | if($this->horaresevini<=12) |
|---|
| 242 | $imin=0; |
|---|
| 243 | else |
|---|
| 244 | $imin=$this->horaresevini-12; |
|---|
| 245 | $imax=(int)$this->horaresevfin-12; |
|---|
| 246 | $currenthora=$imin; |
|---|
| 247 | } |
|---|
| 248 | $cols=0; |
|---|
| 249 | $currentminutos=0; |
|---|
| 250 | $currenthorario=$currenthora.":".$currentminutos; |
|---|
| 251 | $intervalo=($imax-$imin+1)*4; |
|---|
| 252 | for ($i=$imin;$i<$intervalo;$i++){ |
|---|
| 253 | $cols++; |
|---|
| 254 | if($sw>0) // Acarre la reserva desde A.M. |
|---|
| 255 | $swampm[$j]=true; |
|---|
| 256 | |
|---|
| 257 | if($currentminutos==0) $currenthorario.="0"; |
|---|
| 258 | if(isset($CntDia[$j][$currenthora][$currentminutos])){ |
|---|
| 259 | if($CntDia[$j][$currenthora][$currentminutos]==1) |
|---|
| 260 | $sw++; |
|---|
| 261 | $swampm[$j]=true; |
|---|
| 262 | } |
|---|
| 263 | if(isset($CntDia[$j][$currenthora][$currentminutos])){ |
|---|
| 264 | if($CntDia[$j][$currenthora][$currentminutos]==0) |
|---|
| 265 | $sw--; |
|---|
| 266 | } |
|---|
| 267 | $HTML_ampm[$j].='<TD '; |
|---|
| 268 | if($sw>0) |
|---|
| 269 | $HTML_ampm[$j].=' style="COLOR:#eeeeee;BACKGROUND-COLOR: #cc3366;"'; |
|---|
| 270 | |
|---|
| 271 | if($sw>0) // Cuenta la fracción de 15 minutos como reservada |
|---|
| 272 | $conthoras++; |
|---|
| 273 | $HTML_ampm[$j].=' align=center> '.$currenthorario.' </TD>'.chr(13); |
|---|
| 274 | $currentminutos+=15; |
|---|
| 275 | if($currentminutos==60) { |
|---|
| 276 | $currenthora++; |
|---|
| 277 | $currentminutos=0; |
|---|
| 278 | } |
|---|
| 279 | $currenthorario=$currenthora.":".$currentminutos; |
|---|
| 280 | if (($cols)%$maxcolumnas==0 ) $HTML_ampm[$j].='</TR><TR>'.chr(13); |
|---|
| 281 | } |
|---|
| 282 | $HTML_ampm[$j].='</TR></TABLE>'.chr(13); |
|---|
| 283 | $HTML_ampm[$j].='</TD>'.chr(13); |
|---|
| 284 | } |
|---|
| 285 | |
|---|
| 286 | if ($swampm[0]) |
|---|
| 287 | $HTML_calendario.=$HTML_ampm[0]; |
|---|
| 288 | |
|---|
| 289 | if ($swampm[0] && $swampm[1]){ |
|---|
| 290 | $HTML_calendario.='<TD style="BACKGROUND-COLOR: #FFFFFF;" width=25> '.chr(13); |
|---|
| 291 | $HTML_calendario.='</TD>'.chr(13); |
|---|
| 292 | } |
|---|
| 293 | |
|---|
| 294 | if ($swampm[1]) |
|---|
| 295 | $HTML_calendario.=$HTML_ampm[1]; |
|---|
| 296 | |
|---|
| 297 | $HTML_calendario.='</TR>'.chr(13); |
|---|
| 298 | $HTML_calendario.='</TABLE>'.chr(13); |
|---|
| 299 | |
|---|
| 300 | $numblo=($this->horaresevfin-$this->horaresevini)*4; |
|---|
| 301 | $porcenhoras=floor($conthoras*100/$numblo); |
|---|
| 302 | return($HTML_calendario); |
|---|
| 303 | } |
|---|
| 304 | /* -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- |
|---|
| 305 | Devuelve una cadena con los días del mes que son lunes(1) o martes(2) o miércoles(3), etc ...domingo(7) separada por comas |
|---|
| 306 | ________________________________________________________________________________________________________________*/ |
|---|
| 307 | function DiasPorMes($mes,$anno,$numerodia){ |
|---|
| 308 | $cadenadias=""; |
|---|
| 309 | $dia_c=1; |
|---|
| 310 | $fecha=$dia_c."/".$mes."/".$anno; |
|---|
| 311 | $ds=$this->_DiaSemana($fecha); |
|---|
| 312 | if ($ds==0) $ds=7; |
|---|
| 313 | while($ds!=$numerodia){ |
|---|
| 314 | $dia_c++; |
|---|
| 315 | $ds++; |
|---|
| 316 | if($ds>7) $ds=1; |
|---|
| 317 | } |
|---|
| 318 | // Calcula número de dias del mes |
|---|
| 319 | $diasmaxmes=$this->dias_meses[$mes]; |
|---|
| 320 | if ($mes==2){ |
|---|
| 321 | if ($this->bisiesto($anno)){ |
|---|
| 322 | $diasmaxmes=29; |
|---|
| 323 | } |
|---|
| 324 | } |
|---|
| 325 | while($dia_c<=$diasmaxmes){ |
|---|
| 326 | $cadenadias.=$dia_c.";"; |
|---|
| 327 | $dia_c+=7; |
|---|
| 328 | } |
|---|
| 329 | return($cadenadias); |
|---|
| 330 | } |
|---|
| 331 | /*________________________________________________________________________________________________________ |
|---|
| 332 | Devuelve una cadena con los días del mes correspondiente a una semana concreta, separados por coma |
|---|
| 333 | ________________________________________________________________________________________________________*/ |
|---|
| 334 | function DiasPorSemanas($mes,$anno,$numerosemana){ |
|---|
| 335 | $cadenadias=""; |
|---|
| 336 | $dia_c=1; |
|---|
| 337 | $nsem=1; |
|---|
| 338 | $fecha=$dia_c."/".$mes."/".$anno; |
|---|
| 339 | $ds=$this->_DiaSemana($fecha); |
|---|
| 340 | if ($ds==0) $ds=7; |
|---|
| 341 | while($nsem!=$numerosemana){ |
|---|
| 342 | $dia_c++; |
|---|
| 343 | $ds++; |
|---|
| 344 | if($ds>7){ |
|---|
| 345 | $ds=1; |
|---|
| 346 | $nsem++; |
|---|
| 347 | } |
|---|
| 348 | } |
|---|
| 349 | // Calcula número de dias del mes |
|---|
| 350 | $diasmaxmes=$this->dias_meses[$mes]; |
|---|
| 351 | if ($mes==2){ |
|---|
| 352 | if ($this->bisiesto($anno)){ |
|---|
| 353 | $diasmaxmes=29; |
|---|
| 354 | } |
|---|
| 355 | } |
|---|
| 356 | for($i=$ds;$i<=7;$i++){ |
|---|
| 357 | if($dia_c>$diasmaxmes) break; |
|---|
| 358 | $cadenadias.=$dia_c.";"; |
|---|
| 359 | $dia_c++; |
|---|
| 360 | } |
|---|
| 361 | return($cadenadias); |
|---|
| 362 | } |
|---|
| 363 | // ____________________________________________________________________________ |
|---|
| 364 | // Esta función devuelve el número de la última semana de un mes |
|---|
| 365 | // ____________________________________________________________________________ |
|---|
| 366 | function UltimaSemana($mes,$anno){ |
|---|
| 367 | $diasmaxmes=$this->dias_meses[$mes]; |
|---|
| 368 | if ($mes==2){ |
|---|
| 369 | if ($this->bisiesto($anno)){ |
|---|
| 370 | $diasmaxmes=29; |
|---|
| 371 | } |
|---|
| 372 | } |
|---|
| 373 | $fecha="1/".$mes."/".$anno; |
|---|
| 374 | $ds=$this->_DiaSemana($fecha); |
|---|
| 375 | if ($ds==0) $ds=7; |
|---|
| 376 | $nwdia=$diasmaxmes+$ds-1; |
|---|
| 377 | $cociente=floor($nwdia/7); |
|---|
| 378 | $resto=$nwdia%7; |
|---|
| 379 | if($resto>0) $cociente++; |
|---|
| 380 | return($cociente); |
|---|
| 381 | } |
|---|
| 382 | //________________________________________________________________________________________________________ |
|---|
| 383 | // Función : Fechas |
|---|
| 384 | // Descripción : |
|---|
| 385 | // Devuelve una cadena de fechas separada por comas que son las fechas que forman parte de una reserva concreta |
|---|
| 386 | // Parametros: |
|---|
| 387 | // - anno_c: Un año determinado |
|---|
| 388 | // - mes_desde: El mes desde que se considera la reserva |
|---|
| 389 | // - mes_hasta: El mes hasta que se considera la reserva |
|---|
| 390 | // - meses: Campo con información hexadecimal de los meses de la reserva ( la información contenida en el campo de la tabla con este nombre |
|---|
| 391 | // - diario: Idem para los dias de un mes |
|---|
| 392 | // - dias: idem para los nombres de los días |
|---|
| 393 | // - semanas: Idem para las semanas |
|---|
| 394 | //________________________________________________________________________________________________________ |
|---|
| 395 | function Fechas($anno_c,$mes_desde,$mes_hasta,$meses,$diario,$dias,$semanas){ |
|---|
| 396 | $cadenafechas=""; |
|---|
| 397 | $mascara=0x0001; |
|---|
| 398 | $cadenameses=""; |
|---|
| 399 | $meses=$meses>>($mes_desde-1); |
|---|
| 400 | for($i=$mes_desde;$i<=$mes_hasta;$i++){ |
|---|
| 401 | if($meses&$mascara>0){ |
|---|
| 402 | $cadenameses.=$i.";"; |
|---|
| 403 | // Dias de la semana |
|---|
| 404 | if($dias>0){ |
|---|
| 405 | $auxdias=$dias; |
|---|
| 406 | for($j=1;$j<=7;$j++){ |
|---|
| 407 | if($auxdias&$mascara>0){ |
|---|
| 408 | $cadenadias=$this->DiasPorMes($i,$anno_c,$j); |
|---|
| 409 | $tbdias=split(";",$cadenadias); |
|---|
| 410 | for ($k=0;$k<sizeof($tbdias)-1;$k++) |
|---|
| 411 | $cadenafechas.=$tbdias[$k]."/".$i."/".$anno_c.";"; |
|---|
| 412 | } |
|---|
| 413 | $auxdias=$auxdias>>1; |
|---|
| 414 | } |
|---|
| 415 | } |
|---|
| 416 | // Semanas |
|---|
| 417 | if($semanas>0){ |
|---|
| 418 | $auxsemanas=$semanas; |
|---|
| 419 | for($j=1;$j<=6;$j++){ |
|---|
| 420 | if($auxsemanas&$mascara>0){ |
|---|
| 421 | if($j==6){ |
|---|
| 422 | $ulse=$this->UltimaSemana($i,$anno_c); |
|---|
| 423 | $cadenadias=$this->DiasPorSemanas($i,$anno_c,$ulse); |
|---|
| 424 | } |
|---|
| 425 | else |
|---|
| 426 | $cadenadias=$this->DiasPorSemanas($i,$anno_c,$j); |
|---|
| 427 | $tbdias=split(";",$cadenadias); |
|---|
| 428 | for ($k=0;$k<sizeof($tbdias)-1;$k++) |
|---|
| 429 | $cadenafechas.=$tbdias[$k]."/".$i."/".$anno_c.";"; |
|---|
| 430 | } |
|---|
| 431 | $auxsemanas=$auxsemanas>>1; |
|---|
| 432 | } |
|---|
| 433 | } |
|---|
| 434 | } |
|---|
| 435 | $meses=$meses>>1; |
|---|
| 436 | } |
|---|
| 437 | $cadenadiario=""; |
|---|
| 438 | for($i=1;$i<32;$i++){ |
|---|
| 439 | if($diario&$mascara>0) $cadenadiario.=$i.";"; |
|---|
| 440 | $diario=$diario>>1; |
|---|
| 441 | } |
|---|
| 442 | $tbmeses=split(";",$cadenameses); |
|---|
| 443 | $tbdiario=split(";",$cadenadiario); |
|---|
| 444 | for ($i=0;$i<sizeof($tbmeses)-1;$i++){ |
|---|
| 445 | for ($j=0;$j<sizeof($tbdiario)-1;$j++){ |
|---|
| 446 | $cadenafechas.=$tbdiario[$j]."/".$tbmeses[$i]."/".$anno_c.";"; |
|---|
| 447 | } |
|---|
| 448 | } |
|---|
| 449 | return($cadenafechas); |
|---|
| 450 | } |
|---|
| 451 | /*______________________________________________________________________ |
|---|
| 452 | Devuelve el dia juliano de una fecha determinada |
|---|
| 453 | Parametros: |
|---|
| 454 | - cadena con la fecha en formato "dd/mm/aaaa" |
|---|
| 455 | Devuelve: |
|---|
| 456 | - El dia juliano |
|---|
| 457 | _______________________________________________________________________*/ |
|---|
| 458 | function juliana($fecha) { |
|---|
| 459 | list($dia,$mes,$anno)=split("[/-]",$fecha); |
|---|
| 460 | $GGG = 1; |
|---|
| 461 | if ($anno <= 1585) $GGG = 0; |
|---|
| 462 | $juliano= -1 * floor(7 * (floor(($mes + 9) / 12) + $anno) / 4); |
|---|
| 463 | $S = 1; |
|---|
| 464 | if (($mes - 9)<0) $S=-1; |
|---|
| 465 | $A = abs($mes - 9); |
|---|
| 466 | $auxjuliano = floor($anno + $S * floor($A / 7)); |
|---|
| 467 | $auxjuliano = -1 * floor((floor($auxjuliano / 100) + 1) * 3 / 4); |
|---|
| 468 | $juliano = $juliano + floor(275 * $mes / 9) + $dia + ($GGG * $auxjuliano); |
|---|
| 469 | $juliano =$juliano + 1721027 + 2 * $GGG + 367 * $anno - 0.5; |
|---|
| 470 | return(floor($juliano)); |
|---|
| 471 | } |
|---|
| [c281499] | 472 | } // Fin de la clase Calendario |
|---|
