J'ai une fonction qui se nomme TableauJoursF=E9ri=E9s et qui=20
me permet automatiquement de sortir le nom ainsi que la=20
date des jours f=E9ri=E9s au format fran=E7ais d'une ann=E9e=20
entr=E9e en param=E8tre.=20
J'essaye de faire une fonction qui va prendre la date=20
d'aujourd'hui, mais en ne prenant compte que l'ann=E9e en=20
court. Puis elle va soustraire 5 ans avant et 5 ans=20
apr=E8s. Si je prends cette ann=E9e, 2003, j'aurais les=20
jours f=E9ri=E9s qui vont de 1998 =E0 2008.
Ma fonction qui va construire cette table est de cette=20
forme
Function TableauJoursF=E9ri=E9s(wAn%)
wan% et l'ann=E9e =E0 ins=E9rer et qui va sortir les jours=20
f=E9ri=E9s de ladite ann=E9e ins=E9r=E9e en entr=E9e.
Comment cr=E9er une fonction qui va faire appel =E0 cette=20
fonction TableauJoursF=E9ri=E9s(wAn%) et qui va faire une=20
boucle sur Format(Now(),"yyyy") - 5 / +5 ans. L'objectif=20
et que d=E8s que je d=E9clenche cette fonction, elle efface=20
les enregistrements dans ma table JoursF=E9ri=E9s puis=20
r=E9cup=E8re l'ann=E9e du jour et va lancer la fonction=20
TableauJoursF=E9ri=E9s en mettant en argument les ann=E9es -5/=20
+ 5ans.
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
3stone
Salut,
"kiwiboys" a écrit: J'ai une fonction qui se nomme TableauJoursFériés et qui me permet automatiquement de sortir le nom ainsi que la date des jours fériés au format français d'une année entrée en paramètre.
J'essaye de faire une fonction qui va prendre la date d'aujourd'hui, mais en ne prenant compte que l'année en court. Puis elle va soustraire 5 ans avant et 5 ans après. Si je prends cette année, 2003, j'aurais les jours fériés qui vont de 1998 à 2008.
Ma fonction qui va construire cette table est de cette forme
Function TableauJoursFériés(wAn%)
wan% et l'année à insérer et qui va sortir les jours fériés de ladite année insérée en entrée.
Comment créer une fonction qui va faire appel à cette fonction TableauJoursFériés(wAn%) et qui va faire une boucle sur Format(Now(),"yyyy") - 5 / +5 ans. L'objectif et que dès que je déclenche cette fonction, elle efface les enregistrements dans ma table JoursFériés puis récupère l'année du jour et va lancer la fonction TableauJoursFériés en mettant en argument les années -5/ + 5ans. --------------------------------------------------
Peut-être quelque chose comme ceci...
Dim StartDate As Date Dim EndDate As Date Dim Dt As Date
For Dt = StartDate To EndDate Debug.Print Dt '// ici tu dispose de chaque date... Next Dt
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
Salut,
"kiwiboys" <kiwiboys@hotmail.fr> a écrit:
J'ai une fonction qui se nomme TableauJoursFériés et qui
me permet automatiquement de sortir le nom ainsi que la
date des jours fériés au format français d'une année
entrée en paramètre.
J'essaye de faire une fonction qui va prendre la date
d'aujourd'hui, mais en ne prenant compte que l'année en
court. Puis elle va soustraire 5 ans avant et 5 ans
après. Si je prends cette année, 2003, j'aurais les
jours fériés qui vont de 1998 à 2008.
Ma fonction qui va construire cette table est de cette
forme
Function TableauJoursFériés(wAn%)
wan% et l'année à insérer et qui va sortir les jours
fériés de ladite année insérée en entrée.
Comment créer une fonction qui va faire appel à cette
fonction TableauJoursFériés(wAn%) et qui va faire une
boucle sur Format(Now(),"yyyy") - 5 / +5 ans. L'objectif
et que dès que je déclenche cette fonction, elle efface
les enregistrements dans ma table JoursFériés puis
récupère l'année du jour et va lancer la fonction
TableauJoursFériés en mettant en argument les années -5/
+ 5ans.
--------------------------------------------------
Peut-être quelque chose comme ceci...
Dim StartDate As Date
Dim EndDate As Date
Dim Dt As Date
For Dt = StartDate To EndDate
Debug.Print Dt '// ici tu dispose de chaque date...
Next Dt
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------
"kiwiboys" a écrit: J'ai une fonction qui se nomme TableauJoursFériés et qui me permet automatiquement de sortir le nom ainsi que la date des jours fériés au format français d'une année entrée en paramètre.
J'essaye de faire une fonction qui va prendre la date d'aujourd'hui, mais en ne prenant compte que l'année en court. Puis elle va soustraire 5 ans avant et 5 ans après. Si je prends cette année, 2003, j'aurais les jours fériés qui vont de 1998 à 2008.
Ma fonction qui va construire cette table est de cette forme
Function TableauJoursFériés(wAn%)
wan% et l'année à insérer et qui va sortir les jours fériés de ladite année insérée en entrée.
Comment créer une fonction qui va faire appel à cette fonction TableauJoursFériés(wAn%) et qui va faire une boucle sur Format(Now(),"yyyy") - 5 / +5 ans. L'objectif et que dès que je déclenche cette fonction, elle efface les enregistrements dans ma table JoursFériés puis récupère l'année du jour et va lancer la fonction TableauJoursFériés en mettant en argument les années -5/ + 5ans. --------------------------------------------------
Peut-être quelque chose comme ceci...
Dim StartDate As Date Dim EndDate As Date Dim Dt As Date
For Dt = StartDate To EndDate Debug.Print Dt '// ici tu dispose de chaque date... Next Dt
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
