Hallo,

ich habe hier eine Datenbank. In dieser gibt es ein Feld mit einem Datum. Im nächsten Feld soll diese Datum um 25 Jahre addiert werden. Wie mache ich das ???

datum = 23.07.1983

=datum + 25 funzt net

=datum + 9125 (Tage) funzt auch net (hat keine Schaltjahre)

Vielen Dank für eure Hilfe

FLorian

Dim datum As Date

datum = #7/23/83#

MsgBox (DateAdd("yyyy", 25, datum))

Hi!

Oder mit Dateserial(Year,Month,Day):

-------------------------------------

Datum = DateSerial(Year(now) +1, Month(now) +3 , Day(now) + 344)

--------------------------------------

Gruß