datediff

[frank ashley]

Want to find out somebody's age in years.

CalculateAge = DateDiff("yyyy", dat, Now)

The above almost works except that a new year is starting on 1st jan and not on their birthday.

Any ideas?

[HeSaidJoe]

example from my junk...

Birthdate: February 06,1964
Stored in mdb as 02061964



Dim Bdate As String
Dim Bage As Integer
Dim Bdays As Long

Bdate = "02061964"
Bdate = Left$(Bdate, 2) + "/" + Mid$(Bdate, 3, 2) + "/" + Right$(Bdate, 4)
Bage = DateDiff("yyyy", Bdate, Now)
Bdate = DateAdd("yyyy", Bage, Bdate)
Bdays = DateDiff("d", Now, Bdate)
Select Case Bdays
Case 0
MsgBox "You are " + CStr(Bage) + "! Happy Birthday!"
Case Is > 0
MsgBox "Your birthday is in " + CStr(Bdays) + " days!"
Case Is < 0
MsgBox "Your birthday was " + CStr(Abs(Bdays)) + " days ago!"
End Select