incrementer de 1 mois

[tany]

Bonjour,

En VBA comment incrementer une date de 1 mois ou 1 an ?
Question sans doute un peu simple mais je sens que je me fourvois...
Merci à vous.

 

[fanfan38]

Re : incrementer de 1 mois

Bonjour

jour = Day(madate)
mois = Month(madate)
an = Year(madate)
newmois = mois + 1
If newmois > 12 Then
an = an + 1
newmois = 1
End If
manewdate = CDate(jour & "/" & newmois & "/" & an)

A+ François

 

[Pierrot93]

Re : incrementer de 1 mois

Bonjour Tany

une solution avec la fonction "DateAdd", regarde l'exemple ci dessous, rajoute un mois par rapport à la date du jour dans la variable "x" :

Dim x As Date
x = DateAdd("m", 1, Date)

(y à la place de m, pour une année, 1 étant le nombre à rajouter).

bonne fin d'après midi
@+

edition : bonjour François