Publiez votre article sur MSDN! Edition 15.10.2010 - 15.11.2010

Question

Publiez une astuce ou un petit tutorial (comment faire) sur la technologie que vous connaissez le mieux et vous pourrez bénéficier de :

·         La publication de votre article dans la catégorie à venir «  Comment faire »

·         La publication de votre article comme thread permanent pour un mois dans le forum respectif.

·         Le respect et l’appréciation de la communauté

 

Plus de détails sur cette action et sur les règles :

http://social.msdn.microsoft.com/Forums/fr-FR/lesitemsdnfr/thread/5b32bf6e-0eb6-4a5c-acc6-9263220f9799

 

Answer 1

CALCUL DES FETES MOBILES POUR UNE ANNEE
PÂQUES, L.PAQUES, ASCENSION, PENTECOTE, L.PENTECOTE

Tous les calculs sont basés sur la date de Pâques, qui est la date anniversaire de la  résurrection de notre Christ.
A partir de cette date de Pâques nous trouvons les 5 dates des fêtes religieues (jours fériés mobiles) ; soit : Pâques, Lundi de Pâques (Pâques + 1 jour), Ascension (Pâques + 39 jours "élévation de notre Christ"), Pentecôte (Pâques + 49 jours "descente de l'esprit Saint") et lundi de Pentecôte (Pâques + 50 jours).
Nota bene : on compte 40 et 50 jours après Pâques pour respectivementl'Ascension et la Pentecôte, mais c'est parce qu'on compte les deux extrêmes.

