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?
Printable View
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?
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