Need to Calculate an Anniversary Date - Please help!

[amym]

Is there any way to return an anniversary date in the current year? For example, if I have a date of birth = 8/26/1976 can I return a birthday for this year: (8/26/2004)?

 

[maxmangion]

do you mean that you want to return the day of the week when it is going to be ?

 

[amym]

I just want it to return "8/26/2004"

 

[namliam]

Try this small function:

Function NextBirthday(aDOB As Date) As Date
    NextBirthday = DateSerial(Year(Date), Month(aDOB), Day(aDOB))
    If NextBirthday < Date Then NextBirthday = DateSerial(Year(Date) + 1, Month(aDOB), Day(aDOB))
End Function

Greetz

 

[amym]

Sorry

Sorry to post twice. Please forgive me.

DateSerial rocks! Thank you!