如何使用宏循环产生连续的yyyymm月份文本

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

　　需求是这样的：数据源在多张数据集中，表名大约是dat_yyyymm，即201111、201112、201201、201202……
我需要做一项功能，在用户设置了开始日期、结束日期，比如201111至201202，然后合并这些表中指定条件的指定字段，那么我可以：
select &retain.
from (
    select &retain. from dat_201111 where &condition.
    union all
    select &retain. from dat_201112 where &condition.
    union all
    select &retain. from dat_201201 where &condition.
    union all
    select &retain. from dat_201202 where &condition.
)
group by ...
如果用宏循环该如何做到生成连续的含有yyyymm月份的文本（且中间不能出现分号啊）呢？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：如何使用 宏循环 condition Select RETAIN 数据源 where 如何 用户

帮你写了一个生成年月列表的代码

1. data date;
   
2.         input yy  mm;
   
3. datalines;
   
4. 2010 1
   
5. ;
   
6. run;
   
7. 
   
8. data date1;
   
9.         set date;
   
10.         if _N_=1 then output;
    
11.         do until(yy=2012 and mm=12);
    
12.                 if mm<12 then do;
    
13.                         yy=yy;
    
14.                         mm=mm+1;
    
15.                         output;
    
16.                 end;
    
17.                 else do;
    
18.                         yy=yy+1;
    
19.                         mm=1;
    
20.                         output;
    
21.                 end;
    
22.         end;
    
23. run;

复制代码

生成了一个宏变量 &time
就是你所要求的连续月份，且中间位空格分开的字段

data a;
do i=1900 to 2050;
do j=1 to 12;
  output;
  end;
end;
run;

data a;
set a;
if j>=10 then month=compress(i||j);
else month=compress(i||'0'||j);
run;

data b;
set a;
where month between '200901' and '201012';
run;
data b;
set b;
format time $10000.;
if _n_=1 then do; time=month; retain time; end;
else time=compress(time||'*'||month);
a='z';
run;
data b;
set b;
by a;
if last.a;
time=tranwrd(time,'*',' ');
keep time;
run;

proc sql noprint;
select time into: time
from b;
quit;

1. %macro yyyymm_range(s_yyyymm,e_yyyymm);
   
2. %local yyyymm;
   
3. %let yyyymm=&s_yyyymm.;
   
4. %do %while(&yyyymm.<=&e_yyyymm.);
   
5. &yyyymm.
   
6.     %if %substr(&yyyymm.,5,2)=12 %then %let yyyymm=%eval((%substr(&yyyymm.,1,4)+1)*100+1);
   
7.     %else %let yyyymm=%eval(&yyyymm.+1);
   
8. %end;
   
9. %mend;
   
10. 
    
11. %macro get_months(s_yyyymm,e_yyyymm);
    
12. %local s_yyyy e_yyyy s_mm e_mm months;
    
13. %let s_yyyy=%substr(&s_yyyymm.,1,4);
    
14. %let e_yyyy=%substr(&e_yyyymm.,1,4);
    
15. %let s_mm=%substr(&s_yyyymm.,5,2);
    
16. %let e_mm=%substr(&e_yyyymm.,5,2);
    
17. %let months=%eval((&e_yyyy.-&s_yyyy.)*12+(&e_mm.-&s_mm.)+1);
    
18. &months.
    
19. %mend;
    
20. 
    
21. %let months=%yyyymm_range(201111,201202);
    
22. %do i=1 %to %get_months(201111,201202);
    
23.     %let yyyymm=%scan(&months.,&i.);
    
24.     %put &yyyymm.;
    
25. %end;

复制代码

我自己写的宏方案，更具通用性。