quelqu'un a t-il une astuce pour le calcul des jours fériés?
quelqu'un a t-il une astuce pour le calcul des jours fériés?
quelqu'un a t-il une astuce pour le calcul des jours fériés?
quelqu'un a t-il une astuce pour le calcul des jours fériés?
quelqu'un a t-il une astuce pour le calcul des jours fériés?
quelqu'un a t-il une astuce pour le calcul des jours fériés?
Si tu parles des fêtes mobiles, pas d'astuces mais un calcul basé sur
la lune pascale...
Bonjour LePetit+,quelqu'un a t-il une astuce pour le calcul des jours fériés?
Si tu parles des fêtes mobiles, pas d'astuces, mais un calcul basé sur
la lune pascale, qui n'est pas liée au cycle lunaire réel :
dans un UserForm :
Option Explicit
Private Sub cmdPaques_Click()
Dim y As Integer ' Annee
Dim golden As Integer ' Nombre d'or
Dim solar As Integer ' Correction solaire
Dim lunar As Integer ' Correction lunaire
Dim pfm As Integer ' Pleine lune de paques
Dim dom As Integer ' Nombre dominical
Dim easter As Integer ' jour de paques
Dim dtEaster As Date
Dim tmp As Integer
Dim Temp As String
y = Val(Me.txtYear.Text)
' Nombre d'or
golden = (y Mod 19) + 1
If y <= 1752 Then ' Calendrier Julien
' Nombre dominical
dom = (y + (y 4) + 5) Mod 7
If dom < 0 Then dom = dom + 7
' Date non corrigee de la pleine lune de paques
pfm = (3 - (11 * golden) - 7) Mod 30
If pfm < 0 Then pfm = pfm + 30
Else ' Calendrier Gregorien
' Nombre dominical
dom = (y + (y 4) - (y 100) + (y 400)) Mod 7
If dom < 0 Then dom = dom + 7
' Correction solaire et lunaire
solar = (y - 1600) 100 - (y - 1600) 400
lunar = (((y - 1400) 100) * 8) 25
' Date non corrigee de la pleine lune de paques
pfm = (3 - (11 * golden) + solar - lunar) Mod 30
If pfm < 0 Then pfm = pfm + 30
End If
' Date corrige de la pleine lune de paques :
' jours apres le 21 mars (equinoxe de printemps)
If (pfm = 29) Or (pfm = 28 And golden > 11) Then
pfm = pfm - 1
End If
tmp = (4 - pfm - dom) Mod 7
If tmp < 0 Then tmp = tmp + 7
' Paques en nombre de jour apres le 21 mars
easter = pfm + tmp + 1
If easter < 11 Then
dtEaster = (easter + 21) & "/3/" & y
Temp = "Paques : " & Format(dtEaster, "dddd d MMMM yyyy")
Else
dtEaster = (easter - 10) & "/4/" & y
Temp = "Paques : " & Format(dtEaster, "dddd d MMMM yyyy")
End If
Temp = Temp & vbCrLf & "Ascension : " & Format(DateAdd("d", 39,
dtEaster), "dddd d MMMM yyyy")
Temp = Temp & vbCrLf & "Pentecôte : " & Format(DateAdd("d", 49,
dtEaster), "dddd d MMMM yyyy")
MsgBox Temp
End Sub
Private Sub UserForm_Initialize()
Me.txtYear.Text = Year(Now)
End Sub
Classeur su cjoint :
<http://cjoint.com/?mEriKdnZiM>
Il y a des méthodes plus courtes ...
Si tu parles des fêtes mobiles, pas d'astuces mais un calcul basé sur
la lune pascale...
Bonjour LePetit+,
quelqu'un a t-il une astuce pour le calcul des jours fériés?
Si tu parles des fêtes mobiles, pas d'astuces, mais un calcul basé sur
la lune pascale, qui n'est pas liée au cycle lunaire réel :
dans un UserForm :
Option Explicit
Private Sub cmdPaques_Click()
Dim y As Integer ' Annee
Dim golden As Integer ' Nombre d'or
Dim solar As Integer ' Correction solaire
Dim lunar As Integer ' Correction lunaire
Dim pfm As Integer ' Pleine lune de paques
Dim dom As Integer ' Nombre dominical
Dim easter As Integer ' jour de paques
Dim dtEaster As Date
Dim tmp As Integer
Dim Temp As String
y = Val(Me.txtYear.Text)
' Nombre d'or
golden = (y Mod 19) + 1
If y <= 1752 Then ' Calendrier Julien
' Nombre dominical
dom = (y + (y 4) + 5) Mod 7
If dom < 0 Then dom = dom + 7
' Date non corrigee de la pleine lune de paques
pfm = (3 - (11 * golden) - 7) Mod 30
If pfm < 0 Then pfm = pfm + 30
Else ' Calendrier Gregorien
' Nombre dominical
dom = (y + (y 4) - (y 100) + (y 400)) Mod 7
If dom < 0 Then dom = dom + 7
' Correction solaire et lunaire
solar = (y - 1600) 100 - (y - 1600) 400
lunar = (((y - 1400) 100) * 8) 25
' Date non corrigee de la pleine lune de paques
pfm = (3 - (11 * golden) + solar - lunar) Mod 30
If pfm < 0 Then pfm = pfm + 30
End If
' Date corrige de la pleine lune de paques :
' jours apres le 21 mars (equinoxe de printemps)
If (pfm = 29) Or (pfm = 28 And golden > 11) Then
pfm = pfm - 1
End If
tmp = (4 - pfm - dom) Mod 7
If tmp < 0 Then tmp = tmp + 7
' Paques en nombre de jour apres le 21 mars
easter = pfm + tmp + 1
If easter < 11 Then
dtEaster = (easter + 21) & "/3/" & y
Temp = "Paques : " & Format(dtEaster, "dddd d MMMM yyyy")
Else
dtEaster = (easter - 10) & "/4/" & y
Temp = "Paques : " & Format(dtEaster, "dddd d MMMM yyyy")
End If
Temp = Temp & vbCrLf & "Ascension : " & Format(DateAdd("d", 39,
dtEaster), "dddd d MMMM yyyy")
Temp = Temp & vbCrLf & "Pentecôte : " & Format(DateAdd("d", 49,
dtEaster), "dddd d MMMM yyyy")
MsgBox Temp
End Sub
Private Sub UserForm_Initialize()
Me.txtYear.Text = Year(Now)
End Sub
Classeur su cjoint :
<http://cjoint.com/?mEriKdnZiM>
Il y a des méthodes plus courtes ...
Si tu parles des fêtes mobiles, pas d'astuces mais un calcul basé sur
la lune pascale...
Bonjour LePetit+,quelqu'un a t-il une astuce pour le calcul des jours fériés?
Si tu parles des fêtes mobiles, pas d'astuces, mais un calcul basé sur
la lune pascale, qui n'est pas liée au cycle lunaire réel :
dans un UserForm :
Option Explicit
Private Sub cmdPaques_Click()
Dim y As Integer ' Annee
Dim golden As Integer ' Nombre d'or
Dim solar As Integer ' Correction solaire
Dim lunar As Integer ' Correction lunaire
Dim pfm As Integer ' Pleine lune de paques
Dim dom As Integer ' Nombre dominical
Dim easter As Integer ' jour de paques
Dim dtEaster As Date
Dim tmp As Integer
Dim Temp As String
y = Val(Me.txtYear.Text)
' Nombre d'or
golden = (y Mod 19) + 1
If y <= 1752 Then ' Calendrier Julien
' Nombre dominical
dom = (y + (y 4) + 5) Mod 7
If dom < 0 Then dom = dom + 7
' Date non corrigee de la pleine lune de paques
pfm = (3 - (11 * golden) - 7) Mod 30
If pfm < 0 Then pfm = pfm + 30
Else ' Calendrier Gregorien
' Nombre dominical
dom = (y + (y 4) - (y 100) + (y 400)) Mod 7
If dom < 0 Then dom = dom + 7
' Correction solaire et lunaire
solar = (y - 1600) 100 - (y - 1600) 400
lunar = (((y - 1400) 100) * 8) 25
' Date non corrigee de la pleine lune de paques
pfm = (3 - (11 * golden) + solar - lunar) Mod 30
If pfm < 0 Then pfm = pfm + 30
End If
' Date corrige de la pleine lune de paques :
' jours apres le 21 mars (equinoxe de printemps)
If (pfm = 29) Or (pfm = 28 And golden > 11) Then
pfm = pfm - 1
End If
tmp = (4 - pfm - dom) Mod 7
If tmp < 0 Then tmp = tmp + 7
' Paques en nombre de jour apres le 21 mars
easter = pfm + tmp + 1
If easter < 11 Then
dtEaster = (easter + 21) & "/3/" & y
Temp = "Paques : " & Format(dtEaster, "dddd d MMMM yyyy")
Else
dtEaster = (easter - 10) & "/4/" & y
Temp = "Paques : " & Format(dtEaster, "dddd d MMMM yyyy")
End If
Temp = Temp & vbCrLf & "Ascension : " & Format(DateAdd("d", 39,
dtEaster), "dddd d MMMM yyyy")
Temp = Temp & vbCrLf & "Pentecôte : " & Format(DateAdd("d", 49,
dtEaster), "dddd d MMMM yyyy")
MsgBox Temp
End Sub
Private Sub UserForm_Initialize()
Me.txtYear.Text = Year(Now)
End Sub
Classeur su cjoint :
<http://cjoint.com/?mEriKdnZiM>
Il y a des méthodes plus courtes ...
Bonsoir,Si tu parles des fêtes mobiles, pas d'astuces mais un calcul basé sur
la lune pascale...
oui c'est cela, tout à partir de pâques...et plus simplement tous les
jours qui t'intéressent avec les seules formules d'excel voir l'exemple
de GD sur http://excelabo.net
ici précisément:
http://www.excelabo.net/excel/classeurstemps.php
Les jours fériés et fêtes chrétiennes en France (sans macros) +
résultats du concours international "formule pour trouver la date de
pâques"
gd-feries (téléchargé 6597 fois)
GeeDee, (N°221)
Bonsoir,
Si tu parles des fêtes mobiles, pas d'astuces mais un calcul basé sur
la lune pascale...
oui c'est cela, tout à partir de pâques...et plus simplement tous les
jours qui t'intéressent avec les seules formules d'excel voir l'exemple
de GD sur http://excelabo.net
ici précisément:
http://www.excelabo.net/excel/classeurstemps.php
Les jours fériés et fêtes chrétiennes en France (sans macros) +
résultats du concours international "formule pour trouver la date de
pâques"
gd-feries (téléchargé 6597 fois)
GeeDee, (N°221)
Bonsoir,Si tu parles des fêtes mobiles, pas d'astuces mais un calcul basé sur
la lune pascale...
oui c'est cela, tout à partir de pâques...et plus simplement tous les
jours qui t'intéressent avec les seules formules d'excel voir l'exemple
de GD sur http://excelabo.net
ici précisément:
http://www.excelabo.net/excel/classeurstemps.php
Les jours fériés et fêtes chrétiennes en France (sans macros) +
résultats du concours international "formule pour trouver la date de
pâques"
gd-feries (téléchargé 6597 fois)
GeeDee, (N°221)
l'utilisation de VBA ne permet elle pas de s'affranchir des limites de
date d'excel ?
Bonjour LSteph,Bonsoir,Si tu parles des fêtes mobiles, pas d'astuces mais un calcul basé sur
la lune pascale...
oui c'est cela, tout à partir de pâques...et plus simplement tous les
jours qui t'intéressent avec les seules formules d'excel voir
l'exemple de GD sur http://excelabo.net
ici précisément:
http://www.excelabo.net/excel/classeurstemps.php
Les jours fériés et fêtes chrétiennes en France (sans macros) +
résultats du concours international "formule pour trouver la date de
pâques"
gd-feries (téléchargé 6597 fois)
GeeDee, (N°221)
Il existe pas mal d'algorithmes pour ce calcul, dépendant du type de
calendrier, de la date.
<http://users.chariot.net.au/~gmarts/eastalg.htm>
Celui que j'ai indiqué s'approche une peu de celui de EasterKershaw. Et
l'utilisation de VBA ne permet elle pas de s'affranchir des limites de
date d'excel ?
l'utilisation de VBA ne permet elle pas de s'affranchir des limites de
date d'excel ?
Bonjour LSteph,
Bonsoir,
Si tu parles des fêtes mobiles, pas d'astuces mais un calcul basé sur
la lune pascale...
oui c'est cela, tout à partir de pâques...et plus simplement tous les
jours qui t'intéressent avec les seules formules d'excel voir
l'exemple de GD sur http://excelabo.net
ici précisément:
http://www.excelabo.net/excel/classeurstemps.php
Les jours fériés et fêtes chrétiennes en France (sans macros) +
résultats du concours international "formule pour trouver la date de
pâques"
gd-feries (téléchargé 6597 fois)
GeeDee, (N°221)
Il existe pas mal d'algorithmes pour ce calcul, dépendant du type de
calendrier, de la date.
<http://users.chariot.net.au/~gmarts/eastalg.htm>
Celui que j'ai indiqué s'approche une peu de celui de EasterKershaw. Et
l'utilisation de VBA ne permet elle pas de s'affranchir des limites de
date d'excel ?
l'utilisation de VBA ne permet elle pas de s'affranchir des limites de
date d'excel ?
Bonjour LSteph,Bonsoir,Si tu parles des fêtes mobiles, pas d'astuces mais un calcul basé sur
la lune pascale...
oui c'est cela, tout à partir de pâques...et plus simplement tous les
jours qui t'intéressent avec les seules formules d'excel voir
l'exemple de GD sur http://excelabo.net
ici précisément:
http://www.excelabo.net/excel/classeurstemps.php
Les jours fériés et fêtes chrétiennes en France (sans macros) +
résultats du concours international "formule pour trouver la date de
pâques"
gd-feries (téléchargé 6597 fois)
GeeDee, (N°221)
Il existe pas mal d'algorithmes pour ce calcul, dépendant du type de
calendrier, de la date.
<http://users.chariot.net.au/~gmarts/eastalg.htm>
Celui que j'ai indiqué s'approche une peu de celui de EasterKershaw. Et
l'utilisation de VBA ne permet elle pas de s'affranchir des limites de
date d'excel ?
quelqu'un a t-il une astuce pour le calcul des jours fériés?
quelqu'un a t-il une astuce pour le calcul des jours fériés?
quelqu'un a t-il une astuce pour le calcul des jours fériés?