筛选需要的数值

数据.rar (90.61 KB) 本附件包括：

• q434837243c6a20e3.sas7bdat

2014-7-31 22:46:37 上传

数据

这是数据， 我需要每个CD每年的最后一个日期的第三列值 比如STKCD 1中2009年最后一个是20091015 那么它的值是3105433762.00 ；再比如2010年中最后一个日期是20101231只需要他的值3485013762.00 总的来说就要每个ID每一年最后的值输出，如果某些年份没有则自动默认上一年的第三列值。有没有高手解决下这个问题？

Lakeyi 发表于 2014-8-1 11:27
搞好了！有个问题就是 有的是从2006年开始的 有的是2001年  能不能都2001年开始

1. data input1;
   
2.         set input;/*你的数据集*/
   
3.         SHRCHGYR=year(SHRCHGDT);
   
4.         proc sort;by STKCD SHRCHGYR;
   
5. run;
   
6. 
   
7. data output;
   
8.         set input1;
   
9.         by STKCD SHRCHGYR;
   
10.         retain SHRCHGDT1 NSHRTTL1;
    
11.         if first.STKCD then do;
    
12.                 first_year=SHRCHGYR;
    
13.                 SHRCHGDT1=SHRCHGDT;
    
14.                 NSHRTTL1=NSHRTTL;
    
15.         end;
    
16.         /*从2001年开始*/
    
17.         if first_year>2001 then do;
    
18.                 do i=2001 to first_year-1;
    
19.                         SHRCHGDT1=mdy(12,31,i);
    
20.                         output;
    
21.                 end;
    
22.         end;
    
23.        
    
24.         do i=year(SHRCHGDT1)+1 to SHRCHGYR-1;
    
25.                 SHRCHGDT1=mdy(12,31,i);
    
26.                 output;
    
27.         end;
    
28. 
    
29.         SHRCHGDT1=SHRCHGDT;
    
30.         NSHRTTL1=NSHRTTL;
    
31. 
    
32. 
    
33.         format SHRCHGDT1 YYMMDDN8.;
    
34. 
    
35.         if last.SHRCHGYR then output;
    
36. 
    
37.         /*如果需要到2012结束,不需要请注释掉*/
    
38.         if last.STKCD then do;
    
39.                 do i=SHRCHGYR+1 to 2012;
    
40.                         SHRCHGDT1=mdy(12,31,i);
    
41.                         output;
    
42.                 end;
    
43.         end;
    
44.        
    
45.         keep STKCD SHRCHGDT1 NSHRTTL1;
    
46. run;
    
47.                

复制代码

求高手知道，可以提价噢=。=

请排序后用last.x语句输出便可(你文档的日期变量是shrchgdt）：

proc sort data = abcd;
by stkcd shrchgdt;
run;

data test;
  set abcd;
  by stkcd;
  if last.stkcd then output;
run;

jiangpinggu 发表于 2014-7-31 23:54
请排序后用last.x语句输出便可(你文档的日期变量是shrchgdt）：

proc sort data = abcd;

不是的，我需要每个ID 每年的的最后一个日期  不是就一个日期

如果同一个ID(你的ID指的应该是stkcd吧，如果不是，则假设id是stkcd，日期是shrchgdt)有多年数据，假设你的文档数据集名是abcd，则：
data tmp;
  set abcd;
  yr=year(shrchgdt);
run;

proc sort data = tmp;
by stkcd shrchgdt;
run;

data test(drop=yr);
  set tmp;
  by stkcd yr;
  if last.yr then output;
run;

呵呵，完成了一半，还要你补缺失年份呢？

jiangpinggu 发表于 2014-8-1 01:10
如果同一个ID(你的ID指的应该是stkcd吧，如果不是，则假设id是stkcd，日期是shrchgdt)有多年数据，假设你的 ...

大哥还能不能补充年份呢 没有的年份是默认上一年的

1. data input1;
   
2.         set input;/*你的数据集*/
   
3.         SHRCHGYR=year(SHRCHGDT);
   
4.         proc sort;by STKCD SHRCHGYR;
   
5. run;
   
6. 
   
7. data output;
   
8.         set input1;
   
9.         by STKCD SHRCHGYR;
   
10.         retain tmp_year tmp_amt;
    
11.         if first.STKCD then do;
    
12.                 tmp_year=3000;
    
13.                 tmp_amt=0;
    
14.         end;
    
15.         do while(tmp_year<SHRCHGYR-1);
    
16.                 tmp_year=tmp_year+1;
    
17.                 SHRCHGDT1=mdy(12,31,tmp_year);
    
18.                 NSHRTTL1=tmp_amt;
    
19.                 output;
    
20.         end;
    
21. 
    
22.         tmp_year=SHRCHGYR;
    
23.         tmp_amt=NSHRTTL;
    
24. 
    
25.         SHRCHGDT1=SHRCHGDT;
    
26.         NSHRTTL1=NSHRTTL;
    
27. 
    
28.         format SHRCHGDT1 YYMMDDN8.;
    
29. 
    
30.         if last.SHRCHGYR then output;
    
31.        
    
32.         keep STKCD SHRCHGDT1 NSHRTTL1;
    
33. run;
    
34.                

复制代码

freerunning_sky 发表于 2014-8-1 11:02

报错咧=。=