两个日期中间有多少个周一周二周三等等

shiyiming

不好意思有打扰到大家。
我想接着上面一个问题询问一下怎样计算两个日期中间有多少个周一周二。。。周日。
比如说该数据如下，

data x;
input time1 time2;
cards;
01jan09 02feb09
03mar09 09mar09
28jul08 06jun09
30oct09 01apr10
;

不胜感谢

shiyiming

左端点不包括在内
[code:2di11kwh]data raw(drop=i);
        input time1 :date7. time2 :date7.;
        array day_{7} day_7 day_1-day_6;
        do i=1 to dim(day_);
                day_(i)=intck('week',time1,time2)+(i gt weekday(time1))+(weekday(time2) ge i)-1;
        end;
        format time: yymmdd10.;
cards;
01jan09 02feb09
03mar09 09mar09
28jul08 06jun09
30oct09 01apr10
;[/code:2di11kwh]