data data1;
set data;
by id;
date_sas=input(date, anydtdte.);
interval_lag=lag(date_sas)/7;
if first.id then interval=0;
else interval=interval_lag;
run;