急！！如何用SAS成生时间段变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

各位大神，帮帮忙，不胜感谢！！！！
DATA.xlsx (9.81 KB)

2014-11-22 12:21:47 上传

我有如下数据：

如何用SAS 程序生成时间段的变量，将上述数据变成如下格式：

具体形式见EXCEL文件“DATA”.
会的大神帮帮忙啊~~~

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：时间段变量 如何用 时间段 EXCEL exce 时间段 EXCEL 如何 程序

木有人会吗…………

顶一下，哪位大神帮帮忙

用24个变量再用if

1. /* 变量名要以字符a-z 或 ＿ 开头，不能用数字。*/
   
2. 
   
3. data have;
   
4. input ID$  TIME time5.;
   
5.   format time time5.;
   
6. datalines;
   
7. 001        9:45
   
8. 002        6:45
   
9. 003        4:30
   
10. 004        21:56
    
11. 005        12:09
    
12. 006        23:40
    
13. 007        14:00
    
14. 008        13:09
    
15. 009        16:39
    
16. 010        19:04
    
17. 011        20:01
    
18. 012        0:03
    
19. 013        23:01
    
20. 014        17:45
    
21. ; run;
    
22. 
    
23. data want;
    
24.     set have;
    
25.     array TP{24} ;
    
26.     format TP1-Tp24 time5.;
    
27.        label TP1 = "0:00~~0:59"
    
28.              TP2 = "1:00~~1:59"
    
29.              TP3 = "2:00~~2:59"
    
30.              TP4 = "3:00~~3:59";
    
31.      TP[hour(time)+1] = time;
    
32. run;

复制代码

1. data one;
   
2. input ID TIME $;
   
3. TIMEN = input(TIME,time5.);
   
4. cards;
   
5. 001        9:45
   
6. 002        6:45
   
7. 003        4:30
   
8. 004        21:56
   
9. 005        12:09
   
10. 006        23:40
    
11. 007        14:00
    
12. 008        13:09
    
13. 009        16:39
    
14. 010        19:04
    
15. 011        20:01
    
16. 012        0:03
    
17. 013        23:01
    
18. 014        17:45
    
19. ;run;
    
20. 
    
21. data two;
    
22.   if 0 then set one;
    
23.   if _n_ = 1 then do time1 = 0 to 23 by 1;
    
24.     output;
    
25.   end;
    
26. 
    
27.   set one;
    
28. 
    
29.   do time1 = 0 to 23 by 1;
    
30.     if input(cats(time1,':00'),time5.) <= timen < input(cats(time1 + 1,':00'),time5.) then output;
    
31.   end;
    
32. run;
    
33. 
    
34. proc transpose data = two out = three(drop = _NAME_) prefix = TIME;
    
35.   by id;
    
36.   id time1;
    
37. run;
    
38. 
    
39. data three;
    
40.   set three;
    
41.   where id;
    
42.   format TIME0 - TIME23 time5.;
    
43. run;

复制代码

下次直接贴数据喔，下载附件是要花银子的，虽然俺是温饱。

yongyitian 发表于 2014-11-23 21:55

TP[hour(time)+1] = time; 这句好

Tigflanker 发表于 2014-11-23 22:14
下次直接贴数据喔，下载附件是要花银子的，虽然俺是温饱。

下附件还要币的啊……我都不知道…………
谢谢大神~~大神V5~~