Impossible de recup valeur year en VBA

Bonjour,

sa va surement vous paraitre tous bete mais je me prend le chou et sa marche pas !

Le bute etant d'enlever 3 mois a la date du jour !!
Puis de recuperer l'année !

voici le code :

Code:

---

1 2 3 4 5 6 7

Dim Valeur As Date Dim x As Date       Valeur = DateAdd("m", -3, Date) x = DatePart("yyyy", Valeur)

---

Et sa ne marche pas !

j'ai trouvé plein de chose :

FORMAT marche pas
x = Year(Valeur) marche pas il prend comme valeur 28/06/1905 ?
Dateserial MArche pas

Je sais plus quoi faire ?

Merci

bonjour,

perso, dans ma base je l'ai déjà fait

Code:

---

1 2 3

Dim annee as variant   annee = Format(Date, "yyyy")

---

et ca fonctionne parfaitement

Bonjour,

Year renvoi un nombre par contre si tu l'affecte à un champ (ou controle ou variable) date il t'affiche ce nombre au format date.

En effet la date est stockée en tant que numérique. La partie entière désigne la date (jour mois année) et la partie décimale l'heure (heure minute seconde...)

Si tu fais un msgbox year(valeur) tu verras qu'il te donne bien l'année.

Espérant t'avoir éclairé sur ton problème.

Cordialement,

Salut

Essaye avec Now à la place de Date

Starec

on dérive là...

Code:

---

1 2 3 4 5 6

Dim Valeur As Date Dim x As integer Valeur = DateAdd("m", -3, Date) x = year(Valeur)

---

Pour info Date renvoi la date du jour (jour mois année) alors que now renvoie la date du jour (jour mois année heure minute seconde)

Comme je l'ai déjà écrit, c'est une question de goût

Code:

---

1 2	ManouvDate = DateSerial(Year(Date());Month(Date())-3;Day(Date()))

---

Citation:

---

Envoyé par Heureux-oli

Comme je l'ai déjà écrit, c'est une question de goût

---

Quick
http://smileys.sur-la-toile.com/sign...8555-final.gif

Citation:

---

Envoyé par Gary_Stoupy

bonjour,

perso, dans ma base je l'ai déjà fait

Code:

---

1 2 3

Dim annee as variant   annee = Format(Date, "yyyy")

---

et ca fonctionne parfaitement

---

La fonction Format renvoie du texte et pas un nombre.

Merci pour les infos !! sa marche nikel ....

Citation:

---

Envoyé par loufab

Bonjour,

Year renvoi un nombre par contre si tu l'affecte à un champ (ou controle ou variable) date il t'affiche ce nombre au format date.

En effet la date est stockée en tant que numérique. La partie entière désigne la date (jour mois année) et la partie décimale l'heure (heure minute seconde...)

Cordialement,

---

Ok c'est compris ;)

Code:

---

1 2 3 4 5 6

Dim Valeur As Date Dim x As integer   Valeur = DateAdd("m", -3, Date) x = year(Valeur) Pour info Date renvoi la date du jour (jour mois année) alors que now renvoie la date du jour (jour mois année heure minute seconde)

---

Ok c'est compris 2 !

Merci, ya pas plus efficace que vous !

Et est ce que le meme codeq qui realise la meme chose est possible en SQL ?

Code:

---

1 2 3 4 5

Dim Valeur As Date Dim x As integer   Valeur = DateAdd("m", -3, Date) x = year(Valeur)

---

j'aimerai l'integrer a sa qui abituelment un parametre :

Code:

---

1 2 3 4 5 6 7 8 9

