Jour Férié

Bonjour,

Ce doit être cette ligne qui cloche

If (f.Value = [Table]![Table GP A2]!DateFéries)
"Table GP A2" c'est une table c'est cela?

Tu veux faire quoi, comparer f.value à la liste des dates fériées pour voir
si c'est un jour férié ?
Auquel cas tu dois te faire un recordset sur cette table, et boucler dessus
en comparant à chaque pas f.value.
Ou alors je fais fausse route peut etre :)

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Oui, la ligne cloche If (f.Value = [Table]![Table GP A2]!DateFéries)
Oui c'est çà, si c'est un jour férié alors la visible de f.Value est vrai.

* Table CP A2 de férié suivant :
Nom du Chjamps : JourFéries DateFéries
Dû
Type de donnéé : Texte Date/Heures
(Date,abrégé) Oui/Non
Table GP A2 JourFéries DateFéries Dû
Jour de l'An 01/01/2005 Non
Pâques 28/03/2005 Oui
Fête du Travail 01/05/2005 Non
Fête de la Victoire 08/05/2005 Oui
Ascension 05/05/2005 Oui
Fête Nationale 14/07/2005 Oui
Assomption 15/08/2005 Oui
Toussaint 01/11/2005 Oui
Fête de la Victoire 11/11/2005 Oui
Noël 25/12/2005 Non


* Formulaire il y a les plusieurs colonnes de zone texte 35 a 62
Nom : 35 -> Source contrôle : [MoisAnnée] (Type de donnée :
Date/Heure)
Nom : 36 -> Source contrôle : =AjDate("j";1;([MoisAnnée]))
Nom : 37 -> Source contrôle : =AjDate("j";2;([MoisAnnée]))
....
....
Je ne sais pas que vous me comprenez que je vous explique..
Encore merci

Marco

----- Original Message -----
From: "Gafish" <---gafish@free.fr----nospam>
Newsgroups: microsoft.public.fr.access
Sent: Monday, May 30, 2005 11:01 AM
Subject: Re: Jour Férié


"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
%234kboYPZFHA.980@TK2MSFTNGP12.phx.gbl...

Bonjour,

Ce doit être cette ligne qui cloche

If (f.Value = [Table]![Table GP A2]!DateFéries)
"Table GP A2" c'est une table c'est cela?

Tu veux faire quoi, comparer f.value à la liste des dates fériées pour
voir
si c'est un jour férié ?
Auquel cas tu dois te faire un recordset sur cette table, et boucler
dessus
en comparant à chaque pas f.value.
Ou alors je fais fausse route peut etre :)

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Bonjour

Voici un bout de code qui te permet de tester si un jour est férié pour
n'importe quelle année.

Public Function IsFerie(Jour As Variant) As Boolean
'd'après Ole P Erlandsen
Dim ListeFeries(1 To 11) As Long
Dim i As Integer
Dim tDate As Long
Dim Annee As Integer
IsFerie = False
tDate = CDate(Jour)
If tDate < 1 Then Exit Function
Annee = Year(tDate)
If Annee < 1900 Then Exit Function
'remplit la liste des fériés
ListeFeries(1) = CDate("1/1/" & Annee) 'Jour de l'An
ListeFeries(2) = Easter(Annee) + 1 'Lundi de Pâques
ListeFeries(3) = ListeFeries(2) + 38 'Jeudi Ascension
ListeFeries(4) = ListeFeries(2) + 49 'Lundi Pentecôte
ListeFeries(5) = CDate("1/5/" & Annee) '1er Mai
ListeFeries(6) = CDate("8/5/" & Annee) '8 Mai
ListeFeries(7) = CDate("14/7/" & Annee) '14 Juillet
ListeFeries(8) = CDate("15/8/" & Annee) '15 Août
ListeFeries(9) = CDate("1/11/" & Annee) 'Toussaint
ListeFeries(10) = CDate("11/11/" & Annee) '14-18
ListeFeries(11) = CDate("25/12/" & Annee) 'Noël
' compare la date entrée avec la Liste des Fériés
i = 1
While i <= UBound(ListeFeries) And IsFerie = False
If tDate = ListeFeries(i) Then IsFerie = True
i = i + 1
Wend
End Function

