data &out;
set &data;
current=today();
age=int(intck('month',&bday,current)/12);
if month(&bday)=month(current) then age=age-(day(&bday)>day(current));
run;
%mend;
data kkk;
input bday mmddyy10.;
datalines;
12/31/1973
;
run;
%age(data=kkk,bday=bday,out=out)[/code:24e8c]作者: shiyiming 时间: 2005-10-14 16:23 标题: re 谢谢了