SAS关于身份证号码的提取分析

[谢远涛]

data ex;                                                                                                                                
     input ID $1-20year7-10mon11-12day13-14;cards;110103197512092232110101196902150059;run;/\ast \mathrm{如}\mathrm{果}\mathrm{身}\mathrm{份}\mathrm{证}\mathrm{前}\mathrm{空}\mathrm{格}，\mathrm{错}\mathrm{误}\mathrm{原}\mathrm{因}？\ast /dataex;inputid$1-50 year 7-10 mon 11-12 day 13-14;
	year=substr(id,7,4);
	month=substr(id,11,2);
	day=substr(id,13,2);
	birthday=mdy(month,day,year);
	birthday1=put(mdy(month,day,year),WORDDATE.);
	age=year(today())-year(birthday);
	cards;                                                                                                                  
        110103197512092232                                                                                                              
        110101196902150059                                                                                                              
        ;                                                                                                                               
run;  
proc print data=ex;                                                                                                                     
run;                                                                                                                                    

DATA EX2;
SET EX;
YEAR=SUBSTR(LEFT(RIGHT(ID)),7,4);
RUN;