source: admin/WebConsole/idiomas/php/esp/clases/Calendario_esp.php @ 394ba09

918-git-images-111dconfigfileconfigure-oglivegit-imageslgromero-new-oglivemainmaint-cronmount-efivarfsmultivmmultivm-ogboot-installerogClonningEngineogboot-installer-jenkinsoglive-ipv6test-python-scriptsticket-301ticket-50ticket-50-oldticket-577ticket-585ticket-611ticket-612ticket-693ticket-700ubu24tplunification2use-local-agent-oglivevarios-instalacion
Last change on this file since 394ba09 was aabc011, checked in by ramon <ramongomez@…>, 7 years ago

#804: Completar cambios de revisión r5628.

git-svn-id: https://opengnsys.es/svn/branches/version1.1@5629 a21b9725-9963-47de-94b9-378ad31fedc9
  • Property mode set to 100644
File size: 19.1 KB
Line 
1<?php
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=========================================================================================================*/
13class 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 $numero_annos=array();
26        var $dias_meses=array();
27
28        function __construct($pclase="", $ponmouseover="sobre(this)", $ponmouseout="fuera(this)", $ponclick="clic(this)"){ //Constructor
29                $this->clase=$pclase;
30                $this->onmouseover=$ponmouseover;
31                $this->onmouseout=$ponmouseout;
32                $this->onclick=$ponclick;
33               
34                $this->nombre_mes[1]=array ("Enero",0x0001);
35                $this->nombre_mes[2]=array ("Febrero",0x0002);
36                $this->nombre_mes[3]=array ("Marzo",0x0004);
37                $this->nombre_mes[4]=array ("Abril",0x0008);
38                $this->nombre_mes[5]=array ("Mayo",0x0010);
39                $this->nombre_mes[6]=array ("Junio",0x0020);
40                $this->nombre_mes[7]=array ("Julio",0x0040);
41                $this->nombre_mes[8]=array ("Agosto",0x0080);
42                $this->nombre_mes[9]=array ("Septiembre",0x0100);
43                $this->nombre_mes[10]=array ("Octubre",0x0200);
44                $this->nombre_mes[11]=array ("Noviembre",0x0400);
45                $this->nombre_mes[12]=array ("Diciembre",0x0800);
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 ("L",0x01); // tamaño 1 bytes
70                $this->nombre_dia[2]=array ("M",0x02);
71                $this->nombre_dia[3]=array ("X",0x04);
72                $this->nombre_dia[4]=array ("J",0x08);
73                $this->nombre_dia[5]=array ("V",0x10);
74                $this->nombre_dia[6]=array ("S",0x20);
75                $this->nombre_dia[7]=array ("D",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                $paso=2; // Porporción para el la intensidad del color
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>&nbsp;</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]>0){
103                                        $itcr=255;
104                                        $itc=240-($CntMes[$i]*$paso);
105                                        if($CntMes[$i]>=50)
106                                                $colordia="#FFFFFF";
107                                        else
108                                                $colordia="#000000";
109
110                                        $bgcolordia=sprintf('#%02x%02x%02x',$itcr,$itc,$itc);
111                                        $HTML_calendario.=' style="COLOR:'.$colordia.';BACKGROUND-COLOR: '.$bgcolordia.';"';
112                                        $HTML_calendario.=' id="'.$i.'/'.$mes.'/'.$anno.'" value="'.$this->aula.'" style="cursor:hand" onmouseover="'.$this->onmouseover.'" onmouseout="'.$this->onmouseout.'" onclick="'.$this->onclick.'"';
113                                }
114                        }
115                        $HTML_calendario.='>'.$i.'</TD>'.chr(13);
116                        if ($sm%7==0){
117                                $HTML_calendario.='</TR><TR>'.chr(13);
118                                $sm=0;
119                        }
120                        $sm++;
121                }
122                $HTML_calendario.='</TR></TABLE>'.chr(13);
123                return($HTML_calendario);
124        }
125
126/*________________________________________________________________________________________________________
127                Esta función devuelve una cadena con el código HTML del calendario del mes y año elegidos
128                y que son propiedades de la clase.
129________________________________________________________________________________________________________*/
130        function JMesAnno($mes,$anno,$JDif,$TBfechas,$sumahoras){
131                $fecha="1/".$mes."/".$anno;
132                $Jdpl=$this->juliana($fecha)-$JDif; // Calcula punto departida para indice juliano
133                $ds=$this->_DiaSemana($fecha);
134                if ($ds==0) $ds=7;
135                $paso=2; // Porporción para el la intensidad del color
136                $swbi=0; // Suma para bisiesto
137                if ($this->bisiesto($anno) && $mes==2)  $swbi=1;
138                $HTML_calendario='<TABLE  border=1 cellspacing=0 cellpadding=1 id="tabla_mesanno" class="'.$this->clase.'">'.chr(13);
139                $HTML_calendario.='<TR>'.chr(13);
140                $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
141                $HTML_calendario.='<TR>'.chr(13);
142                for ($i=1;$i<8;$i++)
143                        $HTML_calendario.='<TH>'.$this->nombre_dia[$i][0].'</TH>'.chr(13); // Días de la semana
144                $HTML_calendario.='</TR><TR>'.chr(13);
145                for ($i=1;$i<$ds;$i++)
146                        $HTML_calendario.='<TD>&nbsp;</TD>'.chr(13); // Relleno primeros dias de la semana
147                $sm=$ds; // Control salto de semana
148                for ($i=1;$i<=$this->dias_meses[(int)$mes]+$swbi;$i++){
149                        $HTML_calendario.='<TD align=center ';
150                        if(isset($TBfechas[$Jdpl])){
151                                if($TBfechas[$Jdpl]>0){
152                                        $xpor=$TBfechas[$Jdpl]*100/$sumahoras;
153                                        $itcr=255;
154                                        $itc=240-($xpor*$paso);
155                                        if($xpor>=50)
156                                                $colordia="#FFFFFF";
157                                        else
158                                                $colordia="#000000";
159
160                                        $bgcolordia=sprintf('#%02x%02x%02x',$itcr,$itc,$itc);
161                                        $HTML_calendario.=' style="COLOR:'.$colordia.';BACKGROUND-COLOR: '.$bgcolordia.';"';
162                                        $HTML_calendario.=' id="'.$i.'/'.$mes.'/'.$anno.'" value="'.$this->aula.'" style="cursor:hand" onmouseover="'.$this->onmouseover.'" onmouseout="'.$this->onmouseout.'" onclick="'.$this->onclick.'"';
163                                }
164                        }
165                        $HTML_calendario.='>'.$i.'</TD>'.chr(13);
166                        if ($sm%7==0){
167                                $HTML_calendario.='</TR><TR>'.chr(13);
168                                $sm=0;
169                        }
170                        $sm++;
171                        $Jdpl++;
172                }
173                $HTML_calendario.='</TR></TABLE>'.chr(13);
174                return($HTML_calendario);
175        }
176
177/*________________________________________________________________________________________________________
178                Esta función devuelve el número del día de la semana:
179                        0=domingo 1=lunes, 2=martes ... 6=sábado
180               
181                Parámetro de entrada:
182                        Una cadena con formato de fecha dd/mm/aaaa.
183________________________________________________________________________________________________________*/
184        function _DiaSemana($fecha){
185                list($dia,$mes,$anno)=explode('[/.-]',$fecha);
186                $cont=0;
187                for ($i=1900;$i<$anno;$i++){
188                        if ($this->bisiesto($i)) $dias_anuales=366; else        $dias_anuales=365;
189                        $cont+=$dias_anuales;
190                }
191                for ($i=1;$i<$mes;$i++){
192                        if ($i!=2)
193                                $cont+=$this->dias_meses[$i];
194                        else{
195                                if ($this->bisiesto($anno))
196                                        $cont+=29;
197                                else
198                                        $cont+=28;
199                        }
200                }
201                $cont+=$dia+$this->desplazamiento_dias;
202                return($cont%7);
203        }
204//________________________________________________________________________________________________________
205//              Esta función devuelve true si el año pasado como parámetro es bisiesto y false si no lo es
206//
207//              Parámetro de entrada:
208//                      Una número que representa el año
209//________________________________________________________________________________________________________
210function bisiesto($anob){
211                if ($anob%4==0) return(true); else return(false);
212        }
213//________________________________________________________________________________________________________
214//              Esta función devuelve una cadena con el código HTML con las horas de reservas de las aulas
215//________________________________________________________________________________________________________
216function HorasDias($CntDia,&$porcenhoras){
217        $HTML_calendario="";
218        $sw=0;
219        $conthoras=0; // Contador de horas y minutos de reservas
220        $maxcolumnas=8;
221        $tbampm[0]="a.m.";
222        $tbampm[1]="p.m.";
223
224        $HTML_calendario.='<TABLE   border=0 cellspacing=0 cellpadding=0  id="tabla_horas" class="'.$this->clase.'">'.chr(13);
225        $HTML_calendario.='<TR>'.chr(13);
226        $HTML_calendario.='<TH colspan=3>Horas</TH></TR>'.chr(13); // Literal Horas
227        $HTML_calendario.='<TR>'.chr(13);
228        $HTML_ampm[0]="";
229        $HTML_ampm[1]="";
230        $swampm[0]=false;
231        $swampm[1]=false;
232
233        if($this->horaresevini<12) $ix=0; else $ix=1;
234        for($j=$ix;$j<=1;$j++){
235                $HTML_ampm[$j].='<TD style="BACKGROUND-COLOR: #FFFFFF;" valig=top >'.chr(13);
236                $HTML_ampm[$j].='<TABLE valig=top cellspacing=0 cellpadding=0  border=1  class="'.$this->clase.'">'.chr(13);
237                $HTML_ampm[$j].='<TR>'.chr(13);
238                $HTML_ampm[$j].='<TH colspan='.$maxcolumnas.'>'.$tbampm[$j].'</TH></TR>'.chr(13); // Literal Horas
239                $HTML_ampm[$j].='<TR>'.chr(13);
240
241                if($j==0){ // A.M.height
242                        $imin=$this->horaresevini;
243                        $currenthora=$imin;
244                        if($this->horaresevfin<=12)
245                                $imax=$this->horaresevfin;
246                        else
247                                $imax=12;
248                }
249                else{
250                                if($this->horaresevini<=12)
251                                        $imin=0;
252                                else
253                                        $imin=$this->horaresevini-12;
254                                $imax=(int)$this->horaresevfin-12;
255                                $currenthora=$imin;
256                }
257                $cols=0;
258                $currentminutos=0;
259                $currenthorario=$currenthora.":".$currentminutos;
260                $intervalo=($imax-$imin+1)*4;
261                for ($i=$imin;$i<$intervalo;$i++){
262                                $cols++;
263                                if($sw>0) // Acarre la reserva desde A.M.
264                                        $swampm[$j]=true;
265
266                                if($currentminutos==0) $currenthorario.="0";
267                                if(isset($CntDia[$j][$currenthora][$currentminutos])){
268                                        if($CntDia[$j][$currenthora][$currentminutos]==1)
269                                                $sw++;
270                                                $swampm[$j]=true;
271                                }
272                                if(isset($CntDia[$j][$currenthora][$currentminutos])){
273                                        if($CntDia[$j][$currenthora][$currentminutos]==0)
274                                                $sw--;
275                                }
276                                $HTML_ampm[$j].='<TD ';
277                                if($sw>0)
278                                        $HTML_ampm[$j].=' style="COLOR:#eeeeee;BACKGROUND-COLOR: #cc3366"';
279
280                                if($sw>0) // Cuenta la fracción de 15 minutos como reservada
281                                        $conthoras++;
282                                $HTML_ampm[$j].=' align=center>&nbsp;'.$currenthorario.'&nbsp;</TD>'.chr(13);
283                                $currentminutos+=15;
284                                if($currentminutos==60) {
285                                        $currenthora++;
286                                        $currentminutos=0;
287                                }
288                                $currenthorario=$currenthora.":".$currentminutos;
289                                if (($cols)%$maxcolumnas==0 ) $HTML_ampm[$j].='</TR><TR>'.chr(13);
290                        }
291                $HTML_ampm[$j].='</TR></TABLE>'.chr(13);
292                $HTML_ampm[$j].='</TD>'.chr(13);
293        }
294
295        if ($swampm[0])
296                        $HTML_calendario.=$HTML_ampm[0];
297
298        if ($swampm[0] && $swampm[1]){
299                $HTML_calendario.='<TD style="BACKGROUND-COLOR: #FFFFFF;" width=25>&nbsp;'.chr(13);
300                $HTML_calendario.='</TD>'.chr(13);
301        }
302
303        if ($swampm[1])
304                        $HTML_calendario.=$HTML_ampm[1];
305
306        $HTML_calendario.='</TR>'.chr(13);
307        $HTML_calendario.='</TABLE>'.chr(13);
308
309        $numblo=($this->horaresevfin-$this->horaresevini)*4;
310        if($numblo>0)
311                $porcenhoras=floor($conthoras*100/$numblo);
312        else
313                $porcenhoras=100;
314        return($HTML_calendario);
315}       
316/* -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
317                Esta función devuelve una cadena con el código HTML con las horas de apertura de las aulas
318________________________________________________________________________________________________________*/
319function Horas_Completas(){
320                $maxcolumnas=8;
321
322                $HTML_calendario='<TABLE id="tabla_horas" class="'.$this->clase.'">'.chr(13);
323                $HTML_calendario.='<TR>'.chr(13);
324                $HTML_calendario.='<TH colspan='.$maxcolumnas.'>Horas</TH></TR>'.chr(13); // Literal Horas
325                $HTML_calendario.='<TR>'.chr(13);
326                for ($i=1;$i<25;$i++){
327                        $HTML_calendario.='<TD align=center id="'.$i.'"  style="cursor:hand" onmouseover="'.$this->onmouseover.'" onmouseout="'.$this->onmouseout.'" onclick="'.$this->onclick.'">'.$i.'</TD>'.chr(13);
328                        if (($i)%$maxcolumnas==0) $HTML_calendario.='</TR><TR>'.chr(13);
329                }
330        $HTML_calendario.='</TR></TABLE>'.chr(13);
331        return($HTML_calendario);
332}
333/* -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
334                Esta función devuelve una cadena con el código HTML con las intensidades para las reservas de un día
335________________________________________________________________________________________________________*/
336function TablaIntensidades(){
337                $HTML_calendario='<TABLE id="tabla_intensidad border=1class="'.$this->clase.'">'.chr(13);
338                $HTML_calendario.='<TR>'.chr(13);
339                $itcr=255;
340                for($i=0;$i<=100;$i+=8){
341                        $HTML_calendario.='<TD height=10 width=20'.chr(13);
342                        $itc=240-($i*2);
343                        if($i>=50)
344                                        $colordia="#FFFFFF";
345                                else
346                                        $colordia="#000000";
347                        $bgcolordia=sprintf('#%02x%02x%02x',$itcr,$itc,$itc);
348                        $HTML_calendario.=' style="COLOR:'.$colordia.';BACKGROUND-COLOR: '.$bgcolordia.';">';
349                        //$HTML_calendario.=$i.' %';
350                        $HTML_calendario.='</TD>'.chr(13);
351                }
352        $HTML_calendario.='</TR></TABLE>'.chr(13);
353        return($HTML_calendario);
354}
355
356/* --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
357        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
358________________________________________________________________________________________________________________*/
359function DiasPorMes($mes,$anno,$numerodia){
360        $cadenadias="";
361                $dia_c=1;
362                $fecha=$dia_c."/".$mes."/".$anno;
363                $ds=$this->_DiaSemana($fecha);
364                if ($ds==0) $ds=7;
365                while($ds!=$numerodia){
366                        $dia_c++;
367                        $ds++;
368                        if($ds>7) $ds=1;
369                }
370                // Calcula número de dias del mes
371                $diasmaxmes=$this->dias_meses[$mes];
372                if ($mes==2){
373                        if ($this->bisiesto($anno)){
374                                        $diasmaxmes=29;
375                        }
376                }
377                while($dia_c<=$diasmaxmes){
378                        $cadenadias.=$dia_c.";";
379                        $dia_c+=7;
380                }
381                return($cadenadias);
382}
383/*________________________________________________________________________________________________________
384        Devuelve una cadena con los días del mes correspondiente a una semana concreta, separados por coma
385________________________________________________________________________________________________________*/
386function DiasPorSemanas($mes,$anno,$numerosemana){
387        $cadenadias="";
388                $dia_c=1;
389                $nsem=1;
390                $fecha=$dia_c."/".$mes."/".$anno;
391                $ds=$this->_DiaSemana($fecha);
392                if ($ds==0) $ds=7;
393                while($nsem!=$numerosemana){
394                        $dia_c++;
395                        $ds++;
396                        if($ds>7){
397                                $ds=1;
398                                $nsem++;
399                        }
400                }
401                // Calcula número de dias del mes
402                $diasmaxmes=$this->dias_meses[$mes];
403                if ($mes==2){
404                        if ($this->bisiesto($anno)){
405                                        $diasmaxmes=29;
406                        }
407                }
408                for($i=$ds;$i<=5;$i++){
409                        if($dia_c>$diasmaxmes) break;
410                        $cadenadias.=$dia_c.";";
411                        $dia_c++;
412                }
413                return($cadenadias);
414}
415// ____________________________________________________________________________
416//      Esta función devuelve el número de la última semana de un mes
417// ____________________________________________________________________________
418function UltimaSemana($mes,$anno){
419        $diasmaxmes=$this->dias_meses[$mes];
420        if ($mes==2){
421                if ($this->bisiesto($anno)){
422                                $diasmaxmes=29;
423                }
424        }
425        $fecha="1/".$mes."/".$anno;
426        $ds=$this->_DiaSemana($fecha);
427        if ($ds==0) $ds=7;
428        $nwdia=$diasmaxmes+$ds-1;
429        $cociente=floor($nwdia/7);
430        $resto=$nwdia%7;
431        if($resto>0) $cociente++;
432        return($cociente);
433}
434//________________________________________________________________________________________________________
435// Función : Fechas
436// Descripción :
437//              Devuelve una cadena de fechas separada por comas que son  las fechas que forman parte de una reserva concreta
438//      Parametros:
439//              - anno_c: Un año determinado
440//              - mes_desde: El mes desde que se considera la reserva
441//              - mes_hasta: El mes hasta que se considera la reserva
442//              - 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
443//              - diario:  Idem para los dias de un mes
444//              - dias: idem para los nombres de los días
445//              - semanas: Idem para las semanas
446//________________________________________________________________________________________________________
447function Fechas($anno_c,$mes_desde,$mes_hasta,$meses,$diario,$dias,$semanas){
448        $cadenafechas="";
449        $mascara=0x0001;
450        $cadenameses="";
451        $meses=$meses>>($mes_desde-1);
452        for($i=$mes_desde;$i<=$mes_hasta;$i++){
453                if($meses&$mascara>0){
454                        $cadenameses.=$i.";";
455                        // Dias de la semana
456                        if($dias>0){
457                                $auxdias=$dias;
458                                for($j=1;$j<=7;$j++){
459                                        if($auxdias&$mascara>0){
460                                                $cadenadias=$this->DiasPorMes($i,$anno_c,$j);
461                                                $tbdias=explode(";",$cadenadias);
462                                                for ($k=0;$k<sizeof($tbdias)-1;$k++)
463                                                        $cadenafechas.=$tbdias[$k]."/".$i."/".$anno_c.";";
464                                        }
465                                        $auxdias=$auxdias>>1;
466                                }
467                        }
468                        // Semanas
469                        if($semanas>0){
470                                $auxsemanas=$semanas;
471                                for($j=1;$j<=6;$j++){
472                                        if($auxsemanas&$mascara>0){
473                                                if($j==6){
474                                                        $ulse=$this->UltimaSemana($i,$anno_c);
475                                                        $cadenadias=$this->DiasPorSemanas($i,$anno_c,$ulse);
476                                                }
477                                                else
478                                                        $cadenadias=$this->DiasPorSemanas($i,$anno_c,$j);
479                                                $tbdias=explode(";",$cadenadias);
480                                                for ($k=0;$k<sizeof($tbdias)-1;$k++)
481                                                        $cadenafechas.=$tbdias[$k]."/".$i."/".$anno_c.";";
482                                        }
483                                        $auxsemanas=$auxsemanas>>1;
484                                }
485                        }
486                }
487                $meses=$meses>>1;
488        }
489        $cadenadiario="";
490        for($i=1;$i<32;$i++){
491                        if($diario&$mascara>0) $cadenadiario.=$i.";";
492                        $diario=$diario>>1;
493        }
494        $tbmeses=explode(";",$cadenameses);
495        $tbdiario=explode(";",$cadenadiario);
496        for ($i=0;$i<sizeof($tbmeses)-1;$i++){
497                for ($j=0;$j<sizeof($tbdiario)-1;$j++){
498                        $cadenafechas.=$tbdiario[$j]."/".$tbmeses[$i]."/".$anno_c.";";
499                }
500        }
501        return($cadenafechas);
502}
503/*______________________________________________________________________
504        Devuelve el dia juliano de una fecha determinada
505        Parametros:
506                - cadena con la fecha en formato "dd/mm/aaaa"
507        Devuelve:
508                - El dia juliano
509_______________________________________________________________________*/
510function juliana($fecha) {
511        list($dia,$mes,$anno)=explode("[/-]",$fecha);
512        $GGG = 1;
513    if ($anno <= 1585) $GGG = 0;
514    $juliano= -1 * floor(7 * (floor(($mes + 9) / 12) + $anno) / 4);
515    $S = 1;
516    if (($mes - 9)<0) $S=-1;
517    $A = abs($mes - 9);
518    $auxjuliano = floor($anno + $S * floor($A / 7));
519    $auxjuliano = -1 * floor((floor($auxjuliano / 100) + 1) * 3 / 4);
520    $juliano = $juliano + floor(275 * $mes / 9) + $dia + ($GGG * $auxjuliano);
521        $juliano =$juliano + 1721027 + 2 * $GGG + 367 * $anno - 0.5;
522        return(floor($juliano));
523}
524} // Fin de la clase Calendario
Note: See TracBrowser for help on using the repository browser.