主题：结果为0 请帮忙检查一下。谢谢！！

For Each tt As DataRow In DataTables("时间表").DataRows
    Dim d1 As Date = tt("开始时间")
    Dim d2 As Date = tt("结束时间")
    Dim d3 As Date = d1
    Dim w1 As Integer
    Dim w2 As Integer
    Dim w3 As Integer
    Dim w4 As Integer
    Dim w5 As Integer
   
    Do While d3<= d2
        Select Case d3.DayOfWeek
            Case 1
                w1 = w1 +1
            Case 2
                w2 = w2 +1
            Case 3
                w3 = w3 +1
            Case 4
                w4 = w4 +1
            Case 5
                w5 = w5 +1
        End Select
        d3 =d3.AddDays(1)
    Loop
   
    Select Case tt("星期")
        Case "星期一"
            tt("天数") = w1
        Case "星期二"
            tt("天数") = w2
        Case "星期三"
            tt("天数") = w3
        Case "星期四"
            tt("天数") = w4
        Case "星期五"
            tt("天数") = w5
    End Select
Next

 代码是没有问题的，你的【星期】列，如果填入了正确的【星期一】之类的数据，就肯定能得到正确的答案。