Dim DaTest as date
datest = cdate(01.01.2003)
 
'Das Jahr 3 dazu addieren (ich vermute 3 Jahre)
 
DaTest = DateAdd("YYYY", 3 ,DaTest)
 
 
msgbox datest

dim diff as long 'Differenz der Daten
dim ayear as single
'Zuerst mal die Differnz z.B in Tagen errechnen
' Datum 01.01.2008 , heute  03.01.2009
 diff = ("d","01.01.2008", date)
 
if diff > 0 then
 Messagebox "Datum liegt in der Vergangenheit"
else: Msgbox "Datum liegt in der Zukunft"
end if
ayear = diff / 365
 
if ayear > 0 then
msgbox ayear
else: msgbox str(ayear * (-1))
end if