Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrice Henrio
Oui, on le trouve dans un numéro récent de "historia" ou "pour la science" je ne sais plus. Je vais chercher "David Dassonville" a écrit dans le message de news:
Bonjour
Existe t'il un algo pour calculer le jour de paques et le jour de
pentecote
???
Merci d'avance
Dada
Oui, on le trouve dans un numéro récent de "historia" ou "pour la science"
je ne sais plus. Je vais chercher
"David Dassonville" <DDassonville@fde-groupemplus.com> a écrit dans le
message de news:OgFajLfTEHA.2908@TK2MSFTNGP10.phx.gbl...
Bonjour
Existe t'il un algo pour calculer le jour de paques et le jour de
Oui, on le trouve dans un numéro récent de "historia" ou "pour la science" je ne sais plus. Je vais chercher "David Dassonville" a écrit dans le message de news:
Bonjour
Existe t'il un algo pour calculer le jour de paques et le jour de
pentecote
???
Merci d'avance
Dada
EddiGordo
"David Dassonville" avait écrit le 09/06/2004 :
Bonjour
Existe t'il un algo pour calculer le jour de paques et le jour de pentecote ???
Merci d'avance
Dada
Bonjour
Dans un module tu colles ça :
Public Function Paques(ByVal Année As Long) As String Dim C3 As Integer, C4 As Integer, C5 As Integer, C6 As Integer Dim C7 As Integer, C8 As Integer, C9 As Integer Dim Jou As Integer, Moi As Integer C3 = Année - 1900 C4 = C3 Mod 19 C5 = Int((C4 * 7 + 1) / 19) C6 = Int((C4 * 11 + 4 - C5) Mod 29) C7 = Int(C3 / 4) C8 = (C3 + C7 + 31 - C6) Mod 7 C9 = 25 - C6 - C8 If C9 > 0 Then Moi = 4 Else Moi = 3 End If If C9 > 0 Then Jou = C9 Else Jou = 31 + C9 End If Paques = Format(Jou, "00") & "/" & Format(Moi, "00") & "/" & Format(Année, "0000") End Function
Pour avoir le dimanche de pâques 2005 :
Dim DPaques as String Dpaques = Paques(2005)
Pour le dimanche de pentecôte, c'est 49 jours plus tard donc :
Dim DPentecote as String DPentecote = DateAdd("d",49,DPaques)
Accessoirement, le Jeudi de l'ascension, c'est 39 jours après Pâques... Dim JAscension as String JAscension = DateAdd("d",39,DPaques)
Voila, voila
-- Enjoy !
"David Dassonville" avait écrit le 09/06/2004 :
Bonjour
Existe t'il un algo pour calculer le jour de paques et le jour de pentecote
???
Merci d'avance
Dada
Bonjour
Dans un module tu colles ça :
Public Function Paques(ByVal Année As Long) As String
Dim C3 As Integer, C4 As Integer, C5 As Integer, C6 As
Integer
Dim C7 As Integer, C8 As Integer, C9 As Integer
Dim Jou As Integer, Moi As Integer
C3 = Année - 1900
C4 = C3 Mod 19
C5 = Int((C4 * 7 + 1) / 19)
C6 = Int((C4 * 11 + 4 - C5) Mod 29)
C7 = Int(C3 / 4)
C8 = (C3 + C7 + 31 - C6) Mod 7
C9 = 25 - C6 - C8
If C9 > 0 Then
Moi = 4
Else
Moi = 3
End If
If C9 > 0 Then
Jou = C9
Else
Jou = 31 + C9
End If
Paques = Format(Jou, "00") & "/" & Format(Moi, "00") & "/" &
Format(Année, "0000")
End Function
Pour avoir le dimanche de pâques 2005 :
Dim DPaques as String
Dpaques = Paques(2005)
Pour le dimanche de pentecôte, c'est 49 jours plus tard donc :
Dim DPentecote as String
DPentecote = DateAdd("d",49,DPaques)
Accessoirement, le Jeudi de l'ascension, c'est 39 jours après Pâques...
Dim JAscension as String
JAscension = DateAdd("d",39,DPaques)
Existe t'il un algo pour calculer le jour de paques et le jour de pentecote ???
Merci d'avance
Dada
Bonjour
Dans un module tu colles ça :
Public Function Paques(ByVal Année As Long) As String Dim C3 As Integer, C4 As Integer, C5 As Integer, C6 As Integer Dim C7 As Integer, C8 As Integer, C9 As Integer Dim Jou As Integer, Moi As Integer C3 = Année - 1900 C4 = C3 Mod 19 C5 = Int((C4 * 7 + 1) / 19) C6 = Int((C4 * 11 + 4 - C5) Mod 29) C7 = Int(C3 / 4) C8 = (C3 + C7 + 31 - C6) Mod 7 C9 = 25 - C6 - C8 If C9 > 0 Then Moi = 4 Else Moi = 3 End If If C9 > 0 Then Jou = C9 Else Jou = 31 + C9 End If Paques = Format(Jou, "00") & "/" & Format(Moi, "00") & "/" & Format(Année, "0000") End Function
Pour avoir le dimanche de pâques 2005 :
Dim DPaques as String Dpaques = Paques(2005)
Pour le dimanche de pentecôte, c'est 49 jours plus tard donc :
Dim DPentecote as String DPentecote = DateAdd("d",49,DPaques)
Accessoirement, le Jeudi de l'ascension, c'est 39 jours après Pâques... Dim JAscension as String JAscension = DateAdd("d",39,DPaques)
Voila, voila
-- Enjoy !
Christophe
Et sur www.Vatican.org y a pas ? Lol
Christophe
(bien utile l'algo de Eddi !)
"David Dassonville" a écrit dans le message de news:
Bonjour
Existe t'il un algo pour calculer le jour de paques et le jour de
pentecote
???
Merci d'avance
Dada
Et sur www.Vatican.org y a pas ?
Lol
Christophe
(bien utile l'algo de Eddi !)
"David Dassonville" <DDassonville@fde-groupemplus.com> a écrit dans le
message de news: OgFajLfTEHA.2908@TK2MSFTNGP10.phx.gbl...
Bonjour
Existe t'il un algo pour calculer le jour de paques et le jour de
"David Dassonville" a écrit dans le message de news:
Bonjour
Existe t'il un algo pour calculer le jour de paques et le jour de
pentecote
???
Merci d'avance
Dada
David Dassonville
Merci pour ces conseils je vais essayer !!
dada "Christophe" <geo.ch@(wormfuck)tiscali.fr> a écrit dans le message de news:ca6u67$mui$
Et sur www.Vatican.org y a pas ? Lol
Christophe
(bien utile l'algo de Eddi !)
"David Dassonville" a écrit dans le message de news: > Bonjour > > Existe t'il un algo pour calculer le jour de paques et le jour de pentecote > ??? > > Merci d'avance > > Dada > >
Merci pour ces conseils je vais essayer !!
dada
"Christophe" <geo.ch@(wormfuck)tiscali.fr> a écrit dans le message de
news:ca6u67$mui$1@news.tiscali.fr...
Et sur www.Vatican.org y a pas ?
Lol
Christophe
(bien utile l'algo de Eddi !)
"David Dassonville" <DDassonville@fde-groupemplus.com> a écrit dans le
message de news: OgFajLfTEHA.2908@TK2MSFTNGP10.phx.gbl...
> Bonjour
>
> Existe t'il un algo pour calculer le jour de paques et le jour de
pentecote
> ???
>
> Merci d'avance
>
> Dada
>
>
dada "Christophe" <geo.ch@(wormfuck)tiscali.fr> a écrit dans le message de news:ca6u67$mui$
Et sur www.Vatican.org y a pas ? Lol
Christophe
(bien utile l'algo de Eddi !)
"David Dassonville" a écrit dans le message de news: > Bonjour > > Existe t'il un algo pour calculer le jour de paques et le jour de pentecote > ??? > > Merci d'avance > > Dada > >
Jessy Sempere [MVP]
Bonjour à tous
Il y a aussi celui là : ***************************************************** 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
End Function ***************************************************** @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Christophe" <geo.ch@(wormfuck)tiscali.fr> a écrit dans le message news: ca6u67$mui$
Et sur www.Vatican.org y a pas ? Lol
Christophe
(bien utile l'algo de Eddi !)
Bonjour à tous
Il y a aussi celui là :
*****************************************************
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
End Function
*****************************************************
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Christophe" <geo.ch@(wormfuck)tiscali.fr> a écrit dans le message news:
ca6u67$mui$1@news.tiscali.fr...
Il y a aussi celui là : ***************************************************** 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
End Function ***************************************************** @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Christophe" <geo.ch@(wormfuck)tiscali.fr> a écrit dans le message news: ca6u67$mui$
