重赏！！！SAS 还款次数计算！！着急！！谢谢大家啦！！

问题如下：有4笔借款，想知道在新的借款发生时，之前已经还了多少比例？

借款排序(number)       借款日期(date)        借款期限(month)      第一次还款日期(借款1个月后） 第2次                第3次  ……
  1                                2012/12/03               3                          2013/01/03                           2013/02/03     2013/03/03
  2                                2013/03/02               6                          2013/04/02                           2013/05/02     2013/06/02                           
  3                                2013/03/29               6                          2013/04/29                           2013/05/29     2013/06/29
  4                                2013/06/03              12                         2013/07/03                           2013/08/03     2013/09/03


想要计算在每一次借款之前已经有多少还款？
例如对于2号借款：3月2日借款，此时第一笔借款已经还了两个月了，已经偿还次数为2/3
       对于3号借款：3月29日借款，此时第一笔借款已经全部还完(最后1次还款3月3日），而第二笔借款一次还没有还(因为第一次还款时间为4月2日），因此已经偿还次数为1
       对于4号借款：6月3日借款，此时第一笔借款已经全部还完，第二笔借款还了3次；第三笔借款还了2次；因此已经偿还次数为1+3/6+2/6
以此类拖
最终希望获得的格式为：

           偿还次数
  1               0         

  2             2/3
  3             1
  4            1+3/6+2/6

1. data borrow;
   
2. input no date_borrow months first second third;
   
3. informat date_borrow yymmdd10. first  yymmdd10. second  yymmdd10. third  yymmdd10.;
   
4. format date_borrow yymmdd10. first  yymmdd10. second  yymmdd10. third  yymmdd10.;
   
5. cards;
   
6. 1                                2012/12/03               3                          2013/01/03                           2013/02/03     2013/03/03
   
7. 2                                2013/03/02               6                          2013/04/02                           2013/05/02     2013/06/02                           
   
8. 3                                2013/03/29               6                          2013/04/29                           2013/05/29     2013/06/29
   
9. 4                                2013/06/03              12                         2013/07/03                           2013/08/03     2013/09/03
   
10. ;
    
11. run;
    
12. 
    
13. data sort(keep=k);
    
14. set borrow;
    
15. format k yymmdd10.;
    
16. k=first;
    
17. output;
    
18. k=second;
    
19. output;
    
20. k=third;
    
21. output;
    
22. run;
    
23. 
    
24. data index;
    
25. set borrow(keep=no date_borrow);
    
26. run;
    
27. 
    
28. proc sort data=sort;
    
29. by k;
    
30. run;
    
31. 
    
32. proc sort data=index;
    
33. by date_borrow;
    
34. run;
    
35. 
    
36. 
    
37. proc sql noprint;
    
38. create table result as select * from sort , index;
    
39. quit;
    
40. proc sort data=result;
    
41. by no;
    
42. run;
    
43. data result;
    
44. set result;
    
45. by no;
    
46. if date_borrow>=k;
    
47. run;
    
48. 
    
49. data result;
    
50. set result;
    
51. by no;
    
52. retain return;
    
53. if first.no then return=0;
    
54. return+1/3;
    
55. if last.no;
    
56. run;
    
57. proc sort data=index;
    
58. by no;
    
59. run;
    
60. data result(keep=no return);
    
61. merge result index;
    
62. by no;
    
63. if return=. then return=0;
    
64. run;

复制代码

1. data input;
   
2.         input idno applid loandate phases paydate1 paydate2 paydate3;
   
3.         informat loandate paydate1-paydate3 yymmdd10.;
   
4.         format loandate paydate1-paydate3 yymmdd10.;
   
5.         cards;
   
6.         1 1 2012/12/03 3 2013/01/03 2013/02/03 2013/03/03
   
7.           1 2 2013/03/02 6 2013/04/02 2013/05/02 2013/06/02
   
8.           1 3 2013/03/29 6 2013/04/29 2013/05/29 2013/06/29
   
9.         1 4 2013/06/03 12 2013/07/03 2013/08/03 2013/09/03
   
10.         ;
    
11. run;
    
12. 
    
13. data input1;
    
14.         set input;
    
15.         keep idno applid loandate phases paydate index;
    
16.         format paydate yymmdd10.;
    
17.         array pay(*) paydate1-paydate3;/*将最长期限的还款日取出来作为数组*/
    
18.         paydate=loandate;
    
19.         index=0;
    
20.         output;
    
21.         do i=1 to dim(pay);
    
22.                 if pay(i)>0 then paydate=pay(i);
    
23.                 index=1;
    
24.                 output;
    
25.         end;
    
26.         proc sort;by idno paydate;
    
27. run;
    
28. 
    
29. data output;
    
30.         set input1;
    
31.         retain cnt 0;
    
32.         if index=1 then cnt=cnt+1/phases;
    
33.         if index=0;
    
34.         drop index paydate;
    
35. run;

复制代码

用sql写起来会更简单一些，但是效率比较低