如何计算2个时间变量的差

现有数据集中有2个时间字段，都是精确到秒的，第一个是事件发生时间，第二个是结束事件，求中间间隔时间，结果显示为多少分多少秒。
具体数据集如下：
data aaaa;
input serv_id $ otherpart $ comm_type $ start_time datetime19.  end_time datetime19. ;
informat
serv_id $2.
otherpart $2.
comm_type $2.
start_time datetime19.
end_time   datetime19.;

format
serv_id $2.
otherpart $2.
comm_type $2.
start_time datetime19.
end_time   datetime19.;

cards;
a b 1 10NOV2012:03:40:19 10NOV2012:03:59:19
a c 1 10NOV2012:04:40:19 10NOV2012:05:15:19
a b 0 22NOV2012:16:22:11 22NOV2012:16:22:11                                
b a 1 02NOV2012:09:49:13 02NOV2012:09:59:19
c b 1 02NOV2012:13:00:19 02NOV2012:13:12:19
d l 0 26NOV2012:23:49:19 27NOV2012:01:59:19
;
run;

data aaaa;
input serv_id $ otherpart $ comm_type $ start_time datetime19.  end_time datetime19. ;
informat
serv_id $2.
otherpart $2.
comm_type $2.
start_time datetime19.
end_time   datetime19.;

format
serv_id $2.
otherpart $2.
comm_type $2.
start_time datetime19.
end_time   datetime19.;

diff= put(int((end_time-start_time)/60), best.) ||"Minutes"||","||put(mod(end_time-start_time,60), best.)||"seconds";

cards;
a b 1 10NOV2012:03:40:19 10NOV2012:03:59:19
a c 1 10NOV2012:04:40:19 10NOV2012:05:15:19
a b 0 22NOV2012:16:22:11 22NOV2012:16:22:11                                
b a 1 02NOV2012:09:49:13 02NOV2012:09:59:19
c b 1 02NOV2012:13:00:19 02NOV2012:13:12:19
d l 0 26NOV2012:23:49:19 27NOV2012:01:59:19
;
run;

楼主牛啊

1. data b;
   
2.     set aaaa;
   
3.     dif=cat(minute(intck('second',start_time,end_time)),'分',second(intck('second',start_time,end_time)),'秒');
   
4. run;

复制代码

zhengbo8 发表于 2013-4-4 21:09

感谢你的帮助，有2个问题请教你
1.如果我要精确到 几分钟零几秒钟  要怎么改呢？
2.如何在回复时吧自己的代码设置成像你这样的。我希望在自己力所能及的时候也能帮别人。呵呵。

lovelybetty1208 发表于 2013-4-4 21:21
感谢你的帮助，有2个问题请教你
1.如果我要精确到 几分钟零几秒钟  要怎么改呢？
2.如何在回复时吧自己 ...

注意红色部分！

zhengbo8 发表于 2013-4-4 21:26
注意红色部分！

因为另一位朋友完整地回答了我的问题，所以奖励给他了。不过我给你的回复评分作为补偿了。再次感谢你！

回答问题也是在学习知识。呵呵~