data test;
input ID $ (DATE1 DATE2) (: yymmdd10.);
format DATE1 DATE2 yymmdd10.;
cards;
0001 2014/4/5 2014/4/22
0001 2015/2/11 2015/2/20
0002 2015/5/9 2015/5/17
0002 2015/6/2 2015/6/12
0002 2015/6/16 2015/6/20
0003 2015/7/6 2015/7/9
0003 2015/7/18 2015/7/23
0003 2015/11/23 2015/12/1
0004 2015/12/1 2015/12/7
0004 2015/12/20 2015/12/30
0005 2014/8/15 2014/8/16
;
run;
data test1;
set test;
by id;
date2=lag(date2);
if first.id=0 then day=date1-date2;
run;