Function Easter(Yr As Integer) As Date
' Date de Paques pour toutes les années
' Algorithm from Knuth, The Art of Computer Programming

Dim Century As Integer
Dim Sunday As Integer
Dim Epact As Integer
Dim Golden As Integer
Dim LeapDayCorrection As Integer
Dim SynchWithMoon As Integer
Dim n As Integer

' [Golden Number in Metonic cycle]
Golden = (Yr Mod 19) + 1

' [Century]: when Yr is not a multiple of 100,
' Century is the century number
Century = Yr 100 + 1

' [Corrections]
' LeapDayCorrection is the number
' of century years that aren't leap years
LeapDayCorrection = 3 * Century 4 - 12

' SynchWithMoon is a special correction to
' synchronise Easter with the moon's orbit
SynchWithMoon = (8 * Century + 5) 25 - 5

' [Find Sunday]: March((-Sunday mod 7) will be a Sunday
Sunday = 5 * Yr 4 - LeapDayCorrection - 10

' [Epact]: specifies when a full moon occurs.
' If Epact = 25 and the golden number is greater than 11, or
' Epact = 24, then increase Epact by 1
Epact = (11 * Golden + 20 + SynchWithMoon - LeapDayCorrection) Mod 30
If Epact < 0 Then Epact = Epact + 30
If (Epact = 25 And Golden > 11) Or Epact = 24 Then Epact = Epact + 1

' [Find full moon]
n = 44 - Epact
If n < 21 Then n = n + 30

' Easter is the first Sunday following the the first full moon
' which occurs on or after March 21.
' The Nth of March is a calendar full moon.

' [Advance to Sunday]
n = n + 7 - ((Sunday + n) Mod 7)

'Easter is March N or April (N - 31)
Easter = DateSerial(Yr, 3, n)

End Function


--
Gilbert


"FujitsuChaos" <fujitsuchaos@msn.com> a écrit dans le message de news:
eh4$guPZFHA.4088@TK2MSFTNGP15.phx.gbl...

Oui, la ligne cloche If (f.Value = [Table]![Table GP
A2]!DateFéries)
Oui c'est çà, si c'est un jour férié alors la visible de f.Value est vrai.

* Table CP A2 de férié suivant :
Nom du Chjamps : JourFéries DateFéries
Dû
Type de donnéé : Texte Date/Heures
(Date,abrégé) Oui/Non
Table GP A2 JourFéries DateFéries Dû
Jour de l'An 01/01/2005 Non
Pâques 28/03/2005 Oui
Fête du Travail 01/05/2005 Non
Fête de la Victoire 08/05/2005 Oui
Ascension 05/05/2005 Oui
Fête Nationale 14/07/2005 Oui
Assomption 15/08/2005 Oui
Toussaint 01/11/2005 Oui
Fête de la Victoire 11/11/2005 Oui
Noël 25/12/2005 Non


* Formulaire il y a les plusieurs colonnes de zone texte 35 a 62
Nom : 35 -> Source contrôle : [MoisAnnée] (Type de donnée :
Date/Heure)
Nom : 36 -> Source contrôle : =AjDate("j";1;([MoisAnnée]))
Nom : 37 -> Source contrôle : =AjDate("j";2;([MoisAnnée]))
....
....
Je ne sais pas que vous me comprenez que je vous explique..
Encore merci

Marco

----- Original Message -----
From: "Gafish" <---gafish@free.fr----nospam>
Newsgroups: microsoft.public.fr.access
Sent: Monday, May 30, 2005 11:01 AM
Subject: Re: Jour Férié


"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
%234kboYPZFHA.980@TK2MSFTNGP12.phx.gbl...

Bonjour,

Ce doit être cette ligne qui cloche

If (f.Value = [Table]![Table GP A2]!DateFéries)
"Table GP A2" c'est une table c'est cela?

