Discussion :

[omacama]

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]

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

[Invité]

Salut

Essaye avec Now à la place de Date

Starec

[loufab]

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]

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.

[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...)

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,

[omacama]

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

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]

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]

Généralement les fonctions sont accessibles partout :

VBA, SQL, Interface

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

Cordialement,

[FRED.G]

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

[Heureux-oli]

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]

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

Quick