data have;
   input date : yymmdd10.;
   format date yymmdd10.;
   n1=date-"15Aug2008"d;
   n2=date-"10Oct2008"d;
   obs=_n_;
   cards;
2008-6-27
2008-7-30
2008-8-5
2008-8-27
2008-9-2
2008-9-17
2008-10-10
2009-1-29
2009-2-24
2009-3-13
2009-3-26
2009-4-2
2009-6-5
;

proc sql noprint;
    select distinct obs into :v1 from have where n1=(select min(n1) from have where n1>=0);
        select distinct obs into :v2 from have where n2=(select min(n2) from have where n2>=0);
quit;

data wanted;
    set have;
        n1=obs-&v1;
        n2=obs-&v2;
        drop obs;
run;

data have;
   input date : yymmdd10.;
   format date yymmdd10.;
   n1=date-"15Aug2008"d;
   n2=date-"10Oct2008"d;
   retain num1 num2;
   num1+(n1<0); lag1=lag(n1);
   num2+(n2<0); lag2=lag(n2);
   if lag1<0 and n1>=0 then  call symputx("num1",num1);
   if lag2<0 and n2>=0 then  call symputx("num2",num2);
   drop num1 num2 lag1 lag2;
   cards;
2008-6-27
2008-7-30
2008-8-5
2008-8-27
2008-9-2
2008-9-17
2008-10-10
2009-1-29
2009-2-24
2009-3-13
2009-3-26
2009-4-2
2009-6-5
;

data wanted;
   set have;
  n1=_n_-&num1-1;
  n2=_n_-&num2-1;
run;

3# pobel


我的宗旨是在别人的启发下，自己再想一想，是在提高自己。当然哈哈，赏金嘛，其次其次。

SOPOR:水就水吧。没有水货，哪有真金？