Pâques est célébré le dimanche qui suit le quatorzième jour de la lune (NL) qui atteint cet âge au 21 mars (équinoxe) ou immédiatement après (concile de Nicée "Turquie" en l'an 325).
Les dates extrêmes incluses de Pâques vont du 22 mars au 25 avril lors de la PL. Toutefois la NL qui sert de base ("Lune" dixit le concile de Nicée) est la NL éclésiastique et non pas astronomique. En effet, à l'époque depuis le moyen-orient on ne savait pas exactement quand avait lieu la NL, puisqu'invisible de la terre, alors on attendait de voir le premier croissant pour déterminer la NL. Ceci crée une divergeance de quelques heures qui peuvent repousser jusqu'à 34 jours au maximum le calcul de Pâques ; d'autant que les calculs astronomiques se font pour l'équateur ou à l'équinoxe le jour et la nuit à la même durée.

Exemples pour 2010 : le 1er jour de la NL juste avant l'équinoxe est le 15 mars, on va donc faire 15 mars + 14 jours = 29 mars, ici la NL a commencé avant l'équinoxe et 14 jours après nous avons dépassé ce dernier, donc les condition sont réunies, mais le 29 mars étant un lundi on va devoir avancer jusqu'au prochain dimanche qui sera Pâques le dimanche 4 Avril 2010.

Le code du programme a été testé avec trois objets (form1, textBox1 et button1).
Le Texte de l'année admis doit être entre 2049 et 34 inclus. Le calcul est dans le code du bouton, donc, bien penser à saisir l'année voulue en totalité, le résultat est dans un MessageBox.

Option Explicit On
Public Class Form1
 Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  TextBox1.Text = "Saisir l'année en entier"
 End Sub

 Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
  TextBox1.Focus()
 End Sub

 Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
  Select Asc(e.KeyChar)
   Case Is < 8 : e.KeyChar = vbNullChar
   Case 8
   Case 9 To 12 : e.KeyChar = vbNullChar
   Case 13
    Call Button1_Click(sender, e)
    Exit Sub
   Case 14 To 47 : e.KeyChar = vbNullChar
   Case Is > 57 : e.KeyChar = vbNullChar
  End Select
 End Sub

 Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim an As Long = Val(TextBox1.Text)
  Dim jour As Long
  Dim mois As Long
  Dim A As Long
  Dim C As Long
  Dim D As Long
  Dim F As Long
  Dim G As Long
  Dim H As Long
  Dim I As Long
  Dim J As Long
  Dim K As Long
  Dim M As Long
  Dim N As Long
  Dim O As Long
  Dim P As Long
  Dim Q As Long
  Dim sngR As Double
  Dim chaine As String
  Dim paques As Date
  Dim lundiPaques As Date
  Dim ascension As Date
  Dim pentecote As Date
  Dim lundiPentecote As Date
  '
  If an < 34 Or an > 2049 Then
   MsgBox("L'année doit être comprise entre 2049 et 34, remédier ... ", vbExclamation)
   TextBox1.Focus()
   Exit Sub
  End If
  '
  A = an Mod 19
  c = Int(an / 100)
  D = 100 * ((an / 100) - Int(an / 100))
  F = Int(c / 4)
  G = 4 * (c / 4 - Int(c / 4))
  H = Int((8 + c) / 25)
  I = Int((1 + C - H) / 3)
  J = 15 + 19 * A + C - F - I
  K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
  M = Int(D / 4)
  N = 4 * (D / 4 - Int(D / 4))
  O = 32 + 2 * (G + m) - k - N
  P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
  Q = Int((a + 11 * k + 22 * p) / 451)
  sngR = (114 + k + p - 7 * Q) / 31
  mois = Int(sngR)
  jour = Int(31 * (sngR - Int(sngR)) + 1.5)
  '
  paques = DateSerial(an, mois, jour)
  lundiPaques = paques.AddDays(1)
  ascension = paques.AddDays(39)
  pentecote = paques.AddDays(49)
  lundiPentecote = paques.AddDays(50)
  '
  chaine = an & vbLf & vbLf
  chaine = chaine & "Dimanche " & paques & vbLf
  chaine = chaine & "Lundi  " & lundiPaques & vbLf
  chaine = chaine & "Jeudi  " & ascension & vbLf
  chaine = chaine & "Dimanche " & pentecote & vbLf
  chaine = chaine & "Lundi  " & lundiPentecote & vbLf
  MsgBox(chaine)
  TextBox1.Focus()
 End Sub ' button1_click
End Class

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---

Answer 2

Peut-on trouver la date de mardi-gras sur ce principe?

---

http://www.scalpa.info

Answer 3

Bonsour®

"scalpa" a écrit dans le message de groupe de discussion : [e-mail]...

Peut-on trouver la date de mardi-gras sur ce principe?

47 jours avant Pâques

---

Maude Este

Answer 4

Bonjour Scalpa,

Si mes écrits et réponses te conviennent, tu peux manifester ta joie en cliquant dans chacune de mes réponses à gauche en haut sur le triangle vert entouré d'un rectangle, merci ;o)

En réponse à ta question : "Peut-on trouver la date de mardi-gras sur ce principe ?"

La réponse est OUI car le "mardi gras" est une fête "mobile", sa mobilité est rattachée à Pâques, ce jour se situe 47 jours, soit 7 semaines avant Pâques.

Voici pour ton information un calendrier l'AVENT des principales fêtes :

CALENDRIER DE L'AVENT
---------------------

Sur plus d'une centaine, aujourd'hui 
Il ne reste que 8 jours fériés catholiques :
Noël, Pâques, L.Pâques, Ascension, Pentecôte,
L.Pentecôte, Assomption et Toussaint.

Le dimanche est le premier jour de la semaine.
Le vendredi est maigre (pas de viande), poisson.

AVENT (l'Avent) (N-4) dimanche
Début de l'année Catholique
L'avènement de notre Christ
Quatre Dimanches avant Noël (exclut)
Couronne de bois le jour de l'avant.
Une bougie est allumée par Dimanche
A la quatrième bougie c'est la semaine de Noël 

NOEL (N)
0h00 le 25 décembre, naissance de notre Christ
Cadeaux.

EPIPHANIE (N+2) dimanche
Visite des rois-mages
Second Dimanche après Noël inclus
Galette.

CHANDELEUR
2 Février
Crêpes
Présentation de notre Christ au Temple
Chandelles, illumination ...

SEMAINE GRASSE (P) mercredi
40 jours avant Pâques (8 semaines)
Le mercredi précédent le Mardi gras.
Semaine de festins, d'abondance.


MARDI GRAS (P)
47 jours avant Pâques (7 semaines)
Fin de la semaine festive
Déguisements

CENDRES (P) mercredi
46 jours avant Pâques
Cendre sur le visage, tristesse
Pénitence de début du carême

CAREME (P) dimanche
42 jours (6 semaines avant Pâques)
Début du jeûne de 40 jours que notre 
Christ a effectué dans le désert.
On mange maigre (pas de viande), poisson.

MI-CAREME (P) dimanche
21 jours avant Pâques (3 semaines)
Pause de bondance dans le Carême
Carnaval

RAMEAUX (P) dimanche
7 jours avant Pâques
Début de la semaine sainte
Fête de l'arrivée de Jésus à
Jérusalem avec des rameaux de palmiers

PAQUES (P) dimanche
Dimanche qui suit le quatorzième jour 
de la lune (NL) qui atteint cet e au 21 mars 
(équinoxe) ou immédiatement après (concile 
de Nicée "Turquie" en l'an 325).
Résurrection de notre Christ au troisième jour.

LUNDI DE PAQUES (P)
1 jour après Pâques
Poursuite des festivités de la résurrection.

ASCENSION (P) jeudi
39 jours après Pâques
Fin de la présence divine de notre Christ et
ascension dans les cieux auprès du Père.

SAINTES DE GLACE (addendum)
11 mai : Mamert
12 mai : Pancrace
13 mai : Servais

PENTECOTE (P) dimanche
49 jours après Pâques (7 semaines)
Commémore le Saint-Esprit

LUNDI DE PENTECOTE (P)
50 jours après Pâques
Poursuite des festivités de la Pentecôte

TRINITE (P) dimanche
56 jours après Pâques (8 semaines)
Dieu le Père, unique, en trois personnes 
distinctes, égales et indivisibles, 
le Père, le Fils, l'Esprit.
In nomine patris (ine nominé patrice)
Et filii (ête fili-i)
Et spiritus sancti ( ête spititouce sancti)

FETE-DIEU (P) dimanche
63 jours après Pâques (9 semaines)
Fête des 7 sacrements saints
Baptême *, Communion, Eucharistie *, Mariage, Onction,
Conversion, Ordre. 
* Eucharistie : corpus et sanguinis Christi
* Baptême : Un baptisé peu baptiser en urgence.

SACRE-COEUR (P) vendredi
68 eme et dernier jour après Pâques
Coeur de notre Christ, amour divin.

ASSOMPTION
15 Aôut
Montée de la Vierge Marie aux cieux.

TOUSSAINT
1er Novembre : fête des saints

DEFUNTS
2 Novembre : Fêtes des trépassés
Dernière fête principale de l'année.

Au plaisir, cordialement.

 

 

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---