Tu veux faire quoi, comparer f.value à la liste des dates fériées pour
voir
si c'est un jour férié ?
Auquel cas tu dois te faire un recordset sur cette table, et boucler
dessus
en comparant à chaque pas f.value.
Ou alors je fais fausse route peut etre :)

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Rebonjour

Il faut remplacer IsFerie au lieu de [Table]![Table GP A2]!DateFéries)
Ancien If (f.Value = [Table]![Table GP A2]!DateFéries)
New If (f.Value =IsFerie )
Cest cà ?
Merci


"Gilbert" <ZZZZgilbertvie@tiscali.fr> a écrit dans le message de news:
%23MLoa4PZFHA.1412@TK2MSFTNGP12.phx.gbl...

Bonjour

Voici un bout de code qui te permet de tester si un jour est férié pour
n'importe quelle année.

Public Function IsFerie(Jour As Variant) As Boolean
'd'après Ole P Erlandsen
Dim ListeFeries(1 To 11) As Long
Dim i As Integer
Dim tDate As Long
Dim Annee As Integer
IsFerie = False
tDate = CDate(Jour)
If tDate < 1 Then Exit Function
Annee = Year(tDate)
If Annee < 1900 Then Exit Function
'remplit la liste des fériés
ListeFeries(1) = CDate("1/1/" & Annee) 'Jour de l'An
ListeFeries(2) = Easter(Annee) + 1 'Lundi de Pâques
ListeFeries(3) = ListeFeries(2) + 38 'Jeudi Ascension
ListeFeries(4) = ListeFeries(2) + 49 'Lundi Pentecôte
ListeFeries(5) = CDate("1/5/" & Annee) '1er Mai
ListeFeries(6) = CDate("8/5/" & Annee) '8 Mai
ListeFeries(7) = CDate("14/7/" & Annee) '14 Juillet
ListeFeries(8) = CDate("15/8/" & Annee) '15 Août
ListeFeries(9) = CDate("1/11/" & Annee) 'Toussaint
ListeFeries(10) = CDate("11/11/" & Annee) '14-18
ListeFeries(11) = CDate("25/12/" & Annee) 'Noël
' compare la date entrée avec la Liste des Fériés
i = 1
While i <= UBound(ListeFeries) And IsFerie = False
If tDate = ListeFeries(i) Then IsFerie = True
i = i + 1
Wend
End Function

Function Easter(Yr As Integer) As Date
' Date de Paques pour toutes les années
' Algorithm from Knuth, The Art of Computer Programming

Dim Century As Integer
Dim Sunday As Integer
Dim Epact As Integer
Dim Golden As Integer
Dim LeapDayCorrection As Integer
Dim SynchWithMoon As Integer
Dim n As Integer

' [Golden Number in Metonic cycle]
Golden = (Yr Mod 19) + 1

' [Century]: when Yr is not a multiple of 100,
' Century is the century number
Century = Yr 100 + 1

' [Corrections]
' LeapDayCorrection is the number
' of century years that aren't leap years
LeapDayCorrection = 3 * Century 4 - 12

' SynchWithMoon is a special correction to
' synchronise Easter with the moon's orbit
SynchWithMoon = (8 * Century + 5) 25 - 5

' [Find Sunday]: March((-Sunday mod 7) will be a Sunday
Sunday = 5 * Yr 4 - LeapDayCorrection - 10

' [Epact]: specifies when a full moon occurs.
' If Epact = 25 and the golden number is greater than 11, or
' Epact = 24, then increase Epact by 1
Epact = (11 * Golden + 20 + SynchWithMoon - LeapDayCorrection) Mod 30
If Epact < 0 Then Epact = Epact + 30
If (Epact = 25 And Golden > 11) Or Epact = 24 Then Epact = Epact + 1

' [Find full moon]
n = 44 - Epact
If n < 21 Then n = n + 30

' Easter is the first Sunday following the the first full moon
' which occurs on or after March 21.
' The Nth of March is a calendar full moon.

' [Advance to Sunday]
n = n + 7 - ((Sunday + n) Mod 7)

'Easter is March N or April (N - 31)
Easter = DateSerial(Yr, 3, n)

End Function


--
Gilbert


