UN CALENDRIER PERPETUEL

Signaler
Messages postés
155
Date d'inscription
vendredi 2 novembre 2001
Statut
Membre
Dernière intervention
19 mai 2011
-
Messages postés
78
Date d'inscription
dimanche 24 novembre 2002
Statut
Membre
Dernière intervention
24 novembre 2004
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8884-un-calendrier-perpetuel

Messages postés
78
Date d'inscription
dimanche 24 novembre 2002
Statut
Membre
Dernière intervention
24 novembre 2004
1
Hello sympa le calendrier!!
bravo!

mais juste en passant je sais pas chez toi mais chez moi en Suisse Pentecote et la semain après l'ascension et de loin pas 40 jours avant voilà

a bientot
Messages postés
37
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
28 juin 2007

La formule que tu me donne permet effectivement de calculer le Dimanche de pâques, mais pour un calendrier JULIEN. Nous sommes dans un calendrier Grégorien depuis les années 158.. je sais plus trop ...
Le mode de calcul et un peu differents mais je l'ai !
Donc je fais la mise a jour et l'inclus dans le calendrier...
La Pentecote et Normalement 40 jours avant Paques, et l'ascension 40 jours apres .....
je me mets au boulot !
Messages postés
155
Date d'inscription
vendredi 2 novembre 2001
Statut
Membre
Dernière intervention
19 mai 2011

Voici une fonction en Visual Basic pour trouver le jour de l'ascension. Adapte la et ton calendrier perpétuel affichera ainsi un jour férié de plus. (j'ai pas la pentecote mais tu la trouveras facilement en sachant combien de jour apres paques elle se trouve)

Public Function ascencion(Annee As Integer) As Date
On Error GoTo traite_erreur
'** **********************************
'** Algo de Calcul du jour de paques
'** pour l'annee Annee
'** **********************************
Var1 = (19 * (Annee Mod 19) + 24) Mod 30
Var2 = Var1 28
Var3 = Var1 - Var2
Var4 = (Annee + Annee 4 + Var3 - 13) Mod 7
mois = 3 + Var4 44
jour = Var3 - Var4 + 28 - 31 * (mois 4)

'** Calcul du Dimanche de paques
jourpaques = DateSerial(Annee, mois, jour)
'ascencion c'est 40 jour apres paques
jour = 40 - NbJourDansMois(mois, Annee)
ascencion = DateSerial(Annee, mois + 2, jour)
Exit Function
traite_erreur:

outils.erreur Err.Number, Err.Description, Me.Name, "ascencion"
End Function

A+
Seb