none
Publiez votre article sur MSDN! Edition 15.10.2010 - 15.11.2010 RRS feed

Toutes les réponses

  • 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
    mardi 26 octobre 2010 21:47
  • Peut-on trouver la date de mardi-gras sur ce principe?
    http://www.scalpa.info
    jeudi 4 novembre 2010 18:42
  • Bonsour®

    "scalpa" a écrit dans le message de groupe de discussion : 2ce9d182-feaa-4ac7-a2da-8ae04631c149@communitybridge.codeplex.com...

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

    47 jours avant Pâques


    Maude Este
    jeudi 4 novembre 2010 22:39
  • 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
    vendredi 5 novembre 2010 00:04