Huidige datum + 90 dagen

[jefkeh]

Hoi,
Ik heb een textbox1 met daarin de huidige datum(vandaag) format(dd/mm/yyyy)
Nu zou ik graag in textbox2 willen bekomen (Textbox1 + 90 dagen) en dit in datumformaat.
Hoe doe ik dat?
Alvast bedankt
Gr.

 

[sylvester-ponte]

bv:

Private Sub TextBox1_Change()
    TextBox2 = Format(DateAdd("d", DateValue(TextBox1), 90), "dd/mm/yyyy")
End Sub

 

[jefkeh]

Bedankt voor deze snelle oplossing.
Weer iets geleerd
Nogmaals dank u