Oops Correction on the Calculating Age on Form

[Jeddiah]

I'm kind of new to Visual Basic. I know there is a way to calculate the age on a form using the date and year but I'm getting some weird results. Can someone out there assist me. Here is what I have so far:
I have an Age Field and a Birthday field, the birthday field is afterupdate reads =Age(), the Age field is unbound.


Private Function Age()
Dim Age As Integer
Dim Date As Date

[Age] = Date() - [Birthday]
End Function

This is a module attached to the Birthday Field

 

[CosmoKramer]

For a quick-and-dirty age calculation, set the control source of your age field to be something like this:

=(Int((Date()-[birthday])/365))