data a;
informat repay_time yymmdd10. repayed_time yymmdd10.;
input repay_time repayed_time repay_money  repeyed_money;
format repay_time yymmdd10.  repayed_time yymmdd10.;

cards;
2016-01-28         2016-05-13          10000        1000
2016-01-28         2016-06-21          9000        1000
2016-01-28         2016-08-03          8000        5000
2016-01-28         2016-08-20          3000        3000
2016-02-16         2016-02-23                   5000                   3000
2016-02-16                   2016-03-25          5000        500
2016-02-16         2016-06-30          5000                   100
2016-03-03         2016-03-03          8000        1000
2016-03-03         2016-05-13          8000        1000
2016-03-03         2016-07-03          8000        1000
2016-03-03         2016-09-03          8000        500
2016-04-03         2016-07-30          12000       1000
2018-04-25                   2018-07-25          10000            2000
;
data  a1;
set a;
do i=0 to 25;
end_of_month= intnx('month',repay_time, i,'e');
format end_of_month yymmdd10.;
if repay_time<end_of_month<repayed_time then  output;
end;
run;

程序是比较简洁，但是不是客户的需求啊

你这程序目的是满足什么需求？