Salut,
"Jacques"
Bonsoir 3stone,
Tu as du bol que je passe ;-)
Remarque, en dehors d'une conversation,
on s'adresse à tous les intervenants...
Cette fonction que tu m'avais communiqué sur un ancien post, indique r
le millésime dune saison
(de 01/09/2008 au 31/08/2009 = 2009), mais je ne sais pas pourquoi
elle ne fonctionne plus.
Y-a-til une erreur ? Sinon quelles pourraient être les raisons ?
Function fnMillesime() As Integer
Dim T As Integer
T = DatePart("q", DateAdd("m", 1, Date), 2, 2)
fnMillesime = Year(Date) + Abs(T = 4)
End Function
Tu as sûrement une référence manquante...
Alt + F11, Outils, Références
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"Jacques"
Bonsoir 3stone,
Tu as du bol que je passe ;-)
Remarque, en dehors d'une conversation,
on s'adresse à tous les intervenants...
Cette fonction que tu m'avais communiqué sur un ancien post, indique r
le millésime dune saison
(de 01/09/2008 au 31/08/2009 = 2009), mais je ne sais pas pourquoi
elle ne fonctionne plus.
Y-a-til une erreur ? Sinon quelles pourraient être les raisons ?
Function fnMillesime() As Integer
Dim T As Integer
T = DatePart("q", DateAdd("m", 1, Date), 2, 2)
fnMillesime = Year(Date) + Abs(T = 4)
End Function
Tu as sûrement une référence manquante...
Alt + F11, Outils, Références
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"Jacques"
Bonsoir 3stone,
Tu as du bol que je passe ;-)
Remarque, en dehors d'une conversation,
on s'adresse à tous les intervenants...
Cette fonction que tu m'avais communiqué sur un ancien post, indique r
le millésime dune saison
(de 01/09/2008 au 31/08/2009 = 2009), mais je ne sais pas pourquoi
elle ne fonctionne plus.
Y-a-til une erreur ? Sinon quelles pourraient être les raisons ?
Function fnMillesime() As Integer
Dim T As Integer
T = DatePart("q", DateAdd("m", 1, Date), 2, 2)
fnMillesime = Year(Date) + Abs(T = 4)
End Function
Tu as sûrement une référence manquante...
Alt + F11, Outils, Références
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"Jacques"
A-tu une idée de la dll manquante ?
Y a-t-il une référence marquée manquante ?
Si oui, décoche la et compile (Débogage, Compiler...)
Je me suis aperçue que la fonction ne marche pas uniquement pour le
mois de décembre (2008 à la place de 2009),
pour les autres mois c'est ok.
Heu ??
Une petite explication :
A quoi correspond le ,Date)2, 2) de la ligne suivante:
T = DatePart("q", DateAdd("m", 1, Date), 2, 2)
DateAdd("m", 1, Date)
renvoie la date actuelle + 1 mois
DatePart("q", LaDate, 2, 2)
renvoie le trimestre de LaDate en spécifiant que la
semaine commence le lundi et l'année par la première
semaine qui contient 4 jours...
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"Jacques"
A-tu une idée de la dll manquante ?
Y a-t-il une référence marquée manquante ?
Si oui, décoche la et compile (Débogage, Compiler...)
Je me suis aperçue que la fonction ne marche pas uniquement pour le
mois de décembre (2008 à la place de 2009),
pour les autres mois c'est ok.
Heu ??
Une petite explication :
A quoi correspond le ,Date)2, 2) de la ligne suivante:
T = DatePart("q", DateAdd("m", 1, Date), 2, 2)
DateAdd("m", 1, Date)
renvoie la date actuelle + 1 mois
DatePart("q", LaDate, 2, 2)
renvoie le trimestre de LaDate en spécifiant que la
semaine commence le lundi et l'année par la première
semaine qui contient 4 jours...
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"Jacques"
A-tu une idée de la dll manquante ?
Y a-t-il une référence marquée manquante ?
Si oui, décoche la et compile (Débogage, Compiler...)
Je me suis aperçue que la fonction ne marche pas uniquement pour le
mois de décembre (2008 à la place de 2009),
pour les autres mois c'est ok.
Heu ??
Une petite explication :
A quoi correspond le ,Date)2, 2) de la ligne suivante:
T = DatePart("q", DateAdd("m", 1, Date), 2, 2)
DateAdd("m", 1, Date)
renvoie la date actuelle + 1 mois
DatePart("q", LaDate, 2, 2)
renvoie le trimestre de LaDate en spécifiant que la
semaine commence le lundi et l'année par la première
semaine qui contient 4 jours...
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"Jacques"
A-tu une idée de la dll manquante ?
Y a-t-il une référence marquée manquante ?
Si oui, décoche la et compile (Débogage, Compiler...)
Je me suis aperçue que la fonction ne marche pas uniquement pour le
mois de décembre (2008 à la place de 2009),
pour les autres mois c'est ok.
Heu ??
Une petite explication :
A quoi correspond le ,Date)2, 2) de la ligne suivante:
T = DatePart("q", DateAdd("m", 1, Date), 2, 2)
DateAdd("m", 1, Date)
renvoie la date actuelle + 1 mois
DatePart("q", LaDate, 2, 2)
renvoie le trimestre de LaDate en spécifiant que la
semaine commence le lundi et l'année par la première
semaine qui contient 4 jours...
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"Jacques"
A-tu une idée de la dll manquante ?
Y a-t-il une référence marquée manquante ?
Si oui, décoche la et compile (Débogage, Compiler...)
Je me suis aperçue que la fonction ne marche pas uniquement pour le
mois de décembre (2008 à la place de 2009),
pour les autres mois c'est ok.
Heu ??
Une petite explication :
A quoi correspond le ,Date)2, 2) de la ligne suivante:
T = DatePart("q", DateAdd("m", 1, Date), 2, 2)
DateAdd("m", 1, Date)
renvoie la date actuelle + 1 mois
DatePart("q", LaDate, 2, 2)
renvoie le trimestre de LaDate en spécifiant que la
semaine commence le lundi et l'année par la première
semaine qui contient 4 jours...
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"Jacques"
A-tu une idée de la dll manquante ?
Y a-t-il une référence marquée manquante ?
Si oui, décoche la et compile (Débogage, Compiler...)
Je me suis aperçue que la fonction ne marche pas uniquement pour le
mois de décembre (2008 à la place de 2009),
pour les autres mois c'est ok.
Heu ??
Une petite explication :
A quoi correspond le ,Date)2, 2) de la ligne suivante:
T = DatePart("q", DateAdd("m", 1, Date), 2, 2)
DateAdd("m", 1, Date)
renvoie la date actuelle + 1 mois
DatePart("q", LaDate, 2, 2)
renvoie le trimestre de LaDate en spécifiant que la
semaine commence le lundi et l'année par la première
semaine qui contient 4 jours...
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"Jacques"
[...]
mais en remplaçant le -8 par 4 cela fonctionne correctement et pour
tous les mois.
fnMillesime = Year(DateAdd("m", 4, Date))
_____
La fonction (celle que tu as affichée en début de ce fil) fonctionne. ..
Tu disais que "elle ne fonctionne plus" ;-)
D'où la piste de la référence manquante.
Par contre, je ne me souviens absolument pas du résultat qu'était
censée cracher cette fonction :o)
Voilà ce qui arrive lorsque l'on n'est plus dans le fil ou que l'on
ne resitue pas les choses ;-))
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"Jacques"
[...]
mais en remplaçant le -8 par 4 cela fonctionne correctement et pour
tous les mois.
fnMillesime = Year(DateAdd("m", 4, Date))
_____
La fonction (celle que tu as affichée en début de ce fil) fonctionne. ..
Tu disais que "elle ne fonctionne plus" ;-)
D'où la piste de la référence manquante.
Par contre, je ne me souviens absolument pas du résultat qu'était
censée cracher cette fonction :o)
Voilà ce qui arrive lorsque l'on n'est plus dans le fil ou que l'on
ne resitue pas les choses ;-))
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"Jacques"
[...]
mais en remplaçant le -8 par 4 cela fonctionne correctement et pour
tous les mois.
fnMillesime = Year(DateAdd("m", 4, Date))
_____
La fonction (celle que tu as affichée en début de ce fil) fonctionne. ..
Tu disais que "elle ne fonctionne plus" ;-)
D'où la piste de la référence manquante.
Par contre, je ne me souviens absolument pas du résultat qu'était
censée cracher cette fonction :o)
Voilà ce qui arrive lorsque l'on n'est plus dans le fil ou que l'on
ne resitue pas les choses ;-))
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"Jacques"
[...]
mais en remplaçant le -8 par 4 cela fonctionne correctement et pour
tous les mois.
fnMillesime = Year(DateAdd("m", 4, Date))
_____
La fonction (celle que tu as affichée en début de ce fil) fonctionne...
Tu disais que "elle ne fonctionne plus" ;-)
D'où la piste de la référence manquante.
Par contre, je ne me souviens absolument pas du résultat qu'était
censée cracher cette fonction :o)
Voilà ce qui arrive lorsque l'on n'est plus dans le fil ou que l'on
ne resitue pas les choses ;-))
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"Jacques"
[...]
mais en remplaçant le -8 par 4 cela fonctionne correctement et pour
tous les mois.
fnMillesime = Year(DateAdd("m", 4, Date))
_____
La fonction (celle que tu as affichée en début de ce fil) fonctionne...
Tu disais que "elle ne fonctionne plus" ;-)
D'où la piste de la référence manquante.
Par contre, je ne me souviens absolument pas du résultat qu'était
censée cracher cette fonction :o)
Voilà ce qui arrive lorsque l'on n'est plus dans le fil ou que l'on
ne resitue pas les choses ;-))
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"Jacques"
[...]
mais en remplaçant le -8 par 4 cela fonctionne correctement et pour
tous les mois.
fnMillesime = Year(DateAdd("m", 4, Date))
_____
La fonction (celle que tu as affichée en début de ce fil) fonctionne...
Tu disais que "elle ne fonctionne plus" ;-)
D'où la piste de la référence manquante.
Par contre, je ne me souviens absolument pas du résultat qu'était
censée cracher cette fonction :o)
Voilà ce qui arrive lorsque l'on n'est plus dans le fil ou que l'on
ne resitue pas les choses ;-))
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)