DATA A;
INPUT TIME $20.;
CARDS;
2013/7/1 21:29
2013/7/1 21:29
2013/7/1 21:29
2013/7/1 21:29
2013/7/1 21:30
2013/7/1 21:32
2013/7/1 21:32
2013/7/1 21:32
2013/7/1 21:34
2013/7/1 21:34
2013/7/1 21:35
2013/7/1 21:35
2013/7/1 21:36
2013/7/1 21:37
2013/7/1 21:37
2013/7/1 21:37
2013/7/1 21:37
2013/7/1 21:38
;
RUN;
PROC SORT;
BY TIME;
DATA A;
SET A;
BY TIME;
IF LAST.TIME;
LAG_T=LAG(TIME);
IF LAG_T='' THEN LAG_T=TIME;
A1=SUM(INPUT(SCAN(TIME,1,' '),ANYDTDTM.),INPUT(SCAN(TIME,2,' '),ANYDTDTM.));
A2=SUM(INPUT(SCAN(LAG_T,1,' '),ANYDTDTM.),INPUT(SCAN(LAG_T,2,' '),ANYDTDTM.));
DIF_T=INTCK('MINUTE',A2,A1);/**为差的时间（min)***/
DROP A: LAG_T;
RUN;
PROC PRINT;
RUN;