$do = date("Ymd", $tfc); } $anno = $_GET['an']; if ($anno == "") { $anno = substr($do, 0, 4); } $mense = $_GET['mois_courant']; if ($mense == "") { $mense = substr($do, 4, 2); } /* * initialisation des variables de date */ $die = substr($do, 6, 2); $dts = mktime(12, 0, 0, $mense, $die, $anno); $datelatin = date_latin($dts); $dtsmoinsun = $dts - 60 * 60 * 24; $dtsplusun = $dts + 60 * 60 * 24; $hier = date("Ymd", $dtsmoinsun); $demain = date("Ymd", $dtsplusun); //print_r("initialisation des variables GET <br>"); $calendarium = calendarium($do); //print_r("initialisation du calendrier <br>"); ?> <head> <?php print "<title>Liturgia Horarum, " . $datelatin . "</title>"; ?> <meta charset="utf-8"> <link type="text/css" rel="stylesheet" href="CSS/stylesheet.css" /> </head>
function calendarium($date) { $feriae = array("Dominica", "Feria II", "Feria III", "Feria IV", "Feria V", "Feria VI", "Sabbato"); $romains = array("", "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX", "X", "XI", "XII", "XIII", "XIV", "XV", "XVI", "XVII", "XVIII", "XIX", "XX", "XXI", "XXII", "XXIII", "XXIV", "XXV", "XXVI", "XXVII", "XXVIII", "XXIX", "XXX", "XXXI", "XXXII", "XXXIII", "XXXIV"); $menses = array("", "Ianuarii", "Februarii", "Martii", "Aprilii", "Maii", "Iunii", "Iulii", "Augusti", "Septembri", "Octobri", "Novembri", "Decembri"); $hexa['Violet'] = "6c075f"; $hexa['Violet-avent'] = "#C800FE"; $hexa['Violet-careme'] = "#9200AC"; $hexa['Vert'] = "076c11"; $hexa['Rose'] = "ef9de4"; $hexa['Noir'] = "000000"; $hexa['Blanc'] = "f3f1bc"; $hexa['Rouge'] = "c50520"; $anno = substr($date, 0, 4); // ann�e de la date demand�e $mense = substr($date, 4, 2); // mois de la date demand�e $die = substr($date, 6, 2); // jour de la date demand�e $day = mktime(12, 0, 0, $mense, $die, $anno); // date de mand�e au format informatique //// Forme de la variable date : AAAAMMJJ /* Le math�maticien Gauss avait trouv� un algorithme (une formule) pour calculer cette date. Un autre math�maticien, T. H. O�Beirne, a trouv� deux erreurs dans la formule de Gauss. Il a alors formul� un autre algorithme : Soit m l�ann�e, on fait les calculs suivants : 1. On soustrait 1900 de m : c�est la valeur de n. 2. On divise n par 19 : le reste est la valeur de a. 3. On divise (7a + 1) par 19 : la partie enti�re du quotient est b. 4. On divise (11a - b + 4) par 29 : le reste est c. 5. On divise n par 4 : la partie enti�re du quotient est d. 6. On divise (n - c + d + 31) par 7 : le reste est e. La date de P�ques est le (25 - c - e) avril si le r�sultat est positif. S�il est n�gatif, le mois est mars. Le quanti�me est la somme de 31 et du r�sultat. Par exemple, si le r�sultat est -7, le quanti�me est 31 + -7 = 24. */ $m = @date("Y", $day); // extraction de l'ann�e demand�e au format informatique $n = $m - 1900; // op�ration 1 $a = $n % 19; // op�ration 2 $b = intval((7 * $a + 1) / 19); // op�ration 3 $c = (11 * $a - $b + 4) % 29; // op�ration 4 $d = intval($n / 4); // op�ration 5 $e = ($n - $c + $d + 31) % 7; // op�ration 6 // Si e est positif, P�ques est en avril if ($e >= 0) { $p = 25 - $c - $e; $paques = mktime(12, 0, 0, 4, $p, $m); } // Si e est n�gatif, P�ques est en mars if ($e < 0) { $p = 31 + $e; $paques = mktime(12, 0, 0, 3, $p, $m); } setlocale(LC_ALL, 'FR'); $res = date("Ymd", $paques); //print"<br>PAQUES $res : $paques"; $jour = 60 * 60 * 24; $semaine = 60 * 60 * 24 * 7; /* * Cycle de No�l */ // Date de no�l au format informatique $noel = mktime(12, 0, 0, 12, 25, $m); $noe = date("d-M-Y", $noel); $no = date("Ymd", $noel); $jour_noel = date("w", $noel); // Noel $temporal['intitule'][$no] = "IN NATIVITATE DOMINI"; $temporal['couleur'][$no] = "Blanc"; $temporal['tempus'][$no] = "Tempus Nativitatis"; $temporal['hebdomada'][$no] = "Infra octavam Nativitatis"; $temporal['priorite'][$no] = "2"; $temporal['hp'][$no] = 1; $temporal['1V'][$no] = 1; // temsp de l'Avent $journoel = date("w", $noel); if ($journoel == 0) { $journoel = 7; } $quatre_dim_avent = $noel - $journoel * $jour; // 4e dim $dd = date("Ymd", $quatre_dim_avent); $temporal['intitule'][$dd] = "Dominica IV Adventus"; $temporal['temporal'][$dd] = "Dominica IV Adventus"; $temporal['hp'][$dd] = 4; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['hebdomada'][$dd] = "Hebdomada IV Adventus"; $temporal['couleur'][$dd] = "Violet-avent"; $trois_dim_avent = $quatre_dim_avent - $semaine; // 3e dim $dd = date("Ymd", $trois_dim_avent); $temporal['intitule'][$dd] = "Dominica III Adventus"; $temporal['temporal'][$dd] = "Dominica III Adventus"; $temporal['hp'][$dd] = 3; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['couleur'][$dd] = "Rose"; $temporal['hebdomada'][$dd] = "Hebdomada III Adventus"; $coul_adventus = $trois_dim_avent + $jour; $dd = date("Ymd", $coul_adventus); $temporal['couleur'][$dd] = "Violet-avent"; $deux_dim_avent = $trois_dim_avent - $semaine; // 2e dim $dd = date("Ymd", $deux_dim_avent); $temporal['intitule'][$dd] = "Dominica II Adventus"; $temporal['temporal'][$dd] = "Dominica II Adventus"; $temporal['hp'][$dd] = 2; $temporal['1V'][$dd] = 1; $temporal['priorite'][$dd] = "2"; $temporal['hebdomada'][$dd] = "Hebdomada II Adventus"; $un_dim_avent = $deux_dim_avent - $semaine; // 1er dim $dd = date("Ymd", $un_dim_avent); $temporal['intitule'][$dd] = "Dominica I Adventus"; $temporal['temporal'][$dd] = "Dominica I Adventus"; $temporal['hp'][$dd] = 1; $temporal['1V'][$dd] = 1; $temporal['priorite'][$dd] = "2"; $temporal['hebdomada'][$dd] = "Hebdomada I Adventus"; $temporal['tempus'][$dd] = "Tempus Adventus"; $temporal['couleur'][$dd] = "Violet-avent"; $dnisuchrisitiunivregis = $un_dim_avent - $semaine; // Christ-Roi // Temsp de Noel /* * Ste Famille * Celebrer comme un dimanche du temps de noel, priorite 6 et 1V, si noel ne tombe pas dimanche * Celebrer comme une fete du calendrier general si noel est un dimanche */ if ($jour_noel != 0) { $sanctae_familiae2 = $noel + (7 - $jour_noel) * $jour; //Si Noel n'est pas un dimanche, la Ste Famille est le dimanche suivant noel $jj = date("w", $sanctae_familiae2); $dd = date("Ymd", $sanctae_familiae2); } else { $sanctae_familiae2 = mktime(12, 0, 0, 12, 30, $m); // Sinon, c'est le 30 decembre $jj = date("w", $sanctae_familiae2); $dd = date("Ymd", $sanctae_familiae2); } $temporal['intitule'][$dd] = "SANCTAE FAMILIAE IESU, MARIAE ET IOSEPH"; $temporal['temporal'][$dd] = "SANCTAE FAMILIAE IESU, MARIAE ET IOSEPH"; $temporal['hebdomada'][$dd] = "Infra octavam Nativitatis"; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['couleur'][$dd] = "Blanc"; if ($jj == 0) { $temporal['1V'][$dd] = 1; $temporal['priorite'][$dd] = "6"; } else { $temporal['priorite'][$dd] = "6"; } // Noel de l'ann�e pr�c�dente $noel_annee_precedente = mktime(12, 0, 0, 12, 25, $m - 1); $dd = date("Ymd", $noel_annee_precedente); $temporal['intitule'][$dd] = "IN NATIVITATE DOMINI"; $temporal['couleur'][$dd] = "Blanc"; $temporal['priorite'][$dd] = "2"; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['hebdomada'][$dd] = "Infra octavam Nativitatis"; $temporal['1V'][$dd] = 1; $temporal['hp'][$dd] = 1; $jour_noel_precedent = date("w", $noel_annee_precedente); // Ste famille de l'ann�e pr�c�dente if ($jour_noel_precedent != 0) { $sanctae_familiae = $noel_annee_precedente + (7 - $jour_noel_precedent) * $jour; } else { $sanctae_familiae = mktime(12, 0, 0, 12, 30, $m - 1); } // Noel etait un dimanche et la Ste Famille le 30 decembre $jj = date("w", $sanctae_familiae); $dd = date("Ymd", $sanctae_familiae); $temporal['intitule'][$dd] = "SANCTAE FAMILIAE IESU, MARIAE ET IOSEPH"; $temporal['hebdomada'][$dd] = "Infra octavam Nativitatis"; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['couleur'][$dd] = "Blanc"; if ($jj == 0) { $temporal['1V'][$dd] = 1; $temporal['priorite'][$dd] = "6"; } else { $temporal['priorite'][$dd] = "7"; } // 5e jour dans l'octave - 29 Decembre $jour5 = mktime(12, 0, 0, 12, 29, $m); $jj = date("w", $jour5); if ($jj != 0) { $dd = date("Ymd", $jour5); $temporal['temporal'][$dd] = "DE DIE V INFRA OCTAVAM NATIVITATIS"; $temporal['intitule'][$dd] = "DE DIE V INFRA OCTAVAM NATIVITATIS"; $temporal['couleur'][$dd] = "Blanc"; $temporal['priorite'][$dd] = "9"; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['hebdomada'][$dd] = "Infra octavam Nativitatis"; } // 6e jour dans l'octave - 30 Decembre $jour6 = mktime(12, 0, 0, 12, 30, $m); $jj = date("w", $jour6); $dd = date("Ymd", $jour6); if ($jj != 0 and !$temporal['intitule'][$dd]) { $temporal['temporal'][$dd] = "DE DIE VI INFRA OCTAVAM NATIVITATIS"; $temporal['intitule'][$dd] = "DE DIE VI INFRA OCTAVAM NATIVITATIS"; $temporal['couleur'][$dd] = "Blanc"; $temporal['priorite'][$dd] = "9"; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['hebdomada'][$dd] = "Infra octavam Nativitatis"; } // 7e jour dans l'octave - 31 Decembre $jour7 = mktime(12, 0, 0, 12, 31, $m); $jj = date("w", $jour7); $dd = date("Ymd", $jour7); if ($jj != 0) { $temporal['temporal'][$dd] = "DE DIE VII INFRA OCTAVAM NATIVITATIS"; $temporal['intitule'][$dd] = "DE DIE VII INFRA OCTAVAM NATIVITATIS"; $temporal['couleur'][$dd] = "Blanc"; $temporal['priorite'][$dd] = "9"; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['hebdomada'][$dd] = "Infra octavam Nativitatis"; } // 1er Janvier $stemarie = mktime(12, 0, 0, 1, 1, $m); $jj = date("w", $stemarie); $dd = date("Ymd", $stemarie); $temporal['temporal'][$dd] = "IN OCTAVA NATIVITATIS DOMINI"; $temporal['intitule'][$dd] = "IN OCTAVA NATIVITATIS DOMINI"; $temporal['couleur'][$dd] = "Blanc"; $temporal['priorite'][$dd] = "3"; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['hebdomada'][$dd] = "Infra octavam Nativitatis"; $temporal['1V'][$dd] = 1; // 1er Janvier de l'année suivante $stemariesuivant = mktime(12, 0, 0, 1, 1, $m + 1); $jj = date("w", $stemariesuivant); $dd = date("Ymd", $stemariesuivant); $temporal['temporal'][$dd] = "IN OCTAVA NATIVITATIS DOMINI"; $temporal['intitule'][$dd] = "IN OCTAVA NATIVITATIS DOMINI"; $temporal['couleur'][$dd] = "Blanc"; $temporal['priorite'][$dd] = "3"; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['hebdomada'][$dd] = "Infra octavam Nativitatis"; $temporal['1V'][$dd] = 1; $infra_oct_nativ = $noel_annee_precedente + 7 * $jour; // Octave de noel de l'ann�e pr�c�dente $dd = date("Ymd", $infra_oct_nativ); $temporal['hebdomada'][$dd] = ""; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['couleur'][$dd] = "Blanc"; $temporal['hp'][$dd] = 1; $fin_oct_nativitatis = $noel_annee_precedente + 8 * $jour; $dd = date("Ymd", $fin_oct_nativitatis); $temporal['hebdomada'][$dd] = " "; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['couleur'][$dd] = "Blanc"; $temporal['hp'][$dd] = 1; /* * Epiphanie * Le 2nd dimanche après noel en France */ $epiphania = $noel_annee_precedente + (14 - $jour_noel_precedent) * $jour; //$epiphania=mktime(12,0,0,1,6,$m); $dd = date("Ymd", $epiphania); $temporal['jour'][$dd] = "IN EPIPHANIA DOMINI"; $temporal['intitule'][$dd] = "IN EPIPHANIA DOMINI"; //$temporal['rang'][$dd]="Sollemnitas"; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['couleur'][$dd] = "Blanc"; $temporal['hebdomada'][$dd] = ""; /* * Temps de la nativite entre l'octave de Noel et l'Epiphanie * */ // 2 Janvier $jour0102 = mktime(12, 0, 0, 1, 2, $m); $jj = date("w", $jour0102); $dd = date("Ymd", $jour0102); if ($jj != 0 and $jour0102 < $epiphania) { $temporal['temporal'][$dd] = "DE DIE 2 IANUARII"; $temporal['intitule'][$dd] = "DE DIE 2 IANUARII"; $temporal['couleur'][$dd] = "Blanc"; $temporal['priorite'][$dd] = "13"; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['hebdomada'][$dd] = ""; } // 3 Janvier $jour0103 = mktime(12, 0, 0, 1, 3, $m); $jj = date("w", $jour0103); $dd = date("Ymd", $jour0103); if ($jj != 0 and $jour0103 < $epiphania) { $temporal['temporal'][$dd] = "DE DIE 3 IANUARII"; $temporal['intitule'][$dd] = "DE DIE 3 IANUARII"; $temporal['couleur'][$dd] = "Blanc"; $temporal['priorite'][$dd] = "13"; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['hebdomada'][$dd] = ""; } // 4 Janvier $jour0104 = mktime(12, 0, 0, 1, 4, $m); $jj = date("w", $jour0104); $dd = date("Ymd", $jour0104); if ($jj != 0 and $jour0104 < $epiphania) { $temporal['temporal'][$dd] = "DE DIE 4 IANUARII"; $temporal['intitule'][$dd] = "DE DIE 4 IANUARII"; $temporal['couleur'][$dd] = "Blanc"; $temporal['priorite'][$dd] = "13"; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['hebdomada'][$dd] = ""; } // 5 Janvier $jour0105 = mktime(12, 0, 0, 1, 5, $m); $jj = date("w", $jour0105); $dd = date("Ymd", $jour0105); if ($jj != 0 and $jour0105 < $epiphania) { $temporal['temporal'][$dd] = "DE DIE 5 IANUARII"; $temporal['intitule'][$dd] = "DE DIE 5 IANUARII"; $temporal['couleur'][$dd] = "Blanc"; $temporal['priorite'][$dd] = "13"; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['hebdomada'][$dd] = ""; } // 6 Janvier $jour0106 = mktime(12, 0, 0, 1, 6, $m); $jj = date("w", $jour0106); $dd = date("Ymd", $jour0106); if ($jj != 0 and $jour0106 < $epiphania) { $temporal['temporal'][$dd] = "DE DIE 6 IANUARII"; $temporal['intitule'][$dd] = "DE DIE 6 IANUARII"; $temporal['couleur'][$dd] = "Blanc"; $temporal['priorite'][$dd] = "13"; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['hebdomada'][$dd] = ""; } // 7 Janvier $jour0107 = mktime(12, 0, 0, 1, 7, $m); $jj = date("w", $jour0107); $dd = date("Ymd", $jour0107); if ($jj != 0 and $jour0107 < $epiphania) { $temporal['temporal'][$dd] = "DE DIE 7 IANUARII"; $temporal['intitule'][$dd] = "DE DIE 7 IANUARII"; $temporal['couleur'][$dd] = "Blanc"; $temporal['priorite'][$dd] = "13"; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['hebdomada'][$dd] = ""; } /* * Bapteme du Seigneur * Le dimanche qui suit l'Epiphanie * sauf si l'Epiphanie est le 7 ou 8 janvier, alors c'est le lendemain */ $jour_epiphanie = date("w", $epiphania); $epipha = date("d", $epiphania); if ($epipha < 7) { $infra_oct_epiphanie = $epiphania + $jour; $dd = date("Ymd", $infra_oct_epiphanie); $temporal['hebdomada'][$dd] = "Post Dominicam Epiphaniæ"; $temporal['hp'][$dd] = 2; $baptisma = $epiphania + (7 - $jour_epiphanie) * $jour; } else { $baptisma = $epiphania + $jour; } $dd = date("Ymd", $baptisma); $temporal['hebdomada'][$dd] = ""; $temporal['intitule'][$dd] = "IN BAPTISMATE DOMINI"; //$temporal['rang'][$dd]="Festum"; $temporal['priorite'][$dd] = "5"; $temporal['1V'][$dd] = 1; $temporal['tempus'][$dd] = "Tempus Nativitatis"; $temporal['couleur'][$dd] = "Blanc"; $temporal['hp'][$dd] = 1; $perannum = $baptisma + $jour; // d�but de temps ordinaire $dd = date("Ymd", $perannum); $temporal['tempus'][$dd] = "Tempus per annum"; $temporal['hebdomada'][$dd] = "Hebdomada I per annum"; $temporal['couleur'][$dd] = "Vert"; $temporal['hp'][$dd] = 1; $temporal['psautier'][$dd] = "perannum"; /* * cycle de P�ques */ // temps de la Passion $palmis = $paques - $semaine; // Dim de la Passion $dd = date("Ymd", $palmis); $temporal['intitule'][$dd] = "DOMINICA IN PALMIS DE PASSIONE DOMINI"; $temporal['temporal'][$dd] = "DOMINICA IN PALMIS DE PASSIONE DOMINI"; $temporal['hp'][$dd] = 2; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['hebdomada'][$dd] = "Hebdomada Sancta"; $temporal['tempus'][$dd] = "Tempus passionis"; $temporal['couleur'][$dd] = "Rouge"; $hebviol = $palmis + $jour; $dd = date("Ymd", $hebviol); $temporal['couleur'][$dd] = "Violet-careme"; $in_cena = $palmis + 4 * $jour; // Jeudi Saint $dd = date("Ymd", $in_cena); $temporal['intitule'][$dd] = "IN CENA DOMINI"; $temporal['temporal'][$dd] = "IN CENA DOMINI"; $temporal['priorite'][$dd] = "1"; $temporal['hebdomada'][$dd] = "Sacrum Triduum Paschale"; $temporal['tempus'][$dd] = "Tempus passionis"; $temporal['couleur'][$dd] = "Blanc"; $in_passione = $in_cena + $jour; // Vendredi Saint $dd = date("Ymd", $in_passione); $temporal['intitule'][$dd] = "IN PASSIONE DOMINI"; $temporal['temporal'][$dd] = "IN PASSIONE DOMINI"; $temporal['priorite'][$dd] = "1"; $temporal['couleur'][$dd] = "Rouge"; $sabbato_sancto = $in_passione + $jour; // Samedi Saint $dd = date("Ymd", $sabbato_sancto); $temporal['intitule'][$dd] = "Sabbato Sancto"; $temporal['priorite'][$dd] = "1"; $temporal['couleur'][$dd] = "Violet-careme"; // Temps du car�me $cinq_quadragesima = $palmis - $semaine; // 5e Dim de Careme $dd = date("Ymd", $cinq_quadragesima); $temporal['intitule'][$dd] = "Dominica V Quadragesimae"; $temporal['temporal'][$dd] = "Dominica V Quadragesimae"; $temporal['hp'][$dd] = 1; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['hebdomada'][$dd] = "Hebdomada V Quadragesimae"; $temporal['tempus'][$dd] = "Tempus Quadragesimae"; $quatre_quadragesima = $cinq_quadragesima - $semaine; // 4e Dim de Careme $dd = date("Ymd", $quatre_quadragesima); $temporal['intitule'][$dd] = "Dominica IV Quadragesimae"; $temporal['temporal'][$dd] = "Dominica IV Quadragesimae"; $temporal['hp'][$dd] = 4; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['hebdomada'][$dd] = "Hebdomada IV Quadragesimae"; $temporal['couleur'][$dd] = "Rose"; $coul_quadragesima = $quatre_quadragesima + $jour; $dd = date("Ymd", $coul_quadragesima); $temporal['couleur'][$dd] = "Violet-careme"; $trois_quadragesima = $quatre_quadragesima - $semaine; // 3e Dim de Careme $dd = date("Ymd", $trois_quadragesima); $temporal['intitule'][$dd] = "Dominica III Quadragesimae"; $temporal['temporal'][$dd] = "Dominica III Quadragesimae"; $temporal['hp'][$dd] = 3; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['hebdomada'][$dd] = "Hebdomada III Quadragesimae"; $temporal['couleur'][$dd] = "Violet-careme"; $deux_quadragesima = $trois_quadragesima - $semaine; // 2e Dim de Careme $dd = date("Ymd", $deux_quadragesima); $temporal['intitule'][$dd] = "Dominica II Quadragesimae"; $temporal['temporal'][$dd] = "Dominica II Quadragesimae"; //Dominica I Quadragesimae $temporal['hp'][$dd] = 2; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['hebdomada'][$dd] = "Hebdomada II Quadragesimae"; $temporal['couleur'][$dd] = "Violet-careme"; $un_quadragesima = $deux_quadragesima - $semaine; // 1er Dim de Careme $dd = date("Ymd", $un_quadragesima); $temporal['intitule'][$dd] = "Dominica I Quadragesimae"; $temporal['temporal'][$dd] = "Dominica I Quadragesimae"; $temporal['hp'][$dd] = 1; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['hebdomada'][$dd] = "Hebdomada I Quadragesimae"; $temporal['couleur'][$dd] = "Violet-careme"; $cinerum = $un_quadragesima - 4 * $jour; // Mercredi des cendres $dd = date("Ymd", $cinerum); $temporal['intitule'][$dd] = "Feria IV Cinerum"; $temporal['temporal'][$dd] = "Feria IV Cinerum"; $temporal['priorite'][$dd] = "2"; $temporal['hebdomada'][$dd] = ""; $temporal['tempus'][$dd] = "Tempus Quadragesimae"; $temporal['couleur'][$dd] = "Violet-careme"; $temporal['hp'][$dd] = 4; $post_cineres = $cinerum + $jour; $dd = date("Ymd", $post_cineres); $temporal['hebdomada'][$dd] = "Dies post Cineres"; $temporal['couleur'][$dd] = "Violet-careme"; // Temps Pascal $pa = date("Ymd", $paques); // Jour de P�ques $dd = $pa; $temporal['intitule'][$dd] = "DOMINICA RESURRECTIONIS"; $temporal['temporal'][$dd] = "DOMINICA RESURRECTIONIS"; $temporal['priorite'][$dd] = "1"; $temporal['1V'][$dd] = 0; $temporal['hebdomada'][$dd] = "Infra octavam paschae"; $temporal['tempus'][$dd] = "Tempus Paschale"; $temporal['couleur'][$dd] = "Blanc"; $temporal['hp'][$dd] = 1; $deux_paques = $paques + $semaine; $dd = date("Ymd", $deux_paques); $temporal['intitule'][$dd] = "Dominica II Paschae"; $temporal['temporal'][$dd] = "Dominica II Paschae"; $temporal['hp'][$dd] = 2; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $l_deuxpaques = $deux_paques + 60 * 60 * 24; $dd = date("Ymd", $l_deuxpaques); $temporal['hebdomada'][$dd] = "Hebdomada II Paschae"; $trois_paques = $paques + 2 * $semaine; $dd = date("Ymd", $trois_paques); $temporal['intitule'][$dd] = "Dominica III Paschae"; $temporal['temporal'][$dd] = "Dominica III Paschae"; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['hebdomada'][$dd] = "Hebdomada III Paschae"; $temporal['hp'][$dd] = 3; $quatre_paques = $paques + 3 * $semaine; $dd = date("Ymd", $quatre_paques); $temporal['intitule'][$dd] = "Dominica IV Paschae"; $temporal['temporal'][$dd] = "Dominica IV Paschae"; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['hebdomada'][$dd] = "Hebdomada IV Paschae"; $temporal['hp'][$dd] = 4; $cinq_paques = $paques + 4 * $semaine; $dd = date("Ymd", $cinq_paques); $temporal['intitule'][$dd] = "Dominica V Paschae"; $temporal['temporal'][$dd] = "Dominica V Paschae"; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['hebdomada'][$dd] = "Hebdomada V Paschae"; $temporal['hp'][$dd] = 1; $six_paques = $paques + 5 * $semaine; $dd = date("Ymd", $six_paques); $temporal['intitule'][$dd] = "Dominica VI Paschae"; $temporal['temporal'][$dd] = "Dominica VI Paschae"; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['hebdomada'][$dd] = "Hebdomada VI Paschae"; $temporal['hp'][$dd] = 2; $ascensione = $six_paques + 4 * $jour; $dd = date("Ymd", $ascensione); $temporal['intitule'][$dd] = "IN ASCENSIONE DOMINI"; $temporal['temporal'][$dd] = "IN ASCENSIONE DOMINI"; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $sept_paques = $paques + 6 * $semaine; $dd = date("Ymd", $sept_paques); $temporal['intitule'][$dd] = "Dominica VII Paschae"; $temporal['temporal'][$dd] = "Dominica VII Paschae"; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['hebdomada'][$dd] = "Hebdomada VII Paschae"; $temporal['hp'][$dd] = 3; $pentecostes = $paques + 7 * $semaine; // Pentecostes $dd = date("Ymd", $pentecostes); $temporal['intitule'][$dd] = "Dominica Pentecostes"; $temporal['temporal'][$dd] = "Dominica Pentecostes"; $temporal['priorite'][$dd] = "2"; $temporal['1V'][$dd] = 1; $temporal['hp'][$dd] = $hp; $temporal['tempus'][$dd] = "Tempus Paschale"; $temporal['hebdomada'][$dd] = ""; $temporal['couleur'][$dd] = "Rouge"; $trinitatis = $pentecostes + $semaine; // Ste Trinit� $trini = date("Ymd", $trinitatis); $temporal['couleur'][$trini] = "Blanc"; $temporal['intitule'][$trini] = "SANCTISSIMAE TRINITATIS"; $temporal['temporal'][$trini] = "SANCTISSIMAE TRINITATIS"; $temporal['priorite'][$trini] = "3"; $temporal['1V'][$trini] = 1; $temporal['rang'][$trini] = "Sollemnitas"; $perannum = $trinitatis + $jour; $perann = date("Ymd", $perannum); $temporal['couleur'][$perann] = "Vert"; $corporis = $trinitatis + 4 * $jour; // Fete Dieu $corpo = date("Ymd", $corporis); $temporal['couleur'][$corpo] = "Blanc"; $temporal['intitule'][$corpo] = "SS.MI CORPORIS ET SANGUINIS CHRISTI"; $temporal['temporal'][$corpo] = "SS.MI CORPORIS ET SANGUINIS CHRISTI"; $temporal['rang'][$corpo] = "Sollemnitas"; $temporal['priorite'][$corpo] = "3"; $temporal['1V'][$corpo] = 1; $perannum = $trinitatis + $jour; $perannum = $corporis + $jour; $perann = date("Ymd", $perannum); $temporal['couleur'][$perann] = "Vert"; $sacritissimicordis = $pentecostes + 2 * $semaine + 5 * $jour; // Coeur sacr� de J�sus $sacri = date("Ymd", $sacritissimicordis); $temporal['couleur'][$sacri] = "Rouge"; $temporal['intitule'][$sacri] = "SACRATISSIMI CORDIS IESU"; $temporal['temporal'][$sacri] = "SACRATISSIMI CORDIS IESU"; $temporal['priorite'][$sacri] = "5"; $temporal['1V'][$sacri] = 1; $temporal['rang'][$sacri] = "Sollemnitas"; $cordismaria = $sacritissimicordis + $jour; // Coeur immacul� de Marie $cordi = date("Ymd", $cordismaria); $temporal['intitule'][$cordi] = "Immaculati Cordis B. Mariae Virginis"; $temporal['temporal'][$cordi] = "Immaculati Cordis B. Mariae Virginis"; $temporal['priorite'][$cordi] = "10"; $temporal['rang'][$cordi] = "Memoria"; $temporal['couleur'][$cordi] = "Rouge"; $perannum = $cordismaria + $jour; $perann = date("Ymd", $perannum); $temporal['couleur'][$perann] = "Vert"; // Calcul du dimanche de reprise du temps ordinaire apr�s le cyle de P�ques $entre_tempspascal_et_avent = $dnisuchrisitiunivregis - $sept_paques; $nbsemaines_perannum = intval($entre_tempspascal_et_avent / $semaine); $reprise_perannum = 34 - $nbsemaines_perannum + 1; $dim_courant = $reprise_perannum; // Calcul de la semaine du temps ordinaire de reprise apr�s la penteceote $entre_tempsnoel_et_careme = $un_quadragesima - $baptisma; $nbsemaines_perannum = intval($entre_tempsnoel_et_careme / $semaine) + 1; $date = $pentecostes; $hebdomada_reprise = $pentecostes + $jour; $numero = $romains[$dim_courant]; $hp = ($dim_courant / 4 - intval($dim_courant / 4)) * 4; if ($hp == 0) { $hp = 4; } //Semaine apr�s a Pentec�te $dd = date("Ymd", $hebdomada_reprise); $temporal['hebdomada'][$dd] = "Hebdomada {$numero} per annum"; $temporal['hp'][$dd] = $hp; $perannum = $pentecostes + $jour; $perann = date("Ymd", $perannum); $temporal['couleur'][$perann] = "Vert"; $temporal['tempus'][$perann] = "Tempus per annum"; // Temps Ordinaire apr�s la pentecote while ($dim_courant < 34) { $date = $date + $semaine; $dim_courant++; $dd = date("Ymd", $date); $numero = $romains[$dim_courant]; $temporal['intitule'][$dd] = "Dominica {$numero} per annum"; $temporal['priorite'][$dd] = "6"; $temporal['1V'][$dd] = 1; $temporal['temporal'][$dd] = "Dominica {$numero} per annum"; $temporal['hebdomada'][$dd] = "Hebdomada {$numero} per annum"; $hp = ($dim_courant / 4 - intval($dim_courant / 4)) * 4; if ($hp == 0) { $hp = 4; } $temporal['hp'][$dd] = $hp; } $dnisuchrisitiunivregis = $un_dim_avent - $semaine; $dd = date("Ymd", $dnisuchrisitiunivregis); $temporal['intitule'][$dd] = "D.N. IESU CHRISTI UNIVERSORUM REGIS"; $temporal['temporal'][$dd] = "D.N. IESU CHRISTI UNIVERSORUM REGIS"; $temporal['priorite'][$dd] = "3"; $temporal['1V'][$dd] = 1; $temporal['hebdomada'][$dd] = "Hebdomada XXXIV per annum"; $temporal['tempus'][$dd] = "Tempus per annum"; $temporal['couleur'][$dd] = "Blanc"; $perannum = $dnisuchrisitiunivregis + $jour; $perann = date("Ymd", $perannum); $temporal['couleur'][$perann] = "Vert"; // Temps Ordinaire apr�s l'�piphanie $date = $baptisma; $heb_courante = 1; while ($heb_courante < $nbsemaines_perannum) { $date = $date + $semaine; $heb_courante++; $dd = date("Ymd", $date); $numero = $romains[$heb_courante]; $temporal['intitule'][$dd] = "Dominica {$numero} per annum"; $temporal['temporal'][$dd] = "Dominica {$numero} per annum"; $temporal['priorite'][$dd] = "6"; $temporal['1V'][$dd] = 1; $temporal['hebdomada'][$dd] = "Hebdomada {$numero} per annum"; $hp = ($heb_courante / 4 - intval($heb_courante / 4)) * 4; if ($hp == 0) { $hp = 4; } $temporal['hp'][$dd] = $hp; } /* * Chargement du sanctoral */ $row = 1; $handle = fopen("propres_r/sanctoral/sanctoral.csv", "r"); while (($data = fgetcsv($handle, 1000, ";")) !== FALSE) { $num = count($data); $row++; if ($data[4] != "") { // si l'intitulé n'est pas vide $date_sanctoral = @mktime(12, 0, 0, $data[0], $data[3], $m); $dds = date("Ymd", $date_sanctoral); $sanctoral['vita'][$dds] = $data[8]; $sanctoral['intitule'][$dds] = $data[4]; $sanctoral['rang'][$dds] = $data[5]; $sanctoral['couleur'][$dds] = $data[6]; $sanctoral['priorite'][$dds] = $data[7]; if ($data[4] == "S. IOSEPH, SPONSI B. M. V.") { if ($m == "2006") { $sanctoral['intitule']['20060320'] = $data[4]; $sanctoral['rang']['20060320'] = $data[5]; $sanctoral['couleur']['20060320'] = $data[6]; $sanctoral['priorite']['20060320'] = $data[7]; $sanctoral['vita']['20060320'] = $data[8]; } if ($m == "2008") { $sanctoral['intitule']['20080315'] = $data[4]; $sanctoral['rang']['20080315'] = $data[5]; $sanctoral['couleur']['20080315'] = $data[6]; $sanctoral['priorite']['20080315'] = $data[7]; $sanctoral['vita']['20080315'] = $data[8]; } } if ($data[4] == "IN ANNUNTIATIONE DOMINI") { if ($m == "2005") { $sanctoral['intitule']['20050404'] = $data[4]; $sanctoral['rang']['20050404'] = $data[5]; $sanctoral['couleur']['20050404'] = $data[6]; $sanctoral['priorite']['20050404'] = $data[7]; } if ($m == "2007") { $sanctoral['intitule']['20070326'] = $data[4]; $sanctoral['rang']['20070326'] = $data[5]; $sanctoral['couleur']['20070326'] = $data[6]; $sanctoral['priorite']['20070326'] = $data[7]; } if ($m == "2008") { $sanctoral['intitule']['20080331'] = $data[4]; $sanctoral['rang']['20080331'] = $data[5]; $sanctoral['couleur']['20080331'] = $data[6]; $sanctoral['priorite']['20080331'] = $data[7]; } if ($m == "2012") { $sanctoral['intitule']['20120326'] = $data[4]; $sanctoral['rang']['20120326'] = $data[5]; $sanctoral['couleur']['20120326'] = $data[6]; $sanctoral['priorite']['20120326'] = $data[7]; } if ($m == "2013") { $sanctoral['intitule']['20130408'] = $data[4]; $sanctoral['rang']['20130408'] = $data[5]; $sanctoral['couleur']['20130408'] = $data[6]; $sanctoral['priorite']['20130408'] = $data[7]; } } } // fin du si l'intitulé n'est pas vide } // fin du while lisant le fichier sanctoral $m = @date("Y", $day); $date_courante = mktime(12, 0, 0, 1, 1, $m); // 1er janvier de l'annee $m $dernier_jour = mktime(12, 0, 0, 1, 1, $m + 1); // 1er janvier de l'annee *m+1 $lit = array("A", "b", "c", "d", "e", "f", "g"); $i = 0; //$date_courante=mktime(12,0,0,1,1,$m); // 1er janvier de l'ann�e $m //$dernier_jour=mktime(12,0,0,12,31,$m); // 31 d�cembre de l'ann�e $m while ($date_courante <= $dernier_jour) { // Initialisation des propi�t�s du calendrier $vita = ""; $tempo = ""; $pV = ""; $priorite = ""; $couleurs = ""; // Manipulation sur la date du jour � mettre dans le calendrier $d = date("Ymd", $date_courante); $f = date("w", $date_courante); $date = date("Ymd", $date_courante); // initialisation des variables � partir du temporal $intitule = $temporal['intitule'][$date]; if ($temporal['tempus'][$date] != "") { $tempus = $temporal['tempus'][$date]; } if ($temporal['hebdomada'][$date] != "") { $hebdomada = $temporal['hebdomada'][$date]; } if ($temporal['couleur'][$date] != "") { $couleur = $temporal['couleur'][$date]; } if ($temporal['hp'][$date] != "") { $hp = $temporal['hp'][$date]; } $rang = $temporal['rang'][$date]; $priorite = $temporal['priorite'][$date]; $tempo = $temporal['temporal'][$date]; $pV = $temporal['1V'][$date]; // s'il y a conflit temporal / sanctoral if ($sanctoral['priorite'][$date] != "" && $temporal['priorite'][$date] != "") { // sanctoral prioritaire sur le temporal if ($sanctoral['priorite'][$date] < $temporal['priorite'][$date]) { $intitule = $sanctoral['intitule'][$date]; if ($sanctoral['couleur'][$date] != "") { $couleurs = $sanctoral['couleur'][$date]; } $rang = $sanctoral['rang'][$date]; $vita = $sanctoral['vita'][$date]; $priorite = $sanctoral['priorite'][$date]; if ($priorite <= 5) { $pV = 1; } } else { $intitule = $temporal['intitule'][$date]; $tempo = $temporal['temporal'][$date]; $pV = $temporal['1V'][$date]; } } // S'il y un sanctoral mais pas de temporal if ($sanctoral['intitule'][$date] != "" && $temporal['intitule'][$date] == "") { $intitule = $sanctoral['intitule'][$date]; if ($sanctoral['couleur'][$date] != "") { $couleurs = $sanctoral['couleur'][$date]; } $rang = $sanctoral['rang'][$date]; $vita = $sanctoral['vita'][$date]; $priorite = $sanctoral['priorite'][$date]; $propre = date("m", $date_courante) . date("d", $date_courante); } if ($couleurs) { $coul = $hexa[$couleurs]; $couleur_template[$d] = $couleurs; } else { $coul = $hexa[$couleur]; $couleur_template[$d] = $couleur; } ////// Ici confection du tableau $calendarium['couleur_template'][$d] = $couleur_template[$d]; $calendarium['littera'][$d] = $lit[$i]; $calendarium['tempus'][$d] = $tempus; $calendarium['hebdomada'][$d] = $hebdomada; $calendarium['intitule'][$d] = $intitule; $calendarium['rang'][$d] = $rang; $calendarium['hebdomada_psalterium'][$d] = $hp; $calendarium['vita'][$d] = $vita; $calendarium['temporal'][$d] = $tempo; // priorité, si non défini alors priorité la plus basse = 13 if (!$priorite) { $priorite = 13; } $calendarium['priorite'][$d] = $priorite; // 1ères Vêpres si la priorité est plus haute que 4 ou si déjà validé if ($pV or $calendarium['priorite'][$d] <= 4) { $pV = "1"; } else { $pV = ""; } $calendarium['1V'][$d] = $pV; // S'il y a des premières vêpres, donc solennité, et que le temporal n'est pas défini, alors il prends la valeur de l'intitulé if ($calendarium['1V'][$d] == "1" && $calendarium['temporal'][$d] == "") { $calendarium['temporal'][$d] = $calendarium['intitule'][$d]; } //Passage au jour suivant, remise à zéro(dimanche) du compteur i après 7(samedi) $date_courante = $date_courante + $jour; $i++; if ($i == 7) { $i = 0; } } $day = time(); $aujourdhui = @date("Ymd", $day); $datelatin = date_latin($day); $reponse = "{$datelatin}, " . $calendarium['tempus'][$aujourdhui] . ", <a href=\"http://www.scholasaintmaur.net/index.php?date={$aujourdhui}\">" . $calendarium['hebdomada'][$aujourdhui]; if ($calendarium['intitule'][$aujourdhui]) { $reponse .= ", " . $calendarium['intitule'][$aujourdhui]; } if ($calendarium['rang'][$aujourdhui]) { $reponse .= ", " . $calendarium['rang'][$aujourdhui]; } $reponse .= ".</a>"; $calendarium['datedaujourdhui'] = $reponse; return $calendarium; }