Discussion :

[fasedan]

Bonjour le forum,

Avec ce code, j'atoute 10 années à une date, mais comment ajouter un jour en plus?

exemple: 08/11/2011 + 10 années + 1 jour = mardi 09 novembre 2021

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Format(DateAdd("yyyy", 10, TextBox1), "dddd dd mmmm yyyy")

Merci d'avance de m'avoir lu

fasedan

[Cocotte278]

Euh,

Ceci ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Format(DateAdd("dd", 1, TextBox1), "dddd dd mmmm yyyy")

?!

[fasedan]

merci cocotte278 de m'avoir lu et repondu

Ton code fonctionne mais il n'ajoute qu'un jour tout comme le mien n'ajoute que les années, alors que je voudrais ajouter des années + 1 jour.

fasedan

[mercatog]

2 fois dateadd

[Jean-Pierre49]

Bonjour,

Et avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim LaDate As Date
LaDate = "08/11/2011"
LaDate = DateAdd("yyyy", 10, LaDate)
LaDate = DateAdd("d", 1, LaDate)
MsgBox LaDate

Cordialement

edit: grillé par mercatog

[Cocotte278]

De rien ,

Tu veux que ta nouvelle date (+ 10 ans et + 1 jour) soit affichée dans une textbox ?

Je propose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
TextBox1.Value = Format(DateAdd("dd", 1, TextBox1), "dddd dd mmmm yyyy") 
TextBox1.Value = Format(DateAdd("yyyy", 10, TextBox1), "dddd dd mmmm yyyy")

[fasedan]

Merci à tous pour vos nombreuses réponses.

J'ai retenu le code de jean-pierre49.

Merci aussi à Developpez.com

fasedan

[corinthien]

Et pourquoi pas simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
  Dim LaDate As String
  LaDate = "08/11/2011"
  LaDate = Format(DateAdd("yyyy", 10, LaDate) + 1, "dddd dd mmmm yyyy")
  MsgBox LaDate