看看这个

如果数据量不太大，试试这个：
proc sql;
   create table wanted as
    select * from have
        where name not in
     (select distinct l.name
         from have as l, have as r
         where l.name=r.name and l.com=r.com and l.date ne r.date and intck("Year",l.date,r.date,"c")=0);
quit;

假设原始数据集为aproc sort data=a;
by name date;
run;

data b(drop=com date);
set a;
by name date;
if first.name then do;
comfirst=com;
datefirst=date;
output;
end;
run;
这样数据集b中就包含了每个人的第一个com

data c(keep=name);
merge a(in=ina) b(in=inb);
by name;
if comfirst=com  and date^=datefirst and date-datefirst<365 then output;
run;
数据集c中保留的是要删去的人的名字

data d;
merge a(in=ina) c(in=inc);
by name;
if ina and not inc;
run;

楼上的好像有个问题, 就是某人中间有两次公司重复了也会被删除.

楼上这个有相同的问题。而且也不总是看第一个公司

谢谢   请问你这个程序思路  是不是  确保    假如有两个同样的com的间隔着其他的com出现，那么这两个com出现的时间不能够小于365 ，否则删除