看看这样可不可以：

data test;
input id date : yymmdd10. dose freq;
format date yymmdd10.;
cards;
1 2006-9-30 25 1
1 2006-10-23 30 1
1 2006-10-24 30 1
2 2007-10-2 80 1
2 2007-10-4 90 1
2 2007-10-6 70 1
3 2008-3-1 50 1
3 2008-3-4 40 1
3 2008-3-8 45 1
4 2006-10-1 60 1
4 2006-10-2 35 1
4 2006-10-4 80 1
4 2007-1-1 70 1
4 2007-1-3 60 1
4 2007-1-4 50 1
;


data part1;
set test;
date1=lag(date);
dose1=lag(dose);
if id ne lag(id) then do;date1=.;dose1=.;end;

* stage;
retain stage 1;
if date1 ne . and date-date1>=7 then stage=stage+1;
if date1=. then stage=1;

* prepare for miss time;
if date1 ne . and 1<date-date1<7 then do;
  time=1;
  if date-date1>1 then act_time=date-date1-1;
  else act_time=0;
end;
else do;
  time=0;
  act_time=0;
end;

* prepare for during;
retain dur_date;
if _n_=1 then dur_date=date;
if date1=. or stage ne lag(stage) then dur_date=date;
dur=date-dur_date+1;
if dur<=2 then during=1;
else if 2<dur<=10 then during=2;
else if dur>10 then during=3;

* prepare for drug adjust times and dosage;
retain adj_time 0;
if stage ne lag(stage) then dose1=.;
if dose1 ne . and stage = lag(stage) then adj_dose=dose-dose1;
else adj_dose=0;
if dose1=. then adj_time=0;
else if adj_dose ne 0 then adj_time=adj_time+1;

drop dur_date dur dose1 date1;
run;

proc sql;
create table part2 as
select id, stage,
/* Begin date and end date / theoretic drug days */
  min(date) as st_date format=yymmdd10.,max(date) as end_date format=yymmdd10.,
  max(date)-min(date)+1 as theo_days,
/* Miss time and actual miss time */
sum(time) as miss_time, sum(act_time) as act_miss_days
from part1
group by 1,2;
quit;

* Miss variable;
proc sql;
create table miss as
select distinct id,stage,1 as miss from part1
where id in
(select distinct id from part1 where act_time ne 0
  group by id,stage having count(distinct act_time)=1);
quit;

proc sql;
create table part3 as
select a.*,ifn(miss=.,0,miss) as miss
from part2 a left join miss b
on a.id=b.id and a.stage=b.stage;
quit;

* Final datasets;
proc sql;
create table wanted as
select a.id,date,dose,freq,a.stage,b.st_date,b.end_date,b.miss_time,b.act_miss_days,
        b.theo_days,b.miss,during,adj_time,adj_dose
from part1 a left join part3 b
on a.id=b.id and a.stage=b.stage
order by 1,2;
quit;

非常感谢你，解决了我一个大问题，更多的是感激！看了你回复的其他帖子都很用心！3点32个赞！@wwang111

在运行你给的程序过程中，发现只有一个变量有一点小出入，所以再弱弱的追问一句关于是否规律漏服的问题，本意是，每一个病人治疗可能有几段即上面提到的stage，在每一个stage中如果一个病人确定有漏服现象（即以服药日期为准，如果小于7天（<7）不来服药即为漏服），想进一步生成一个变量叫是否规律漏服，以第一段治疗为例，如果每次漏服天数相同（见2号病人，都是隔一天来服药，当然只要隔的天数相同，不一定是1天），或者如4号病人第1段和第2段每次漏服的天数都<=2;则这两种情况下是否规律漏服=1；如果病人在某段内没有出现过漏服，即天天服药，则是否规律漏服=1；其他情况是否规律漏服=0；自己尝试了一下，还是花的时间有点长，也没有写出来；忙着写论文，所以再请教一下；呵呵

你的意思是如果没有漏服的情况下，miss=1? 就是ID=1的这个人的miss变量应该是1？
如果是这样，把miss variable那里改成这样：

* Miss variable;
proc sql;
create table miss as
select distinct id,stage,1 as miss from part1
group by 1,2
having sum(act_time)=0
union
select distinct id,stage,1 as miss from part1
where id in
(select distinct id from part1 where act_time ne 0
  group by id,stage having count(distinct act_time)=1);
quit;

    我的原始数据共有几千人,上百万记录,运行时发现的具体问题如下,其中有病人某一段治疗中每次漏服的天数不相等或不是都<=2天,如第一次漏服1天,第二次漏服3天,第三次漏服4天,结果miss=1;但是其实他不是规律漏服啊!我规律漏服的定义是：同一段治疗中病人每次漏服天数相同或都<=2;
    我现在解决的方案是把同一段治疗的人输出，如果他们漏服次数等于漏服总天数，但是好像不全，呵呵！我试试你给的新程序！  
   祝好！