data timeInput;
input shuttle $ time inTime: datetime.;
retain outTime;
if _n_=1 then do;
outTime=intnx('minute',InTime,time);
end;
if _n_>1 then do;
inTime=OutTime;
outTime=intnx('minute',InTime,time);*unit by minute;
end;
format inTime outTime datetime13.;
cards;
A1 50 08mar07:7:30
A2 80 .
A3 100 .
A4 1005 .
;
run;
proc print;run;
*没有年份的月日有时是没有意义的;