年齢の計算

YRDIFを年齢の計算に使っていましたが、不具合があることに気がつきました。結局、古典的なコードを引っ張り出して計算しています。

view plainprint?

1. data _null_;  
2.         format start end yymmdds10.;  
3.   
4.         start = '01mar1992'd;  
5.         end = '01mar1999'd;  
6.   
7.         /* BUG */  
8.         dif = yrdif(start,end,'ACT/ACT');  
9.         put _all_;  
10.   
11.         dif = intck('YEAR', start, end);  
12.   
13.         /* 今年の誕生日がまだ来ていない場合は、数え年から1を引きます */  
14.         if (month(end) < month(start)) then  
15.                 dif = dif - 1;  
16.         else if (month(end) = month(start)) and day(end) < day(start) then  
17.                 dif = dif - 1;  
18.   
19.         put _all_;  
20. run;  

data _null_;
        format start end yymmdds10.;

        start = '01mar1992'd;
        end = '01mar1999'd;

        /* BUG */
        dif = yrdif(start,end,'ACT/ACT');
        put _all_;

        dif = intck('YEAR', start, end);

        /* 今年の誕生日がまだ来ていない場合は、数え年から1を引きます */
        if (month(end) < month(start)) then
                dif = dif - 1;
        else if (month(end) = month(start)) and day(end) < day(start) then
                dif = dif - 1;

        put _all_;
run;