$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;
}
