SAS程序请帮忙

我的问题如下：

对于第1条记录希望生成t1=2015/01/01加上1个月得到2015/02/01, t2=加上2个月得到2015/03/01，以此类推生成t3,t4
对于第2条记录则希望生成t1,t2,t3,t4,t5，生成的变量数量依赖于months所对应的值。
对于第3条记录则希望生成t1,t2,t3,t4,t5,t6



                time         months      
1         2015/01/01       4
2         2015/02/04       5
3         2015/02/07       6
……          ……              ……

应该怎样编制程序呢？

1. data a;
   
2. input time yymmdd10. months;
   
3. format time yymmdd10.;
   
4. cards;
   
5. 2015/01/01 4
   
6. 2015/02/04 5
   
7. 2015/02/07 6
   
8. ;
   
9. run;
   
10. proc sql noprint;
    
11.         select count(*) into:nobs from a;
    
12. quit;
    
13. %macro test;
    
14. 
    
15. %do obs=1 %to &nobs;
    
16. data a;
    
17.         set a;
    
18.         if _n_=&obs then call symputx('tmax',months);
    
19. run;
    
20. %put &tmax;
    
21. 
    
22. data a;
    
23.         set a;
    
24.         if _n_=&obs then do;
    
25.                 %do i=1 %to &tmax;
    
26.                 format t&i yymmdd10.;
    
27.                 t&i=intnx('month',time,1,'sameday');
    
28.                 %end;
    
29.         end;
    
30. run;
    
31. %end;
    
32. %mend;
    
33. %test

复制代码

我抛砖引玉，用个笨办法：
data a;
        id=1;time=mdy(1,1,2015);months=4;output;
        id=2;time=mdy(2,4,2015);months=5;output;
        id=3;time=mdy(7,7,2015);months=6;output;
        format time yymmdd10.;
run;

data b;
        set a;
        do i=1 to months;
                if month(time)+i<=12 then time1=mdy(month(time)+i,day(time),year(time));
                else time1=mdy(month(time)+i-12,day(time),year(time)+1);
                output;
        end;
        format time1 yymmdd10.;
run;
proc sort data=b;
        by id time months;
run;
proc transpose data=b out=c prefix=t;
        by id time months;
        var time1;
run;

假设你的档案命名为a
且month 以及是日期格式
就用下面这个方法
array也许可以 但是我不熟

%macro a;
data a;
   set a;
   %do i=1 %to 100;
       t&i=INTNX('MONTH',time,&i,'same');
         format t&i yymmddn8.;
       if &i>month then t&i=.;
   %end;
run;
%mend;
%a;

1. data input;
   
2.         input time months;
   
3.         informat time yymmdd10.;
   
4.         format time yymmdd10.;
   
5.         cards;
   
6.         2015/01/01 4
   
7.         2015/02/04 5
   
8.         2015/02/07 6
   
9.         ;
   
10. run;
    
11. 
    
12. proc sql noprint;
    
13.         select cat(max(months)) into :max_num from input;
    
14. quit;
    
15. 
    
16. data output;
    
17.         set input;
    
18.         array t(*) t1-t&max_num;
    
19.         format t1-t&max_num yymmdd10.;
    
20.         do i=1 to months;
    
21.                 t(i)=intnx('month',time,i);
    
22.         end;
    
23.         drop i;
    
24. run;

复制代码