请看个程序

1. data have;
   
2. input id $ year qtr;
   
3. cards;
   
4. 张生 1999 4
   
5. 张生 2001 4
   
6. 王五 1998 1
   
7. ;run;
   
8. 
   
9. data want;
   
10.   set have;
    
11. 
    
12.   do temp = year * 4 + qtr to (year + 3) * 4 + qtr;
    
13.     year = int(temp / 4) - ~mod(temp , 4);
    
14.         qtr = temp - year * 4;
    
15.     output;
    
16.   end;
    
17. 
    
18.   drop temp;
    
19. run;
    
20. 
    
21. proc sort nodupkey;
    
22.   by _all_;
    
23. run;

复制代码

因初次理解错误；如采纳答案，可把银子给@wodewin

Tigflanker 发表于 2015-12-3 11:31
因初次理解错误；如采纳答案，可把银子给@wodewin

谢谢  以后需要论坛币留个言就行   一千个还是可以无偿给的