Message Box Calculation

[NotGood@All]

I would like to create a form that ask the user what is their birthday,
calculate their age and display it on a message box. Can someone help me??

thanks

 

[Linq Adams via AccessMonster.com]

With a textbox named

txtDOB

and a command button named

cmdCalculateAge

use this code

Private Sub cmdCalculateAge_Click()
MsgBox DateDiff("yyyy", [txtDOB], Date) - IIf(Format$(Date, "mmdd") < Format
$([txtDOB], "mmdd"), 1, 0)
End Sub