连续出现的变量的挑选和计数

求问大牛！有个数据集，类似以下吧：
Var      Date      item1      item2   
A      2001/12      1.1      1.2   
A      2002/12      2.1      2.2   
A      2003/12      3.1      3.2   
B      2001/12      4.1      5.1   
B      2003/12      5.1      5.2   
C      2001/12      6.1      6.2   
D      2003/12      7.1      7.2   
需要写段code，把连续两年以上（含）出现的变量给挑出来并计数 。比如，上面这个数据集，就可以把A给挑出来，并计数为1。
求指导阿！
谢谢！！

求指导阿！！

1. data test;
   
2. input Var$      Date$      item1      item2;
   
3. date1=substr(date,1,4)+0;
   
4. cards;
   
5. A      2001/12      1.1      1.2   
   
6. A      2002/12      2.1      2.2   
   
7. A      2003/12      3.1      3.2   
   
8. B      2001/12      4.1      5.1   
   
9. B      2003/12      5.1      5.2  
   
10. B      2003/12      5.1      5.2
    
11. C      2001/12      6.1      6.2   
    
12. D      2003/12      7.1      7.2   
    
13. ;run;
    
14. proc sql;
    
15. select *,1 as flag
    
16. from test group by var
    
17. having max(date1)-min(date1)+1=count(distinct(date1)) and count(distinct(date1))>1
    
18. order by date;
    
19. quit;

复制代码