Datum addieren

Hallo,

möchte gerne zu einem Datum (22.08.2002) 20 Tage zu addieren, wie mache ich das? Hoffe jemand kann mir helfen.

Viele Grüße,
Ayla.

dateadd (OT)
…

Das ist wohl das was du suchst:

Sub main()
Dim datAnfang As Date
Dim datEnde As Date
datAnfang = „01.10.2004“
datEnde = datAnfang + 20
MsgBox (datEnde)
End Sub

Ergänzend empfehle ich die Taste „F1“ zu drücken und dort mal nach „Datentypen“ und „Date“ zu suchen…

Gruß, Michael