Lægge 1 år til datoer i den aktuelle måned

DateAdd("yyyy", +1, Date.Now())

?
;o)

eller evt. bare:
DateAdd("yyyy", +1, Now())

Tak for kommentarerne, a1 :-) Jeg vender lige tilbage i morgen, da jeg er på vej ud ad døren nu...

Hvis du stadig følger med, a1 - ja, så faldt jeg helt åbenbart ud.

Men jeg har lige tilføjet dit forslag, og får denne fejl:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/kontakt/faq.asp, line 151

strDays = DateDiff("d", "01-" & Month(Dateofmonth) & "-" & strY, DateAdd("yyyy", +1, Now()) & Month(Dateofmonth) & "-" & strY)) - day(date) + Day(Dateofbirth)

Oprydning ;-)