我正在尝试计算两个日期之间的天数，不包括星期六 and Sundays。到目前为止我已经写了这段代码
Dim startDay As Integer
Dim endDay As Integer
Dim days As Integer
Dim count As Integer
startDay = dtpStartDate.Value.DayOfWeek
endDay = dtpEndDate.Value.DayOfWeek
For days = startDay To endDay
If days = 0 Or days = 6 Then 'Sunday = 0, Saturday = 6
count += 1
End If
Next
lblNoOfDays.Text = count
如果您选择同一周内的两个日期，效果很好。 （例如：1 月 23 日至 1 月 27 日，结果为 5）
但是，如果我将它们设置为不同星期的日期（例如：1 月 23 日到 1 月 30 日，给出结果 1），则会给出不正确的结果。
我知道这是由于循环而发生的，但我想不出一种方法来克服这个问题。谁能给我一个建议，解决方案？
谢谢
Dim count = 0
Dim totalDays = (dtpEndDate - dtpStartDate).Days
For i = 0 To totalDays
Dim weekday As DayOfWeek = startDate.AddDays(i).DayOfWeek
If weekday <> DayOfWeek.Saturday AndAlso weekday <> DayOfWeek.Sunday Then
count += 1
End If
Next
lblNoOfDays.Text = count
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
