[erledigt] Datumsberechnung

[saturus]

Hallo an Alle,

entweder stehe ich jetzt absolut neben mir oder das Problem hat noch nie jemand gehabt.

Mein Problem:

Ich habe drei Zeiträume, welche durch Datumsfelder eigegeben werden. Die Zeiträume sind fortlaufend, sprich das Ende des aktullen Zeitraumes ist gleich der Anfang (+1 Tag).

Um Eingabefehler zu verhindern möchte ich, dass das Folgefeld automatisch gefüllt wird. Wie man die Felder ausliest habe ich schon hinbekommen. Jedoch finde ich keine Funktion, wie ich das ausgelesene Datum + 1 Tag rechne und dann das Ergebnis wieder in ein Datumsfeld einfüge.

Bitte helft mir!

[saturus]

Wenn jemand das gleiche Problem haben sollte, hier die Lösung:

Sub Enddatum_aendern1

Dim Enddatum1,Anfangsdatum2 as date

Enddatum1 = CDateFromIso(dlg.getControl("DateFieldEnde1").date)
Anfangsdatum2 = DateAdd("d", 1, Enddatum1)
dlg.getControl("DateFieldAnfang2").date = CDateToIso(Anfangsdatum2)

End Sub