I'm trying to display someones age using (date ()-DOB)/365 but I get years
with a decimal ( ie 76.7 years). If I change the format to "fixed" and set
the decimal places to "0" then it rounds up the age ( ie 77 years) How can I
display just 76 which is the more conventional way we talk about age.

See the following link:

http://office.microsoft.com/en-gb/as...550711033.aspx

Sprinks

"P Nahser" wrote:

> I'm trying to display someones age using (date ()-DOB)/365 but I get years
> with a decimal ( ie 76.7 years). If I change the format to "fixed" and set
> the decimal places to "0" then it rounds up the age ( ie 77 years) How can I
> display just 76 which is the more conventional way we talk about age.

Maybe this will help.

Public Function Age(DOB As Date) As Integer

Age = DateDiff("yyyy", DOB, Date) + (Date < DateSerial(Year(Date), Month(DOB),
Day(DOB)))

End Function


P Nahser wrote:
>I'm trying to display someones age using (date ()-DOB)/365 but I get years
>with a decimal ( ie 76.7 years). If I change the format to "fixed" and set
>the decimal places to "0" then it rounds up the age ( ie 77 years) How can I
>display just 76 which is the more conventional way we talk about age.

--
HTH - RuralGuy (RG for short) acXP WinXP Pro
Please post back to this forum so all may benefit.

Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200610/1