incrementer par toupie

[tany]

Bonjour,
je ne trouve pas dans la recherche mais peut être mal chercher !
dans un userform j'ai un textbox avec date et une toupie associée
comment incrémenter ou décrémenter de 1 année ?
je le fais habituellement mais par jour soit :
date.text=cdate(date.text) + 1
mais pour un an ?
Merci d'avance

 

[Dranreb]

Re : incrementer par toupie

Bonjour.
Décomposez pour ne pas convertir 3 fois la TextBox.Text en date :

Dim DatTrv As Date
DatTrv = CDate(date.Text)
date.Text = DateSerial(Year(DatTrv) + 1, Month(DatTrv), Day(DatTrv))

Remarque: un 29 février d'une année bissextile se verrait transformé en 1er mars.

Edit: bonjour Victor 21, oui en effet ça semble plus pratique. Je n'avais pas en mémoire l'existence de cette fonction, vu qu'elle fait sûrement la même chose.

 

[Victor21]

Re : incrementer par toupie

Bonjour tany.

Essayez :

Date =DateAdd("YYYY",1,Date)

Non testé, faute de fichier.

Edit : Bonjour, Dranreb 🙂

 

[tany]

Re : incrementer par toupie

Merci beaucoup à tous deux
je peux continuer mon projet...
bonne journée