请教各位这个程序怎么编

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我现在想利用身份证号推算人的年龄，该如何编程呢？

我的程序比较麻烦，看看能不能帮我简化一下：

data m;
format cust_id $18. birth date9.;
input cust_id $18.;
birth=mdy(input(substr(cust_id,11,12),$2.),input(substr(cust_id,13,14),$2.),input(substr(cust_id,7,10),$4.));
cards;
150422193810130044;
run;

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：SUBSTR format Input Birth FORMA 程序

kankan

LZ的code有点小错误，可以这样写：

1. data m;
   
2. format cust_id $18. birth date9.;
   
3. input cust_id $18.;
   
4. birth=mdy(input(substr(cust_id,11,2),best.),input(substr(cust_id,13,2),best.),input(substr(cust_id,7,4),best.));
   
5. year=yrdif(birth,today(),'ACTUAL');
   
6. cards;
   
7. 150422193810130044
   
8. ;
   
9. run;

复制代码

birth1=intck('year',input(substr(cust_id,7,8),yymmdd8.),today());
birth2=int((today()-input(substr(cust_id,7,8),yymmdd8.))/365.25);
bitrh3=yrdif(input(substr(cust_id,7,8),yymmdd8.),today(),'actual');

data m;
format cust_id $18. birth date9.;
input cust_id $18.;
birth=input(substr(cust_id,7,8), yymmdd8.) ;
cards;
150422193810130044
;
run;

小小的问题糜集了很优秀的sas 使用者。真是受益匪浅，京剧。

yuerqieqie 发表于 2013-5-11 05:41
data m;
format cust_id $18. birth date9.;
input cust_id $18.;

是能实现我的要的结果。不知道这是什么原理呢？请高手指教！

zljwanzi25 发表于 2013-5-13 09:39
是能实现我的要的结果。不知道这是什么原理呢？请高手指教！

substr(cust_id,7,8)提取了19381013。input将字符串按照informat （这里是yymmdd8.）转换为数字。

“The INPUT function returns the value produced when a SAS expression is read using a specified informat.”

现在还有15位的身份证号吗？有的话就还需要做个区分。

上面说的都对
另外如果要保持下健壮性的话
可以用正则
网上关于身份证号的正则表达式很多
搜一下就好了