怎么才能知道一段时间内几个周几？

Question

例如：
2003/10/01 至 2003/12/01 里有几个星期六?

Answer 1

首先用weedday(dateStart)算出其实时间是星期几，然后再算出两个时间段的天数差，再除以7就可以了。我是大概的说的，不过算两个时间段的差好象是有个函数的，你查查看！·

Answer 2

dim dateStart as date,dateEnd as date
dateStart=CDate("2003/10/01")
dateEnd=CDate("2003/12/01")
for i=1 to 7 
   if Weekday(dateStart)=7 then '默认从星期日开始，所以周六是第7天     
        eixt for
    end if
    dateStart=dateAdd("d",dateStart,1)
next idays=DateDiff ("d",dateStart,dateEnd)
weeks=days\7 +1   '结果