[AccessD] Tip: Birthday of current year

Hi all

Not a big problem except for the detail with date of birth of Feb. 29th. 
But DateAdd will sort that out. The trick here is that year 2000 is a leap year.

Here's a method in SQL:

  SELECT 
    *,
    DateAdd("yyyy",Year(Date())-2000,DateSerial(2000,Month([DOB]),Day([DOB]))) AS BirthdayThisYear
  FROM 
    tblTest;

And as VBA:

  datBirthdayThisYear = _
    DateAdd("yyyy", Year(Date) - 2000, DateSerial(2000, Month(datDOB), Day(datDOB)))

/gustav