[SOLVED] Datum Heute + 2 Wochen

[xundeenergie]

Hi Leute!

Wie mache ich es richtig?
Ich hab die Sequenz

Code: Alles auswählen

sub datum
	Dim sDatum As Date
	sDatum = format (date(),"DD.MM.YYYY")
        msgbox sDatum
end sub

gefunden. sDatum soll aber immer Jetzt + 2 Wochen sein.

lg xundeenergie

[karolus]

Hallo

Code: Alles auswählen

sub datum
   sDatum = format (date()+14 ,"DD.MM.YYYY")
        msgbox sDatum
end sub

dim sDatum as date ist Blödsinn, weil format(...) eh einen string zurückgibt

[xundeenergie]

Hi

Hallo

Code: Alles auswählen

sub datum
   sDatum = format (date()+14 ,"DD.MM.YYYY")
        msgbox sDatum
end sub

dim sDatum as date ist Blödsinn, weil format(...) eh einen string zurückgibt

Danke. Hat super funktioniert. Hab das zwar so ähnlich ausprobiert gehabt, aber bekam eine Fehlermeldung. Aber so gehts.

lg xundeenergie