Display age in years, months and days

[Bradon]

I have found the code to convert date of birth to years on the forum:

Private Sub DateofBirth_BeforeUpdate(Cancel As Integer)
If Date >= DateSerial(Year(Date), Month(Me![DateofBirth]), Day(Me![DateofBirth])) Then
Me![age] = DateDiff("yyyy", Me![DateofBirth], Date)
Else
Me![age] = DateDiff("yyyy", Me![DateofBirth], Date) - 1
End If
End Sub

I would like to display the result to show years, months and days
i.e 10 years 7 months 17 days

Any suggestions as to how to do this?

 

[bat17]

check ot this thread

http://www.mrexcel.com/board2/viewtopic.php?t=75997&highlight=age

HTH

Peter

 

[Bradon]

Thanks Peter - I followed the link but couldn't understand where the code should be put. How do you find or create a new module?

I was hoping to be able to extend the original code.

Sorry but I'm still learning access.

 

[bat17]

The layout varies a bit depending on which version you have, but click on the Modules tab then click the new button.
paste the code in to the new module and save it. do not give the module the same name as a function or Access will sulk.
You can then call the function from your code the same as you would any other -- Age(Date1, Date2)

Private Sub DateofBirth_BeforeUpdate(Cancel As Integer)
     Me![Age] = Age(Me![DateofBirth], DATE)
End Sub

You could build all of the code into your existing code but keeping functions seperate allows you to call them from other forms if needed and it also makes it easier to copy to new DB'S when you have to develop them.


HTH
Peter