topic Re: Age Calculation in SAS Programming

Age Calculation

tomrvincent — Thu, 05 Jul 2018 18:52:19 GMT

I've seen some discussions of age calculation (especially when 2/28, 2/29 and 3/1 are involved)...here's my solution:

%macro age (bday, eday);

INTCK('YR', &bday, &eday)-((put(&eday,mmddyyb4.)<(put(&bday,mmddyyb4.))))

%mend age;

It can then be called:

proc sql;select *,%age(BIRTH_DT, CLAIM_RECD_DT) as age from xdata;

-or-

data xxx; set xdata; age=%age(BIRTH_DT, CLAIM_RECD_DT); run;

Re: Age Calculation

novinosrin — Thu, 05 Jul 2018 18:54:54 GMT

I think the best bet for age and the most robust is using

YRDIF Function

\http://support.sas.com/documentation/cdl/en/lefunctionsref/63354/HTML/default/viewer.htm#p1pmmr2dtec32an1vbsqmm3abil5.htm

handles leap years too

Re: Age Calculation

tomrvincent — Thu, 05 Jul 2018 19:18:52 GMT

I wish it did, but it doesn't.

birthday of 02/29/1960, date of 02/27/1965: yrdif gives 4.997260274, which is wrong. Should be 4.

birthday of 02/29/1960, date of 02/28/1965: yrdif gives 5, which is wrong. Should also be 4.

That's why I came up with the macro.

Re: Age Calculation

novinosrin — Thu, 05 Jul 2018 19:37:25 GMT

Ok, looks like you are looking for actuals with an int

data w;
age=int(yrdif('29feb1960'd, '27feb1965'd, 'ACT/ACT'));
age1=int(('27feb1965'd-'29feb1960'd)/365.25);
age2=int(yrdif('29feb1960'd, '28feb1965'd, 'ACT/ACT'));
age3=int(('28feb1965'd-'29feb1960'd)/365.25);
put _all_;
run;

Re: Age Calculation

Reeza — Thu, 05 Jul 2018 20:00:20 GMT

Any reason to not create a function instead of a macro here?

@tomrvincent wrote:

I've seen some discussions of age calculation (especially when 2/28, 2/29 and 3/1 are involved)...here's my solution:

%macro age (bday, eday);

INTCK('YR', &bday, &eday)-((put(&eday,mmddyyb4.)<(put(&bday,mmddyyb4.))))

%mend age;

It can then be called:

proc sql;select *,%age(BIRTH_DT, CLAIM_RECD_DT) as age from xdata;

-or-

data xxx; set xdata; age=%age(BIRTH_DT, CLAIM_RECD_DT); run;

Re: Age Calculation

Reeza — Thu, 05 Jul 2018 20:08:39 GMT

age=intck('Year', '29feb1960'd, '27feb1965'd, 'C');

https://blogs.sas.com/content/sasdummy/2011/07/12/computing-age-in-sas-9-3/

@tomrvincent wrote:

I've seen some discussions of age calculation (especially when 2/28, 2/29 and 3/1 are involved)...here's my solution:

%macro age (bday, eday);

INTCK('YR', &bday, &eday)-((put(&eday,mmddyyb4.)<(put(&bday,mmddyyb4.))))

%mend age;

It can then be called:

proc sql;select *,%age(BIRTH_DT, CLAIM_RECD_DT) as age from xdata;

-or-

data xxx; set xdata; age=%age(BIRTH_DT, CLAIM_RECD_DT); run;

Re: Age Calculation

tomrvincent — Fri, 06 Jul 2018 11:56:02 GMT

yeah..I've looked at that...it doesn't work either. Birthday of 29FEB1952 and event day of 28FEB2017 should be 64, not 65.

I didn't just arbitrarily come up with that macro...I compared various combinations of yrdif, intck and so on but they don't correctly handle the 29/28 case.

Re: Age Calculation

tomrvincent — Fri, 06 Jul 2018 12:09:18 GMT

You can't use a function in proc sql.

Re: Age Calculation

tomrvincent — Fri, 06 Jul 2018 12:24:20 GMT

That works as well! I will present that to management as an alternative. Thanks!

Re: Age Calculation

tomrvincent — Fri, 06 Jul 2018 13:58:52 GMT

but age4=int(yrdif('29Mar1960'd, '29Mar1965'd, 'ACT/ACT')); gives 4 instead of 5.

Re: Age Calculation

Doc_Duke — Fri, 06 Jul 2018 17:59:30 GMT

A precise macro was created years ago by Billy Kreuter. See

http://www.pauldickman.com/teaching/sas/age.php

http://support.sas.com/publishing/authors/extras/61860_update.pdf