"FujitsuChaos" <fujitsuchaos@msn.com> a écrit dans le message de news:
eh4$guPZFHA.4088@TK2MSFTNGP15.phx.gbl...

Oui, la ligne cloche If (f.Value = [Table]![Table GP
A2]!DateFéries)
Oui c'est çà, si c'est un jour férié alors la visible de f.Value est
vrai.

* Table CP A2 de férié suivant :
Nom du Chjamps : JourFéries DateFéries
Dû
Type de donnéé : Texte Date/Heures
(Date,abrégé) Oui/Non
Table GP A2 JourFéries DateFéries Dû
Jour de l'An 01/01/2005 Non
Pâques 28/03/2005 Oui
Fête du Travail 01/05/2005 Non
Fête de la Victoire 08/05/2005 Oui
Ascension 05/05/2005 Oui
Fête Nationale 14/07/2005 Oui
Assomption 15/08/2005 Oui
Toussaint 01/11/2005 Oui
Fête de la Victoire 11/11/2005 Oui
Noël 25/12/2005 Non


* Formulaire il y a les plusieurs colonnes de zone texte 35 a 62
Nom : 35 -> Source contrôle : [MoisAnnée] (Type de donnée
:
Date/Heure)
Nom : 36 -> Source contrôle : =AjDate("j";1;([MoisAnnée]))
Nom : 37 -> Source contrôle : =AjDate("j";2;([MoisAnnée]))
....
....
Je ne sais pas que vous me comprenez que je vous explique..
Encore merci

Marco

----- Original Message -----
From: "Gafish" <---gafish@free.fr----nospam>
Newsgroups: microsoft.public.fr.access
Sent: Monday, May 30, 2005 11:01 AM
Subject: Re: Jour Férié


"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
%234kboYPZFHA.980@TK2MSFTNGP12.phx.gbl...

Bonjour,

Ce doit être cette ligne qui cloche

If (f.Value = [Table]![Table GP A2]!DateFéries)
"Table GP A2" c'est une table c'est cela?

Tu veux faire quoi, comparer f.value à la liste des dates fériées pour
voir
si c'est un jour férié ?
Auquel cas tu dois te faire un recordset sur cette table, et boucler
dessus
en comparant à chaque pas f.value.
Ou alors je fais fausse route peut etre :)

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Pour tester ta date, utilise
If IsFerie(TaDate) then
.....
Else
.....
Endif

--
Gilbert


"FujitsuChaos" <fujitsuchaos@msn.com> a écrit dans le message de news:
uXLRLORZFHA.1412@TK2MSFTNGP12.phx.gbl...

Rebonjour

Il faut remplacer IsFerie au lieu de [Table]![Table GP A2]!DateFéries)
Ancien If (f.Value = [Table]![Table GP A2]!DateFéries)
New If (f.Value =IsFerie )
Cest cà ?
Merci


"Gilbert" <ZZZZgilbertvie@tiscali.fr> a écrit dans le message de news:
%23MLoa4PZFHA.1412@TK2MSFTNGP12.phx.gbl...

Bonjour

Voici un bout de code qui te permet de tester si un jour est férié pour
n'importe quelle année.

Public Function IsFerie(Jour As Variant) As Boolean
'd'après Ole P Erlandsen
Dim ListeFeries(1 To 11) As Long
Dim i As Integer
Dim tDate As Long
Dim Annee As Integer
IsFerie = False
tDate = CDate(Jour)
If tDate < 1 Then Exit Function
Annee = Year(tDate)
If Annee < 1900 Then Exit Function
'remplit la liste des fériés
ListeFeries(1) = CDate("1/1/" & Annee) 'Jour de l'An
ListeFeries(2) = Easter(Annee) + 1 'Lundi de Pâques
ListeFeries(3) = ListeFeries(2) + 38 'Jeudi Ascension
ListeFeries(4) = ListeFeries(2) + 49 'Lundi Pentecôte
ListeFeries(5) = CDate("1/5/" & Annee) '1er Mai
ListeFeries(6) = CDate("8/5/" & Annee) '8 Mai
ListeFeries(7) = CDate("14/7/" & Annee) '14 Juillet
ListeFeries(8) = CDate("15/8/" & Annee) '15 Août
ListeFeries(9) = CDate("1/11/" & Annee) 'Toussaint
ListeFeries(10) = CDate("11/11/" & Annee) '14-18
ListeFeries(11) = CDate("25/12/" & Annee) 'Noël
' compare la date entrée avec la Liste des Fériés
i = 1
While i <= UBound(ListeFeries) And IsFerie = False
If tDate = ListeFeries(i) Then IsFerie = True
i = i + 1
Wend
End Function

