Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Qui sont les MVP ?

 
 

Codes pour Access

+ Base de données
+ Administrateur
+ Table
+ Requête
+ Formulaire
 -  Dates & Heures
+ Nombre
+ Math
+ Fichier
+ Commandes externes
+ Automation
+ Equivalence
 
 

Tuto Access 2007

+ Base de données
 
 

Lettre d'information

Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner

captcha
Merci de recopier le code alphanumérique ci-dessus
114 Abonnés
 
 

Dates & Heures - Calcul du jour de Pâques

Description 

Cette fonction permet de calculer le dimanche de Pâques d'une année précise.

 
Synthaxe 

Expression_Date = fPaques(wAn)

La synthaxe de la fonction fPaques comprend l'élément suivant :

ElémentsDescription

wAn

Expression numérique correspondant à l'année dont on souhaite calculer le jour de Pâques.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


 Public Function fPaques(wAn%) As Date
'Pâques est le dimanche qui suit le quatorzième jour de la
'Lune qui tombe le 21 mars ou immédiatement après

Dim wA%, wB%, wC%, wD%, wE%, wF%, wG%, wH%
Dim wI%, wJ%, wK%, wL%, wM%, wN%, wP%

wA = wAn Mod 19 'Calcul du rang de l'année dans le cycle lunaire qui a 19 ans
wB = wAn / 100 'Calcul du siècle
wC = wAn Mod 100 'Calcul du rang de l'année dans le siècle
wD = wB / 4
wE = wB Mod 4
wF = (wB + 8) / 25
wG = (wB - wF + 1) / 3
wH = (19 * wA + wB - wD - wG + 15) Mod 30
wI = wC / 4
wK = wC Mod 4
wL = (32 + 2 * wE + 2 * wI - wH - wK) Mod 7
wM = (wA + 11 * wH + 22 * wL) / 451
wN = (wH + wL - 7 * wM + 114) / 31 'détermine le mois
wP = (wH + wL - 7 * wM + 114) Mod 31 'détermine le jour
fPaques = DateSerial(wAn, wN, wP + 1)

'** A titre d'info :************'
'** dtVenSaint = fPaques - 2****'
'** dtLunPaq = fPaques + 1******'
'** dtAscension = fPaques + 39**'
'** dtDimPent = fPaques + 49****'
'** dtLunPent = fPaques + 50****'

End Function

 


Date de création : 17/10/2006 @ 14:17
Dernière modification : 28/10/2008 @ 09:11
Catégorie : Dates & Heures
Page lue 1412 fois


Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
 

Réactions à cet article


Réaction n°2 

par jujubegood le 02/02/2017 @ 08:35

Bonjour. Comment corriger cette anomalie ?


Réaction n°1 

par herve le 31/05/2011 @ 12:25

pour 2011 le résultat n'est pas bon ...


 
 

Recherche




Google

 
 

Préférences

Votre nom (ou pseudo) :

Votre mot de passe :

     


Membres 76 Membres

membres les 10 derniers :
jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   fatima   foubay   feever   
Membre en ligne : Membre en ligne :
( personne )
Anonymes en ligne : Anonymes en ligne : 2

Total visites : Total visites : 117980  
hit Affluence record: 102
le 17/06/2007 @ 07:36

Ecrire à Jessy SEMPERE Ajouter aux favoris Recommander ce site à un ami Version mobile
 
 


Design Jessy © 2007 - Compatible IE6, IE7 et Mozilla 2.0.0.1

  Site créé avec GuppY v4.5.18 © 2004-2005 - Licence Libre CeCILL

Document généré en 0.05 seconde