[AC-2007] Effectuer une opération en fonction d'une date.

[Mat08]

Bonjour, je cherche à faire un sorte de fonction de dépréciation.
Dans un formulaire "produits" j'ai un champ "dateAchat", un champ "dateMajPrix", un champ "prixAchat", un champ "prixActuel" et un champ "tauxDepreciation".

Prenons un exemple : j'ai un produit dont la date d'achat est 02/03/2011.
Je voudrais que quand on sera le 02/03/2012, le prix actuel soit automatiquement déprécié suivant une formule de calcul qui s'exécutera en vba. Mon seul soucis est : comment faire pour que la base de donnée sache que la date est 02/03/2012.

Je donne un petit algorithme pour mieux comprendre :

Précision : quand on rentre un produit dans la bdd, les champs "dateAchat" et "dateMajPrix" prennent la même valeur qui est la date à laquelle on les rentre ; idem pour "prixAchat" et "prixActuel".
Les parties de code en italiques sont celles qui me bloquent.

Code :

1
2
3
4
IF date actuelle = me.dateMajPrix + 1 an THEN
             me.prixActuel=me.prixActuel -(0,1*prixActuel)
END IF

Merci d'avance à ceux qui m'apporterait une aide.

[Philippe JOCHMANS]

Bonjour

Un peu de lecture : Les Fonctions Date/Heure

Tu y trouveras les fonctions suivantes :

Date() : pour avoir la date du jour
DateAdd : pour additionner ton année

Philippe

[Mat08]

Bonjour et désolé de répondre si tard.

En utilisant votre lien j'en suis arrivé à ça :

Code :

1
2
3
If Date > DateAdd("yyyy", 1, Me.DateMajPrix) Then
Me.PrixActuel = Me.PrixActuel - (Me.PrixActuel* 0.1)
End If

Le problème est que quelque soit la date la condition IF exécute le code.

Par exemple :
-nous somme le 01/01/2005.
-le prix actuel est de 100.

-Me.DateMajPrix = 01/01/2003
-le prix renvoyé est 90.

-Me.DateMajPrix = 01/01/2007
-le prix renvoyé est 90.

Je ne vois pourtant pas ce qui cloche...

[rjamin]

Bonjour,

If Date > DateAdd("yyyy", 1, Me.DateMajPrix) Then
Me.PrixActuel = Me.PrixActuel - (Me.PrixActuel* 0.1)
End If

Ne faudrait-il pas écrire

Code :

If Date() > DateAdd(.....

[Mat08]

Bonjour, j'y avais pensé mais cela me corrige automatiquement et enlève les parenthèses "()" juste après date.
J'ai même essayé de déclarer une variable DateActuelle = Date() et d'utiliser ma variabl dans le if mais cela ne change rien.