Function Easter(Yr As Integer) As Date
' Date de Paques pour toutes les années
' Algorithm from Knuth, The Art of Computer Programming

Dim Century As Integer
Dim Sunday As Integer
Dim Epact As Integer
Dim Golden As Integer
Dim LeapDayCorrection As Integer
Dim SynchWithMoon As Integer
Dim n As Integer

' [Golden Number in Metonic cycle]
Golden = (Yr Mod 19) + 1

' [Century]: when Yr is not a multiple of 100,
' Century is the century number
Century = Yr 100 + 1

' [Corrections]
' LeapDayCorrection is the number
' of century years that aren't leap years
LeapDayCorrection = 3 * Century 4 - 12

' SynchWithMoon is a special correction to
' synchronise Easter with the moon's orbit
SynchWithMoon = (8 * Century + 5) 25 - 5

' [Find Sunday]: March((-Sunday mod 7) will be a Sunday
Sunday = 5 * Yr 4 - LeapDayCorrection - 10

' [Epact]: specifies when a full moon occurs.
' If Epact = 25 and the golden number is greater than 11, or
' Epact = 24, then increase Epact by 1
Epact = (11 * Golden + 20 + SynchWithMoon - LeapDayCorrection) Mod 30
If Epact < 0 Then Epact = Epact + 30
If (Epact = 25 And Golden > 11) Or Epact = 24 Then Epact = Epact + 1

' [Find full moon]
n = 44 - Epact
If n < 21 Then n = n + 30

' Easter is the first Sunday following the the first full moon
' which occurs on or after March 21.
' The Nth of March is a calendar full moon.

' [Advance to Sunday]
n = n + 7 - ((Sunday + n) Mod 7)

'Easter is March N or April (N - 31)
Easter = DateSerial(Yr, 3, n)

End Function


--
Gilbert


"FujitsuChaos" <fujitsuchaos@msn.com> a écrit dans le message de news:
eh4$guPZFHA.4088@TK2MSFTNGP15.phx.gbl...

Oui, la ligne cloche If (f.Value = [Table]![Table GP
A2]!DateFéries)
Oui c'est çà, si c'est un jour férié alors la visible de f.Value est
vrai.

* Table CP A2 de férié suivant :
Nom du Chjamps : JourFéries DateFéries
Dû
Type de donnéé : Texte Date/Heures
(Date,abrégé) Oui/Non
Table GP A2 JourFéries DateFéries Dû
Jour de l'An 01/01/2005 Non
Pâques 28/03/2005 Oui
Fête du Travail 01/05/2005 Non
Fête de la Victoire 08/05/2005 Oui
Ascension 05/05/2005 Oui
Fête Nationale 14/07/2005 Oui
Assomption 15/08/2005 Oui
Toussaint 01/11/2005 Oui
Fête de la Victoire 11/11/2005 Oui
Noël 25/12/2005 Non


* Formulaire il y a les plusieurs colonnes de zone texte 35 a 62
Nom : 35 -> Source contrôle : [MoisAnnée] (Type de donnée
:
Date/Heure)
Nom : 36 -> Source contrôle : =AjDate("j";1;([MoisAnnée]))
Nom : 37 -> Source contrôle : =AjDate("j";2;([MoisAnnée]))
....
....
Je ne sais pas que vous me comprenez que je vous explique..
Encore merci

Marco

----- Original Message -----
From: "Gafish" <---gafish@free.fr----nospam>
Newsgroups: microsoft.public.fr.access
Sent: Monday, May 30, 2005 11:01 AM
Subject: Re: Jour Férié


