请教：sas中有没有程序或函数可以判断某一年是不是闰年

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教：sas中有没有判断某一年是否是闰年的函数或程序。或者能否判断year/4是整数的函数或程序呢？非常感谢解惑！
因为我的数据包括fyear1，endmonth，date。我现在需要取到相对于fyear1结束的那个月（endmonth）的最后一天开始数，往前的366天（对应于date）。
数据举例如下：
fyear1 endmonth  date             roa
2000   05            19980203     0.5
2000   05            19980204     0.6
......
我的想法是把fyear1这一年的endmonth的最后一天day找到，然后用fyear1和endmonth和day拼成字符型数据，再转换为日期时间型和date相减，保留值为0-365的。
由于endmonth中有2月份的数据，因此我需要判断年份是否为闰年，这个应该怎么判断呢？谢谢啦！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：有没有 month 字符型数据 mont year 程序

b=mdy(2,29,1981);
if (b=.) then .... not 闰年

if the year is a century year and is NOT divisible by 400 then that century year is NOT A LEAP YEAR.

I find an example online

http://www.sconsig.com/sastips/tip00039.htm         

Try this Macro.

option Symbolgen Mlogic Mprint;
%macro leapyr (year);
data _null_;
lst_dt="31Dec&year"d;
c=substrn(put(juldate7(lst_dt),7.),5,3);
if c ne "366" then put "&year is NOT Leap year.";
else put "&year is Leap year.";
run;
%mend leapyr;

%leapyr(2000);

---------
Results:
2000 is Leap year.
2001 is NOT Leap year.
2002 is NOT Leap year.
2003 is NOT Leap year.
2004 is Leap year.

1. %macro GetIsLeapYearForTable(SourceTable,TargetTable,DateVar,OutputVar);
   
2. 
   
3. /* 暂时关闭Log窗口输出 */
   
4. proc printto log='recycle bin';
   
5. run;
   
6. 
   
7. data &TargetTable;
   
8.         set &SourceTable;
   
9.         &OutputVar.=IFN(INPUT(CATT('29FEB',YEAR(&DateVar)),DATE9.),1,0);
   
10. run;
    
11. 
    
12. /* 恢复Log窗口输出 */
    
13. proc printto log=log;
    
14. run;
    
15. 
    
16. %exit:
    
17. %mend;
    
18. 
    
19. 
    
20. %macro Demo();
    
21. 
    
22. %let SourceTable=NAVOfFund;
    
23. %let TargetTable=TradeDayList;
    
24. %let DateVar=End_Date;
    
25. %let OutputVar=IsLeapYr;
    
26. %GetIsLeapYearForTable(&SourceTable,&TargetTable,&DateVar,&OutputVar);
    
27. 
    
28. %mend;

复制代码

如果楼主是想找到fyear1那一年endmonth对应的月的最后一天，可以用下面的代码：

data test;
  input fyear1 endmonth  date : yymmdd8.        roa;
  format date yymmdd8.;
  cards;
2000   02            19980203     0.5
2000   05            19980204     0.6
2000   07            19980203     0.5
2000   08            19980204     0.6
2000   11            19980203     0.5
2000   12           19980204     0.6
2100   02            19980203     0.5
2008   02            19980204     0.6
2200   02            19980203     0.5
2400   02            19980204     0.6
;

data want;
   set test;
   if endmonth ne 12 then newvar=put(mdy(endmonth+1,1,fyear1)-1,yymmdd10.);
   else newvar=put(mdy(endmonth,31,fyear1),yymmdd10.);
run;

tangliang0905 发表于 2013-1-15 22:42
if the year is a century year and is NOT divisible by 400 then that century year is NOT A LEAP YEAR. ...

thanks!

goldbaodi 发表于 2013-1-16 11:37
Try this Macro.

option Symbolgen Mlogic Mprint;

非常感谢！

playmore 发表于 2013-1-16 12:42

谢谢！

pobel 发表于 2013-1-16 13:04
如果楼主是想找到fyear1那一年endmonth对应的月的最后一天，可以用下面的代码：

data test;

嗯，对，我就是想找到endmonth对应的月份最后一天，谢谢啦！