SELECT PIE.[Raison Sociale], Sum(IIf([année]=[Année où se trouve la periode du CA derogé M-3? 2006, 2007, 2008]-1,[Net client régularisé ou CA facturé],0)) AS [N-1], Sum(IIf([année]=[Année où se trouve la periode du CA derogé M-3? 2006, 2007, 2008],[Net client régularisé ou CA facturé],0)) AS N, Sum(IIf([année]=[Année où se trouve la periode du CA derogé M-3? 2006, 2007, 2008],[Net client régularisé ou CA facturé],0)-IIf([année]=[Année où se trouve la periode du CA derogé M-3? 2006, 2007, 2008]-1,[Net client régularisé ou CA facturé],0)) AS ecart FROM PIE WHERE (((PIE.Année)=[Année où se trouve la periode du CA derogé M-3? 2006, 2007, 2008] Or (PIE.Année)=[Année où se trouve la periode du CA derogé M-3? 2006, 2007, 2008]-"1")) GROUP BY PIE.[Raison Sociale], PIE.[Nom vendeur1], PIE.SEG, PIE.[Direct/Dérogé] HAVING (((PIE.[Nom vendeur1])="ACHARD") AND ((PIE.SEG)="CA" Or (PIE.SEG)="CB" Or (PIE.SEG)="CC" Or (PIE.SEG)="CT" Or (PIE.SEG)="TD") AND ((PIE.[Direct/Dérogé])="dérogé"));

---

Et donc que à la place de la question

Code:

---

Année où se trouve la periode du CA derogé M-3? 2006, 2007, 2008

---

J'aimerai faire le petit calcul du debut !

Sa peut fonctionner ?

Généralement les fonctions sont accessibles partout :

VBA, SQL, Interface

Pour l'interface il faut respecter la langue d'installation.

Cordialement,

Moi je dirais "Access", plutôt que "interface". :P

J'ai aussi trouvé sa ....

Comment utiliser la valeur d'une variable vba dans une requête Access ?
http://access.developpez.com/faq/?pa...teres#VarDsReq

Mais ce n'est pas expliquer ????

Parceque si je realise la fonction

Code:

---

1 2 3 4 5

Dim Valeur As Date Dim x As integer   Valeur = DateAdd("m", -3, Date) x = year(Valeur)

---

Et que X soit la valeur de mon parametre dans ma requete SQL, sa devrait fonctionner ?

exemple

Code:

---

1 2 3 4 5

SELECT PIE.[Raison Sociale], Sum(IIf([année]=[X]-1,[Net client régularisé ou CA facturé],0)) AS [N-1], Sum(IIf([année]=[X],[Net client régularisé ou CA facturé],0)) AS N, Sum(IIf([année]=[X],[Net client régularisé ou CA facturé],0)-IIf([année]=[X]-1,[Net client régularisé ou CA facturé],0)) AS ecart FROM PIE WHERE (((PIE.Année)=[X] Or (PIE.Année)=[X]-"1")) GROUP BY PIE.[Raison Sociale], PIE.[Nom vendeur1], PIE.SEG, PIE.[Direct/Dérogé] HAVING (((PIE.[Nom vendeur1])="ACHARD") AND ((PIE.SEG)="CA" Or (PIE.SEG)="CB" Or (PIE.SEG)="CC" Or (PIE.SEG)="CT" Or (PIE.SEG)="TD") AND ((PIE.[Direct/Dérogé])="dérogé"));

---

Oui non ?

Citation:

---

Oui Non ?

---

Voici un booléen. :aie:


Plus sérieusement,

Une fonction quelle soit interne ou utilisateur cela reste une fonction. Le tout c'est qu'elle retourne bien la valeur attendu par SQL.

Cordialement,

Bonjour,

je relance car j'ai avancer, mais je n'aboutis pas !

voici ce que j'ai pu trouver pour realisé mon operation en SQL

Code:

---

1 2 3 4

Dim MaDate As Date Dim X As Integer MaDate = DateSerial(Year(Date), Month(Date) - 3, Day(Date)) X = Year(MaDate)

---

Mais acces bloque sur Date ????

Il y a une ligne d'appel de la fonction a declarer ?

ou un autre probleme ?

MERCI

Si access bloque sur Date, c'est un problème de références, essaies avec Now().

Bonsoir,

Mais qu'as-tu de déclaré dans les références (VBA de ton appli) ?
il faut aller dans l'éditeur VBA puis Outils\References (voir la FAQ Access !)

En quel version d'access es-tu ?
:)

Je suis en version 97,

Je narrive pas a trouver preference,

j'avais deja vu sa sur les sources, faq et autre mais je n'arrive pas a mettre en ouevre

Merci encore

Bonjour,

Quelque soit la version d'Access on passe toujours par outils/references

cordialement,

Je vais me faire tuer !

Je ne trouve pas ....?

:oops: