Faire un décalage de date en VBA

[mécano41]

Bonjour à tous,

Comment fait-on en VBA pour trouver la date décalée d'exactement un mois, six mois etc...par rapport à la date du jour par ex.? Je l'ai fait avec : Now-NbJours ; cela fonctionne mais ce n'est évidemment pas tout à fait exact... (rien trouvé en cherchant dans le forum ...)

Merci d'avance.

Cordialement

 

[Dranreb]

Re : Faire un décalage de date en VBA

Bonjour.
Avec DateSerial(Year(Date), Month(Date) - 6, Day(Date))
Encore que ça peut se voir normalisé en une date valide, attention aux derniers jours du mois.
Cordialement

 

[mécano41]

Re : Faire un décalage de date en VBA

Bonjour Dranreb,

Cela fonctionne bien! Merci beaucoup.

Cordialement

 

[Pierrot93]

Re : Faire un décalage de date en VBA

Bonjour Mecano, Bernard

une autre solution avec la fonction "dateadd" :

MsgBox DateAdd("m", -6, Date)

bon après midi
@+

 

[mécano41]

Re : Faire un décalage de date en VBA

Bonjour Pierrot,

Très intéressant également. Merci beaucoup!

Cordialement