On y lit que la lune utilisée pour caluler pâques est plus ou moins fictive ;-)
Il me semble en effet que trouver les jours de pleine lune par un simple calcul ne peut être qu'une aproximation !
Qu'en pensez-vous ?
Mara's dad
Kekman a écrit a écrit :
Trop fort ton algorithme lol j'en avais jamais vu un aussi bizarre que celui là mais bon il doit bien marcher :lol:
La définition du jour de pâques est :
1er dimanche après la pleine lune qui suit l'équinoxe de printemps, soit entre le 22 mars et le 25 avril.
C'est sans aucun doute l'origine du calcul bizarre !
Perso, je sais pas comment on fait pour trouver les jours de pleine lune, mais je vais chercher !
Si tu trouve le moyen de simplifier, ne te prive pas !
Fred999
Je confirme, on dispose aussi d'une magnifique table faisant office de calendrier.
JPA
Pour répondre à trictrac :
Pour les logiciels pro, une table des jours fériés est saisie chaque année (à la main). Je ne pense pas qu'il y a de solution miracle.
Pour le calcul du jour de Pâques :
La date a été fixée au concile de Nicée (en 525 je crois) et la formule mathématique a été trouvée pa Pascal beaucoup plus tard.
A+
darkoli
Kekman a écrit a écrit :
Trop fort ton algorithme lol j'en avais jamais vu un aussi bizarre que celui là mais bon il doit bien marcher :lol:
oui c'est clair, en basic c'est pas beau a voir :hap:
Kekman
exapaq a écrit a écrit :
Bonjour,
Voici une fonction qui retourne le jour de pâques d'une année.
Trop fort ton algorithme lol j'en avais jamais vu un aussi bizarre que celui là mais bon il doit bien marcher :lol:
Kekman
De toute façon, tu n'auras pas le choix mon ptit TricTrac j'ai déjà essayé en faisant un algorithme bidon mais ça ne marche pas du tout :(
Exapaq
Bonjour,
Voici une fonction qui retourne le jour de pâques d'une année.
Les jours fériés non-fixes sont calculés à partir du jour de pâques.
Paques = fPaques(An%) 'Cherche le jour de Pâques
LunPaq = Paques + 1 'En déduit
Ascension = Paques + 39 'les autres
LunPent = Paques + 50 'jours fériés
Public Function fPaques(An%) As Date
'Calcule le jour de Pâques en fonction
'de l'année
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim n As Integer
Dim p As Integer
Moi aussi j'utilise un table pour les jours fériés
trictrac
j'y avait pense, ra jouter, en lpus du cas jour =6 and jour =7, nu cas particulier verifiant que chaque jour n'est pas dans la table des jours feries officiels... mais comment font les log comptables pour etre juste, sachant que ces jours peuvent changer.. come par ex le 6 avr au lux a cause du couronnement du grand duc, ou bien les ponts, qui changent tout a la donne..
JPA
Désolé de décevoir tous vos espoirs, mais les logiciels comptables que je connais (dans l'administration) utilisent une table pour gérer les jours fériés (en plus des samedis et des dimanches).
trictrac
voila ce que ca donne sans les jour feries... mais c'est pas le top pour une appli pro
Code :
nb = 0
On Error GoTo HandleError
For i = 1 To 32
If Weekday(i & "/" & mois & "/" & annee, vbMonday) <> 6 And Weekday(i & "/" & mois & "/" & annee, vbMonday) <> 7 Then
nb = nb + 1
End If
Next
HandleError:
jour_ouvrable = nb
[edit]--Message édité par trictrac--[/edit]
Drums
Ca m'interesse aussi et je serais intéressé par un module prenant en compte les jours fériés musulmans et juifs egalement.
trictrac
J continue de cherche, mais si qqun connait, ce serait top...
Et si possible tenant compte des jours de conges, parce que sinon, j'ai autant faire la mienne..
