data data1;
input name $ date yymmdd10. amount;
cards;
A 2019-1-10 500
A 2019-1-11 500
A 2019-1-11 4000
A 2019-1-12 200
B 2019-1-2  5000
C 2019-1-20 400
C 2019-1-21 1000
;
run;

proc sort data=data1;
by name date;
quit;

data data2;
        set data1;
        by name;
        retain sum;
        if first.name then sum=0;
        sum+amount;
        if sum>=1500 then output;
run;

proc sql;
create table data3 as
select name, sum(amount) as total_amount from data1
group by name;
run;

proc sort data=data2 nodupkey;
by name;
quit;

proc sql;
        create table data4 as
        select a.name, a.total_amount, b.date
        from data3 as a left join data2 as b
        on a.name=b.name;
quit;

proc print data=data4;
        format date yymmdd10.;
quit;

谢谢您的解答，明天我试试您的方法