重金币悬赏急问一道SAS 日期题！！

高金币悬赏急求问一道SAS题谢谢！
数据集对WBC有三个不同日期的测量值，变量按顺序如下：
OBS ID WBC1 WBC2 WBC3 Date1 $ Date2 $ Date3 $
问：1，转换文本型变量date1 date2 date3 为SAS date values
       2,用mmddyy informat打印问题1中的日期值（Print the date values from ‘1’ using mmddyy informat. ）
         3, We want to restructure this dataset from wide-format (also called multivariate format) to long format (also called univariate format). Use Array to restructure the data from wide-format to long-format for both WBC and date.

1 001 6734 7890 5698 23JAN2010 09APR2010 15OCT2010

2 002 4234 6759 4386 15FEB2010 01MAR2010 15MAY2010

3 003 9876 10390 8994 09JUL2010 14AUG2010 01NOV2010

谢谢！！

为了高金币，写一个

1. /*1*/
   
2. data a1;
   
3.         set a(rename=(Date1=oldDate1 Date2=oldDate2  Date3=oldDate3));
   
4.         array rr_a oldDate1-oldDate3;
   
5.         array rr_b Date1-Date3;
   
6.         do over rr_a;
   
7.                 rr_b=input(rr_a,date9.);
   
8.         end;
   
9.         drop oldDate:;
   
10. run;
    
11. 
    
12. /*2*/
    
13. proc print data= a1;
    
14.         var Date:;
    
15.         format Date: mmddyy10.;
    
16. run;
    
17. 
    
18. /*3*/
    
19. data a3;
    
20.    set a1;
    
21.    attrib  WBC  length=$5;
    
22.    attrib  DATE length=8 format=yymmdd10.;
    
23.    array rr_a WBC1-WBC3;
    
24.    array rr_b Date1-Date3;
    
25.    do over rr_a;
    
26.                    WBC=rr_a;
    
27.                 DATE=rr_b;
    
28.                 output;
    
29.    end;
    
30.    drop WBC1-WBC3 Date1-Date3;
    
31. run;

复制代码

data table;
infile cards;
input OBS ID $ WBC1 WBC2 WBC3 Date1 :date9.  Date2 :date9. Date3 :date9.;
format Date1 mmddyy10.  Date2 mmddyy10.  Date3 mmddyy10. ;
cards;
1 001 6734 7890 5698 23JAN2010 09APR2010 15OCT2010
2 002 4234 6759 4386 15FEB2010 01MAR2010 15MAY2010
3 003 9876 10390 8994 09JUL2010 14AUG2010 01NOV2010
;

proc print data= table ;
run;

data table1;
  set table;
  array datexx date1-date3;
  array wbcxx WBC1-WBC3;
  format date  mmddyy10. ;
  do i= 1 to 3 ;
  date= datexx;
  datevar=vname(datexx);
  WBC=wbcxx;
  WBCvar=vname(WBCxx);
  output;
  end;
  drop date1-date3 WBC1-WBC3 i;
run;

被骗了，到现在也没有金币

learsaas 发表于 2018-12-11 15:50
被骗了，到现在也没有金币

不好意思最近没到论坛看看。论坛币现在已经给你了。