"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
%234kboYPZFHA.980@TK2MSFTNGP12.phx.gbl...

Bonjour,

Ce doit être cette ligne qui cloche

If (f.Value = [Table]![Table GP A2]!DateFéries)
"Table GP A2" c'est une table c'est cela?

Tu veux faire quoi, comparer f.value à la liste des dates fériées pour
voir
si c'est un jour férié ?
Auquel cas tu dois te faire un recordset sur cette table, et boucler
dessus
en comparant à chaque pas f.value.
Ou alors je fais fausse route peut etre :)

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Mouaip !

Et puis, pour l'Alsace et la Moselle, ajouter :
ListeFeries(12) = Easter(Annee) -2 'Vendredi saint
ListeFeries(13) = CDate("26/12/" & Annee) 'Saint Etienne

Et pour Lille, ne pas oublier la braderie.
Et pour .....

Ne soyons pas sectaires :-))

PG

"François Fuchs" <franE7ois@alussinan.org> a écrit dans le message de news:
Xns96669620DAE35TotoLeHaricot@217.24.82.4...

lun. 30 mai 2005 11:53:13 Gilbert a écrit dans le message de news
<news:#MLoa4PZFHA.1412@TK2MSFTNGP12.phx.gbl> :

ListeFeries(4) = ListeFeries(2) + 49 'Lundi Pentecôte

Y a un bug :))

parfait, ouf,
Merci
A bientôt


"Gilbert" <ZZZZgilbertvie@tiscali.fr> a écrit dans le message de news:
u%23f6lZRZFHA.3572@TK2MSFTNGP12.phx.gbl...

Pour tester ta date, utilise
If IsFerie(TaDate) then
.....
Else
.....
Endif

--
Gilbert


"FujitsuChaos" <fujitsuchaos@msn.com> a écrit dans le message de news:
uXLRLORZFHA.1412@TK2MSFTNGP12.phx.gbl...

Rebonjour

Il faut remplacer IsFerie au lieu de [Table]![Table GP A2]!DateFéries)
Ancien If (f.Value = [Table]![Table GP A2]!DateFéries)
New If (f.Value =IsFerie )
Cest cà ?
Merci


"Gilbert" <ZZZZgilbertvie@tiscali.fr> a écrit dans le message de news:
%23MLoa4PZFHA.1412@TK2MSFTNGP12.phx.gbl...

Bonjour

Voici un bout de code qui te permet de tester si un jour est férié pour
n'importe quelle année.

Public Function IsFerie(Jour As Variant) As Boolean
'd'après Ole P Erlandsen
Dim ListeFeries(1 To 11) As Long
Dim i As Integer
Dim tDate As Long
Dim Annee As Integer
IsFerie = False
tDate = CDate(Jour)
If tDate < 1 Then Exit Function
Annee = Year(tDate)
If Annee < 1900 Then Exit Function
'remplit la liste des fériés
ListeFeries(1) = CDate("1/1/" & Annee) 'Jour de l'An
ListeFeries(2) = Easter(Annee) + 1 'Lundi de Pâques
ListeFeries(3) = ListeFeries(2) + 38 'Jeudi Ascension
ListeFeries(4) = ListeFeries(2) + 49 'Lundi Pentecôte
ListeFeries(5) = CDate("1/5/" & Annee) '1er Mai
ListeFeries(6) = CDate("8/5/" & Annee) '8 Mai
ListeFeries(7) = CDate("14/7/" & Annee) '14 Juillet
ListeFeries(8) = CDate("15/8/" & Annee) '15 Août
ListeFeries(9) = CDate("1/11/" & Annee) 'Toussaint
ListeFeries(10) = CDate("11/11/" & Annee) '14-18
ListeFeries(11) = CDate("25/12/" & Annee) 'Noël
' compare la date entrée avec la Liste des Fériés
i = 1
While i <= UBound(ListeFeries) And IsFerie = False
If tDate = ListeFeries(i) Then IsFerie = True
i = i + 1
Wend
End Function

