You can use function Year:
MyDate=Year(DateOfReg)