Hallåjs,

varför funkar inte detta, datum1 och datum2 är på formen:
ÅÅÅÅ-MM-DD ?
datum1 = (CDate(Datum))
datum2 = CDate(recSetEvents("Datum"))
skillnad = DateDiff(yyyy, datum1, datum2, vbMonday, vbFirstFourDays)
MsgBox (skillnad)

/e:a

Sätt yyyy inom citationstecken:
skillnad = DateDiff("yyyy", datum1, datum2, vbMonday, vbFirstFourDays)

tack så mycket