Function Easter(Yr As Integer) As Date
' Date de Paques pour toutes les années
' Algorithm from Knuth, The Art of Computer Programming

Dim Century As Integer
Dim Sunday As Integer
Dim Epact As Integer
Dim Golden As Integer
Dim LeapDayCorrection As Integer
Dim SynchWithMoon As Integer
Dim n As Integer

' [Golden Number in Metonic cycle]
Golden = (Yr Mod 19) + 1

' [Century]: when Yr is not a multiple of 100,
' Century is the century number
Century = Yr 100 + 1

' [Corrections]
' LeapDayCorrection is the number
' of century years that aren't leap years
LeapDayCorrection = 3 * Century 4 - 12

' SynchWithMoon is a special correction to
' synchronise Easter with the moon's orbit
SynchWithMoon = (8 * Century + 5) 25 - 5

' [Find Sunday]: March((-Sunday mod 7) will be a Sunday
Sunday = 5 * Yr 4 - LeapDayCorrection - 10

' [Epact]: specifies when a full moon occurs.
' If Epact = 25 and the golden number is greater than 11, or
' Epact = 24, then increase Epact by 1
Epact = (11 * Golden + 20 + SynchWithMoon - LeapDayCorrection) Mod 30
If Epact < 0 Then Epact = Epact + 30
If (Epact = 25 And Golden > 11) Or Epact = 24 Then Epact = Epact + 1

' [Find full moon]
n = 44 - Epact
If n < 21 Then n = n + 30

' Easter is the first Sunday following the the first full moon
' which occurs on or after March 21.
' The Nth of March is a calendar full moon.

' [Advance to Sunday]
n = n + 7 - ((Sunday + n) Mod 7)

'Easter is March N or April (N - 31)
Easter = DateSerial(Yr, 3, n)

End Function


--
Gilbert


"FujitsuChaos" <fujitsuchaos@msn.com> a écrit dans le message de news:
eh4$guPZFHA.4088@TK2MSFTNGP15.phx.gbl...

Oui, la ligne cloche If (f.Value = [Table]![Table GP
A2]!DateFéries)
Oui c'est çà, si c'est un jour férié alors la visible de f.Value est
vrai.

* Table CP A2 de férié suivant :
Nom du Chjamps : JourFéries DateFéries
Dû
Type de donnéé : Texte Date/Heures
(Date,abrégé) Oui/Non
Table GP A2 JourFéries DateFéries Dû
Jour de l'An 01/01/2005 Non
Pâques 28/03/2005 Oui
Fête du Travail 01/05/2005 Non
Fête de la Victoire 08/05/2005 Oui
Ascension 05/05/2005 Oui
Fête Nationale 14/07/2005 Oui
Assomption 15/08/2005 Oui
Toussaint 01/11/2005 Oui
Fête de la Victoire 11/11/2005 Oui
Noël 25/12/2005 Non


* Formulaire il y a les plusieurs colonnes de zone texte 35 a 62
Nom : 35 -> Source contrôle : [MoisAnnée] (Type de
donnée :
Date/Heure)
Nom : 36 -> Source contrôle : =AjDate("j";1;([MoisAnnée]))
Nom : 37 -> Source contrôle : =AjDate("j";2;([MoisAnnée]))
....
....
Je ne sais pas que vous me comprenez que je vous explique..
Encore merci

Marco

----- Original Message -----
From: "Gafish" <---gafish@free.fr----nospam>
Newsgroups: microsoft.public.fr.access
Sent: Monday, May 30, 2005 11:01 AM
Subject: Re: Jour Férié


"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
%234kboYPZFHA.980@TK2MSFTNGP12.phx.gbl...

Bonjour,

Ce doit être cette ligne qui cloche

If (f.Value = [Table]![Table GP A2]!DateFéries)
"Table GP A2" c'est une table c'est cela?

Tu veux faire quoi, comparer f.value à la liste des dates fériées pour
voir
si c'est un jour férié ?
Auquel cas tu dois te faire un recordset sur cette table, et boucler
dessus
en comparant à chaque pas f.value.
Ou alors je fais fausse route peut etre :)

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr