proc import datafile='d:\sheet5.xlsx'
                dbms=xlsx
                out=test replace;
                range="Sheet5$A1:C61";
        getnames=yes;
run;
proc sort data=test;
        by id date;
run;
data test1;
        set test;
        by id;
        format date date9.;
        dy=weekday(date+3);
        diff=date-lag(date);
         interall=diff-int(diff/7)*2-(lag(dy)>dy)*2;
        if first.id then interall=1;
        drop dy diff;
run;