Impossible de recup valeur year en VBA

**omacama** · 15/02/2007, 12h51

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Gary_Stoupy** · 15/02/2007, 12h59

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et ca fonctionne parfaitement

**loufab** · 15/02/2007, 13h01

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,

Invité · 15/02/2007, 13h01

Salut

Essaye avec Now à la place de Date

Starec

**loufab** · 15/02/2007, 13h03

on dérive là...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

**Heureux-oli** · 15/02/2007, 13h06

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Lou Pitchoun** · 15/02/2007, 13h12

Envoyé par Heureux-oli

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

Quick

**Heureux-oli** · 15/02/2007, 13h15

Envoyé par Gary_Stoupy

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**omacama** · 15/02/2007, 14h34

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

**omacama** · 15/02/2007, 14h55

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

**loufab** · 15/02/2007, 15h47

Généralement les fonctions sont accessibles partout :

VBA, SQL, Interface

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

Cordialement,

**FRED.G** · 15/02/2007, 16h07

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

**omacama** · 15/02/2007, 17h13

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

**loufab** · 15/02/2007, 19h53

Oui Non ?

Voici un booléen.

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,

**omacama** · 20/02/2007, 11h54

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Heureux-oli** · 20/02/2007, 23h17

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

**micniv** · 20/02/2007, 23h50

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 ?

**omacama** · 26/02/2007, 18h13

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