proc sort data=temp;by code date1 ;run;

data temp1;
        set temp;
        by code date1;
        lag=lag(date2);
        lag1=lag(varn);
        retain max;
        if first.code then max=date2;
        else max= ifc(lag>max,lag,max);
run;

data temp2;
        set temp1;
        by code date1;
        lagmax=lag(max);
        if first.code then lagmax='';
        retain sum;
        if first.code then do;sum=  varn; type=1; end;
        else if lagmax = max and date1<max then do; sum=sum+varn; type=2; end;
        else if lagmax<max and date1<max then do;sum=lag1+varn;  type=3; end;
        else if date1>=max then do;sum=varn; type=4; end;
        keep code date1 date2 varn sumvarn sum type;
run;

看看有没有理解错误
附件是完整program
[attach]2312245

data varn;
infile cards;
length date1 $30 date2 $30;
input code date1 $ date2 $ varn;
date1=input(date1,yymmdd10.);
date2=input(date2,yymmdd10.);
cards;
1 1998/3/22  1999/4/9  66
1 1998/6/21  1998/7/19  1
1 1998/9/1   1999/3/1   2
1 1999/3/8   2001/1/1   9
2 1996/3/2   1998/8/1   1
2 1998/9/3   1999/4/7   8
2 1998/10/1  1999/3/4   3
;
run;

/*规则是，对于同一个code，如果date1小于之前的date2，意味着还未到期，那么则累加满足上面条件的varn，得到sumvarn*/

data sumvarn;
  set varn;
  by code;
  retain sumvarn 0;
  if first.code then sumvarn = 0;
  if date1 < date2 then sumvarn = sumvarn + varn;
  else sumvarn = .;
run;

data varn;
        infile cards;
        length date11 $18. date22 $18.;
        input code date11 date22 varn;
        date1=input(date11,yymmdd10.);
        date2=input(date22,yymmdd10.);
        drop date11 date22;
        cards;
1 1998/3/22  1999/4/9  66
1 1998/6/21  1998/7/19  1
1 1998/9/1   1999/3/1   2
1 1999/3/8   2001/1/1   9
2 1996/3/2   1998/8/1   1
2 1998/9/3   1999/4/7   8
2 1998/10/1  1999/3/4   3
;
run;


额，你这测了么？
导入数据都有问题！
更新了一下

测了啊我生成dataset varn了啊.....

为啥会有空值呢？
那估计是我运行的问题。

不好意思，sumvarn的取值与表中所列的不一致

兄弟，上面我已经给出了sql的答案啊，

楼主，我上面给的sql代码，验证了吗？

可以给奖励吗？谢谢

不好意思   我今天才上   你给的我确实没有跑出来   

抛砖引玉了，用sql还是很简单的，主要是数据量大会慢。