Problème avec DateAdd

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:

---

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

---

Merci d'avance de m'avoir lu

fasedan

Euh,

Ceci ne fonctionne pas :

Code:

---

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

---

?!

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

2 fois dateadd

Bonjour,

Et avec

Code:

---

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 :ccool:

De rien :ccool:,

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

Je propose :

Code:

---

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")

---

:)

Merci à tous pour vos nombreuses réponses.

J'ai retenu le code de jean-pierre49.

Merci aussi à Developpez.com

fasedan

Et pourquoi pas simplement :

Code:

---

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

---