请问高手如何根据日期循环? 谢谢了！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问各位高手应该如何实现下面的功能，非常感谢！

有N个SAS数据名称为data_20110101，data_ 20110102，......data_ 20120318，data_ 20120319，文件名的数字是年月日。
希望实现的功能是通过指定X = xx来确定要扫描（提取，合并等等）哪些日期的文件。xx是天数，例如X = 180表示扫描从180天前到今天的所有文件。
另外，如果是扫描一段时间，例如sDate = 20110406，eDate = 20120123，又应该如何实现呢？

请各位高手指导，非常感谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Data date 如何实现 非常感谢 ATE 年月日 如何

在data步外加%do循环
然后把这些全部放到一个macro中完成

谢谢楼上，我的问题是下面语句当从20111231到20120101的时候，要循环上万次。
%do i = &startdate %to &enddate；

一个比较笨的方法，先在data步里面将要循环的data求出来，到导出成为txt文件，然后安文本格式重新读入，处理一下“-”这个字符，然后运用宏进行实现

嘿嘿，最近刚好有个任务也在做这个事情。。。可以参考一下。。。

1. %macro test(date_begin,date_end);
   
2. 
   
3. /*取开始时间date_begin的年，月，日*/
   
4. %let y_bgn=%sysfunc(year(&date_begin));
   
5. %let m_bgn=%sysfunc(month(&date_begin));
   
6. %let d_bgn=%sysfunc(day(&date_begin));
   
7. 
   
8. /*将开始时间date_begin转化为天数的形式，天数的形式是为了循环*/
   
9. %let dt_bgn=%sysfunc(mdy(&m_bgn,&d_bgn,&y_bgn));
   
10. 
    
11. %put &dt_bgn;
    
12. %put &date8_bgn;
    
13. 
    
14. /*取结束时间date_end的年，月，日*/
    
15. %let y_end=%sysfunc(year(&date_end));
    
16. %let m_end=%sysfunc(month(&date_end));
    
17. %let d_end=%sysfunc(day(&date_end));
    
18. 
    
19. /*将结束时间date_end转化为天数的形式，天数的形式是为了循环*/
    
20. %let dt_end=%sysfunc(mdy(&m_end,&d_end,&y_end));
    
21. 
    
22. %put &dt_end;
    
23. %put &date8_end;
    
24. 
    
25. %let string=;
    
26. 
    
27. %do i=&dt_bgn %to &dt_end;
    
28. 
    
29.         %let y=%sysfunc(year(&i));
    
30.         %let m=%sysfunc(month(&i));
    
31.         %let d=%sysfunc(day(&i));
    
32. 
    
33. /*八位数的形式是为了提取数据集*/
    
34.         %let date8=%eval(&y*10000+&m*100+&d);
    
35. 
    
36. /*将这些数据集名字连接到一起*/
    
37.         %let string=&string||data_&date8;
    
38. 
    
39. %end;
    
40. 
    
41. %put &string;
    
42. 
    
43. /*将||转化为空格*/
    
44. %let stringz=%sysfunc(tranwrd(&string,||, ));
    
45. 
    
46. %put &stringz;
    
47. %mend;
    
48. 
    
49. %test('8dec2011'd,'10jan2012'd);

复制代码

谢谢楼上，我自己弄了一个简单版的。

1. data _null_;
   
2.         edate='17mar2012'd;
   
3.         days=5;
   
4.         sdate=edate-days;
   
5.         do i=0 to days;
   
6.                 y=put(year(edate-i),$4.);
   
7.                 if month(edate-i)<10 then m='0'||put(month(edate-i),$1.);else m=put(month(edate-i),$2.);
   
8.                 if day(edate-i)<10 then d='0'||put(day(edate-i),$1.);else d=put(day(edate-i),$2.);
   
9.                 if week(edate+1-i*7)<10 then w='0'||put(week(edate+1-i*7),$1.);
   
10.                 else w=put(week(edate+1-i*7),$2.);
    
11.                 call symput('date'||strip(i),y||m||d);
    
12.                 call symput('wk'||strip(i),y||w);
    
13.         end;
    
14. run;

复制代码