填补缺失的月份数据

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位大大求助：原数据：

应还时间	实还时间	应还金额	实还金额
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

1,2,3,4,7月份都没有还款，怎么把缺失的补上应还日期，实还日期，实还金额变成0，希望的效果如红色部分：

应还时间	实还时间	应还金额	实还金额
2016.01.28	2016.01.31	10000	0
2016.01.28	2016.02.29	10000	0
2016.01.28	2016.03.31	10000	0
2016.01.28	2016.04.30	10000	0
2016.01.28	2016.05.13	10000	1000
2016.01.28	2016.06.21	9000	1000
2016.01.28	2016.07.31	8000	0
2016.01.28	2016.08.03	8000	5000
2016.01.28	2016.08.20	3000	3000

希望各位大大帮助，万分感谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：万分感谢 红色部分 9000

1. data a;
   
2. informat ytime yymmdd10. stime yymmdd10.;
   
3. input ytime stime yvalue svalue;
   
4. format ytime yymmdd10.  stime yymmdd10.;
   
5. cards;
   
6. 2016-01-28         2016-05-13          10000        1000
   
7. 2016-01-28         2016-06-21          9000        1000
   
8. 2016-01-28         2016-08-03          8000        5000
   
9. 2016-01-28         2016-08-20          3000        3000
   
10. ;
    
11. data b;
    
12. informat ytime yymmdd10. stime yymmdd10.;
    
13. input ytime stime yvalue svalue;
    
14. format ytime yymmdd10. stime yymmdd10.;
    
15. cards;
    
16. 2016-01-28        2016-01-31        10000        0
    
17. 2016-01-28        2016-02-29        10000        0
    
18. 2016-01-28        2016-03-31        10000        0
    
19. 2016-01-28        2016-04-30        10000        0
    
20. 2016-01-28        2016-07-31        8000        0
    
21. ;
    
22. 
    
23. data a;
    
24. modify a b;
    
25. by stime;
    
26. if _iorc_=0 then replace;
    
27. else do;
    
28. _error_=0;
    
29. _iorc_=0;
    
30. output;
    
31. end;
    
32. run;
    
33. /*为了达到你的效果，再排序一下*/
    
34. proc sort data=a;by stime;run;

复制代码

1. data a;
   
2. informat ytime yymmdd10. stime yymmdd10.;
   
3. input ytime stime yvalue svalue;
   
4. format ytime yymmdd10.  stime yymmdd10.;
   
5. cards;
   
6. 2016-01-28         2016-05-13          10000        1000
   
7. 2016-01-28         2016-06-21          9000        1000
   
8. 2016-01-28         2016-08-03          8000        5000
   
9. 2016-01-28         2016-08-20          3000        3000
   
10. ;
    
11. data b;
    
12. informat ytime yymmdd10. stime yymmdd10.;
    
13. input ytime stime yvalue svalue;
    
14. format ytime yymmdd10. stime yymmdd10.;
    
15. cards;
    
16. 2016-01-28        2016-01-31        10000        0
    
17. 2016-01-28        2016-02-29        10000        0
    
18. 2016-01-28        2016-03-31        10000        0
    
19. 2016-01-28        2016-04-30        10000        0
    
20. 2016-01-28        2016-07-31        8000        0
    
21. ;
    
22. 
    
23. data a;
    
24. modify a b;
    
25. by stime;
    
26. if _iorc_=0 then replace;
    
27. else do;
    
28. _error_=0;
    
29. _iorc_=0;
    
30. output;
    
31. end;
    
32. run;
    
33. /*为了达到你的效果，再排序一下*/
    
34. proc sort data=a;by stime;run;

复制代码

你好，意思不对，实还时间：1,2,3,4,7这几个月份是没有数据的，我希望是代码自动生成：应还时间取本身的应还时间，实还时间取缺失月份的最后一天，应还金额取下一月有的金额，实还金额取0；也就是说红色部分是不存在的，是造出来的数据

1. data actual;
   
2. informat ytime yymmdd10. stime yymmdd10.;
   
3. input ytime stime yvalue svalue;
   
4. format ytime yymmdd10.  stime yymmdd10.;
   
5. month=month(stime);
   
6. cards;
   
7. 2016-01-28         2016-05-13          10000        1000
   
8. 2016-01-28         2016-06-21          9000        1000
   
9. 2016-01-28         2016-08-03          8000        5000
   
10. 2016-01-28         2016-08-20          3000        3000
    
11. ;
    
12. 
    
13. /*生成一月份的末日*/
    
14. data first_mori;
    
15. informat ytime yymmdd10. etime yymmdd10.;
    
16. input ytime etime;
    
17. format ytime yymmdd10.  etime yymmdd10.;
    
18. cards;
    
19. 2016-01-28         2016-01-31
    
20. ;
    
21. run;
    
22. 
    
23. /*利用数组生成二月到十月的末日*/
    
24. data mori(keep=ytime etime);
    
25. ytime='28jan2016'd;
    
26. ytime1='2016-01-28';/*假如提供的是字符型日期*/
    
27. mori0=intnx('month',input(ytime1, anydtdte.),0,'e');
    
28. array mori(*) mori1-mori11;
    
29. do i=1 to dim(mori);/*数组下标不能从0开始*/
    
30. mori(i)=intnx('month',input(ytime1, anydtdte.),i,'e');/*间隔i个月最后一天*/
    
31. etime=mori(i);
    
32. format ytime mori0 mori1-mori11 etime yymmdd10.;
    
33. output;
    
34. end;
    
35. run;
    
36. 
    
37. /*生成所有月份末日*/
    
38. data allmori;
    
39. set first_mori mori;
    
40. month=month(etime);
    
41. run;
    
42. 
    
43. /*生成需要填补的每月末日*/
    
44. proc sql;
    
45. create table supplement as
    
46. select ytime,etime
    
47. from allmori where not exists
    
48. (select *
    
49. from actual
    
50. where allmori.month=
    
51. actual.month);
    
52. run;
    
53. 
    
54. /*重命名为了后面的合并变量*/
    
55. data supplement_1;
    
56. set supplement(rename=(etime=stime));
    
57. svalue=0;
    
58. run;
    
59. 
    
60. /*set语句纵向拼接数据集*/
    
61. data youneed(drop=month);
    
62. set actual supplement_1;
    
63. run;
    
64. proc sort data=youneed;by descending stime;run;
    
65. 
    
66. /*retain函数复制上一条观测值，因为是之前是降序排序，相当于取下一条观测*/
    
67. data youneed1(drop=yvalue);
    
68. retain ytime stime yvalue1 svalue;
    
69. set youneed;
    
70. if yvalue^=. then yvalue1=yvalue;
    
71. run;
    
72. 
    
73. /*重命名换原你的变量名*/
    
74. data youneed1;
    
75. set youneed1(rename=(yvalue=yvalue1));
    
76. run;
    
77. /*最后升序排序一下，大功告成*/
    
78. proc sort data=youneed1;by stime;run;

复制代码

zwnSAS121 发表于 2017-1-9 16:47

感谢大神帮忙！

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;

scarlettzouyu 发表于 2017-1-9 18:16
data a;
informat repay_time yymmdd10. repayed_time yymmdd10.;
input repay_time repayed_time repay_ ...

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

zwnSAS121 发表于 2017-1-9 19:18
程序是比较简洁，但是不是客户的需求啊

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