Age Calculation

[Brett Heintzman]

I received a function from someone on this board about a year ago regarding age calculation. The function seemed to be doing its job, but now some of the ages are seriously wrong. The date in the computer is set correctly and everything looks fine. However, the ages lad behind anywhere form 1 to 5 years. They are never recorded as older than they should be, they are always younger.

Thanks in advance for your help.

Brett Heintzman

[CraigSchumacker]

RE: Age Calculation

Brett:

Where are you using the function?

If you are using it in a field set up with a calculated field in the field rules, the age will only change when the record is saved (or resaved).

If the above is the case, the age reflected is probably the age the person was when the record was originally entered, or when the record was last edited.

The function should probably only be used in a calculated field on a form, browse, letter, or report. This way it calculates the correct age whenever the form ~ report is previewed or printed. Only the date of birth should be permanently stored in a field in the table.

Craig

[Brett Heintzman]

RE: Age Calculation

Craig:

Thanks for the advice. I will try it, but I have tried to resave the record and the age will not change. I will try copying the function right into the form in a calculated field.

Brett

[CraigSchumacker]

RE: Age Calculation

Brett:

What function are you using? Where are you using it?

My earlier thoughts may be wrong. Perhaps you have the field set to default to the age instead of calculating the age?

Post more detail and someone will help you out...

Craig

[JerryBrightbill]

RE: Age Calculation

Brett

Here is one function which has proven reliable.


function Age as N(DateVal as D)

years = val(left(cdate(date()),4))-val(left(cdate(DateVal),4))
if val(right(cdate(date()),4))>=val(right(cdate(DateVal),4))
age = years
else
age = years - 1
end if

There are a number of variations on this and other ways to get the age. This one has never given a problem.

Jerry
end function

[JerryBrightbill]

RE: Age Calculation

That didn't come out right. The function is

function Age as N(DateVal as D)

years = val(left(cdate(date()),4))-val(left(cdate(DateVal),4))
if val(right(cdate(date()),4))>=val(right(cdate(DateVal),4))
age = years
else
age = years - 1
end if

end function

Jerry

[Ken L Herrold]

RE: Age Calculation

Brett:

You wrote. "....I have tried to resave the record and the age will not change....".

I've had a similar problem and a reveltion about 'resaving' a record to update a calculated field. When one views it in a form, the record won't enter 'change' mode until the text in a field has actually been changed and the cursor moved from it. When that occurs the calculated fields will change, usually on-the-spot. Like the others say .... better to leave the data in the record as the date of birth and make age references in report layouts.

Ken