很生硬的代码 能做出结果 很难看懂

data one;
input id @6 start yymmdd9.   money @23 end yymmdd9.;
cards;
3631 2013/8/23 2500   2013/8/24
3631 2013/8/24 2364.1 2013/8/27
3632 2013/8/25 2221   2013/8/25
3632 2013/8/26 2121   2013/8/29
;;;
run;
proc sort data=one;
by id;
data two(drop=nstart nend m) ;
set one;
by id;
retain nend nstart m p;


if first.id then do;
if end -start le 0 then do;
p=0; m=.;
output;
end;
else do;
nstart= start;
nend=end;
m=money;
end;
end;

if last.id then do;

if start-nend=0 then do;
if end-start > 0 then p=1;
else p=0;
output;
end;

else  do;
p=0;
output;
end;

if m ne . then do;
id=id;
start=nstart;
money=m;
end=nend;
p=p;
output;
end;

end;
run;

proc sort data=two;
by id start;
run;

还有没有更简洁的呢？比如用宏来做？

我上次没有表达清楚，我又把条件修改了一下，能不能再帮我看看，麻烦了！

怎么看不见了呢，自己顶一下！

没有做过多测试，楼主可以试验一下：

data two;
   set one end=last;
   by id start;
   if not last then set one(firstobs=2 keep=start end rename=(start=next_start end=next_end));
   if last.id then call missing(next_start,next_end);

   retain valid 0;
   if (end=next_start) and (.<start<end) and (.<next_start<next_end) then valid=1;
   else if not last.id then valid=0;
   drop next:;
run;