请教个程序

如附件

你看下是不是你想要的结果

1. data rawdata;
   
2. input id$ stk$ year qtr;
   
3. qtr2=yyq(year, qtr);
   
4. format qtr2 yyq6.;
   
5. cards;
   
6. 1        2        1996        3
   
7. 1        2        1996        4
   
8. 1        2        1997        1
   
9. 1        3        1995        1
   
10. 1        3        1995        2
    
11. 1        3        1998        2
    
12. 1        3        1998        3
    
13. 1        3        1999        3
    
14. 2        3        1995        1
    
15. 2        3        1995        2
    
16. 2        3        1995        3
    
17. 2        3        1998        1
    
18. 3        3        1995        2
    
19. 3        3        1995        3
    
20. 3        3        1998        2
    
21. 3        3        2000        1
    
22. 3        4        1996        1
    
23. 3        4        1996        2
    
24. 3        2        1997        1
    
25. ;
    
26. run;
    
27. 
    
28. **数据整理;
    
29. proc sort data=rawdata(drop=year qtr) out=test;
    
30. by stk qtr2 id;
    
31. run;
    
32. data test2;
    
33.         set test;
    
34.         by stk qtr2 id;
    
35.         length ids $20.;
    
36.         retain ids cnt;
    
37.         if first.qtr2 then do
    
38.                 ids="";
    
39.                 cnt=0;
    
40.         end;
    
41.         ids=catx(',',ids,id);
    
42.         cnt+1;
    
43.         if last.qtr2 then output;
    
44.         drop id;
    
45. run;
    
46. 
    
47. **定义首次出现;
    
48. data test3;
    
49. set test2;
    
50. qtr_lag=lag(qtr2);
    
51. length remark $20.;
    
52. by stk;
    
53. if first.stk then remark="首次出现";
    
54. else if qtr_lag^=intnx('qtr',qtr2,-1) then remark="首次出现";
    
55. else remark="非首次出现";
    
56. drop qtr_lag;
    
57. run;
    
58. 
    
59. **数据整理;
    
60. data test4;
    
61. merge test3 test3(firstobs=2 keep=ids cnt rename=(ids=nextids cnt=nextcnt));
    
62. run;
    
63. data test4;
    
64. set test4;
    
65. by stk;
    
66. if last.stk then do nextids=.; nextcnt=0; end;
    
67. run;
    
68. 
    
69. **计算x\y\z;
    
70. data test5;
    
71.         set test4;
    
72.         if remark="首次出现" then
    
73.                 do;
    
74.                         x=cnt;
    
75.                         i=1;y=0;
    
76.                         do while(scan(nextids,i,',') ne "");
    
77.                                 if index(ids,scan(nextids,i,','))=0 then y=y+1;
    
78.                                 i+1;
    
79.                         end;
    
80.                 end;
    
81. drop i cnt nextcnt nextids;
    
82. if x+y>1 then z=(x-1)/(x+y-1);
    
83. run;

复制代码

哇塞，高价悬赏啊

没有会的朋友吗

如果描述不清楚可以提出

归结为几个问题：
1. 怎么算时间间隔。也许可以先把年月日拼起来，然后用intck()函数。或者索性给时间编一个号。例如：

1： 1996 Q1
2：1996 Q2
3： 1996 Q3
。。。

部分结果如下  

stk        year        qtr        z
3        1995        1        0.5
3        1998        1        0

teqel 发表于 2015-9-13 11:24
归结为几个问题：
1. 怎么算时间间隔。也许可以先把年月日拼起来，然后用intck()函数。或者索性给时间编一 ...

我最开始用的lag     后来发现还是多麻烦的

先建立一个时间列表, 然后把这个标志t放在你的数据后面；

1. data test;

复制代码

什么鬼论坛，怎么老是“小伙伴出错了？”