主题：在某一期间算出周六周日的天数

【求助】:在某一期间算出周六周日的天数.如图
此主题相关图片如下：aaa.png

请假的天数 = 开始请假日期至结束请假日期的天数 - 开始请假日期至结束请假日期的天数这段期间周六周日的天数。

请教各位大虾们啊。

楼上求的是总天数，不是周六周日天数。

这个才对：

Dim d1 As Date = #3/17/2002 12:30#
Dim d2 As Date = #1/1/2008 18:30#
Dim t As TimeSpan = d2 - d1
Dim cnt As Integer
For i As Integer = 0 To t.TotalDays
    Dim d As Date = d1.AddDays(i)
    If d.DayOfWeek = 6 OrElse d.DayOfWeek = 0 Then
        cnt = cnt + 1
    End If
Next
Messagebox.show("节假日数:" & cnt)