怎么计算年龄 - 经管之家

怎么计算年龄

kimind

22602

收藏 2010-07-22

各位大虾们，知道每个人的出生年月，怎么计算所有人的年龄？

扫码加我拉你入群

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

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

全部回复

BraveMadMan

2010-7-23 01:18:25

age = floor
((intck('month',birth,somedate)
- (day(somedate) < day(birth))) / 12);

扫码加我拉你入群

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

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

librarynow

2010-7-23 01:30:10

data aaa;
input birthday mmddyy8.;
bday=put(birthday,mmddyy8.);
today=put(today(),mmddyy8.);
age=intck('year',birthday,today());
cards;
01251956
09021968
02181948
10271999
;
run;

扫码加我拉你入群

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

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

BraveMadMan

2010-7-23 04:03:04

librarynow 发表于 2010-7-23 01:30
data aaa;
input birthday mmddyy8.;
bday=put(birthday,mmddyy8.);
today=put(today(),mmddyy8.);
age=intck('year',birthday,today());
cards;
01251956
09021968
02181948
10271999
;
run;

有些年龄“四舍五入”了：

data aaa;
input birthday mmddyy8.;
format birthday mmddyy8.;
bday=put(birthday,mmddyy8.);
today=put(today(),mmddyy8.);
age=intck('year',birthday,today());
age1 = floor
((intck('month',birthday,today())
- (day(today()) < day(birthday))) / 12);
cards;
01251956
09021968
02181948
10271999
;
run;

Obs birthday    bday    today    age age1

1    01/25/56 01/25/56 07/22/10    54    54
2    09/02/68 09/02/68 07/22/10 42    41
3    02/18/48 02/18/48 07/22/10    62    62
4    10/27/99 10/27/99 07/22/10    11    10

扫码加我拉你入群

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

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

kimind

2010-7-23 13:00:09

4# BraveMadMan
你好，谢谢！如果在该数据集用yrdif函数计算年龄，程序是怎么样的？

扫码加我拉你入群

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

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

BraveMadMan

2010-7-23 13:14:03

kimind 发表于 2010-7-23 13:00
4# BraveMadMan
你好，谢谢！如果在该数据集用yrdif函数计算年龄，程序是怎么样的？

为什么不能用yrdif计算年龄？看SAS的官方答案：

“If you use the YRDIF function to calculate a person's age, you might get incorrect results. This function was designed for the Securities Industry to calculate interest for fixed income securities based on industry rules. Therefore, if you use this function in any other way, your calculation could be incorrect. SAS customers have reported incorrect results when using this function for calculating age. The function apparently does not take into account the extra day in leap years."

出处：http://support.sas.com/kb/36/977.html

扫码加我拉你入群

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

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

点击查看更多内容…

kimind

2010-7-23 13:38:06

6# BraveMadMan
谢了！

扫码加我拉你入群

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

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

librarynow

2010-7-23 22:44:58

BraveMadMan 发表于 2010-7-23 04:03
librarynow 发表于 2010-7-23 01:30
data aaa;
input birthday mmddyy8.;
bday=put(birthday,mmddyy8.);
today=put(today(),mmddyy8.);
age=intck('year',birthday,today());
cards;
01251956
09021968
02181948
10271999
;
run;
有些年龄“四舍五入”了：

data aaa;
input birthday mmddyy8.;
format birthday mmddyy8.;
bday=put(birthday,mmddyy8.);
today=put(today(),mmddyy8.);
age=intck('year',birthday,today());
age1 = floor
((intck('month',birthday,today())
- (day(today()) < day(birthday))) / 12);
cards;
01251956
09021968
02181948
10271999
;
run;

Obs birthday    bday    today    age age1

1    01/25/56 01/25/56 07/22/10    54    54
2    09/02/68 09/02/68 07/22/10 42    41
3    02/18/48 02/18/48 07/22/10    62    62
4    10/27/99 10/27/99 07/22/10    11    10

谢谢 BraveMadMan！学习了！

扫码加我拉你入群

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

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

zhentao

2010-7-24 18:47:41

学习，受教。

扫码加我拉你入群

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

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

Rock2000

2013-3-9 12:40:44

BraveMadMan 发表于 2010-7-23 13:14
为什么不能用yrdif计算年龄？看SAS的官方答案：

“If you use the YRDIF function to calculate a p ...

http://support.sas.com/kb/36/977.html

UPDATE TO THIS NOTE: 15JUL2011 A new option was added to YRDIF in SAS 9.3. This option is called AGE and can be used to calculate a person's age accurately.

好像SAS 9.13 SP4、SAS 9.3版修正这错误了，现在用yrdif可以计算年龄了。

data diff;
   sdate='20Sep1985'd;
   edate='20May2013'd;
   y30260=yrdif(sdate,edate,'30/360');
   yactact=yrdif(sdate,edate,'ACT/ACT');
   yact360=yrdif(sdate,edate,'ACT/360');
   yact365=yrdif(sdate,edate,'ACT/365');
   d30260=datdif(sdate,edate,'30/360');
   dactact=datdif(sdate,edate,'ACT/ACT');
   dact360=datdif(sdate,edate,'ACT/360');
   dact365=datdif(sdate,edate,'ACT/365');
      age=intck('year',sdate,edate);
      days=intck('day',sdate,edate);
   months=intck('month',sdate,edate);
      age1 = floor((intck('month',sdate,edate)- (day(edate) < day(sdate))) / 12);
      format sdate yymmdd10. edate yymmdd10.;
run;

proc print data=diff;
title "YRDIF/DATDIF/INTCK函数比较";
run;

在SAS 9.13 SP4 、 SAS 9.3上结果一致。

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群