Vb.net 如何使用日期时间选择器计算没有假日和周六、周日（VB）的某一天到某一天

如何使用日期时间选择器计算某一天到某一天（无假日和周六、周日）

休假人员制度 请帮帮我

从照片上看 左边是开始日期，右边是结束日期

---

然后，如果我同时选择date和date。然后在文本框中计算日期。。。如果Access数据库中没有星期日、星期六和假日…

计算从开始到结束的非星期六或星期日的天数：

    Dim startDate As Date = New DateTime(2016, 1, 1)
    Dim endDate As Date = DateTime.Now
    Dim currentDate = startDate
    Dim daysWithoutSatOrSun As Integer = 0

    Do
        If currentDate.DayOfWeek <> DayOfWeek.Saturday AndAlso currentDate.DayOfWeek <> DayOfWeek.Sunday Then
            daysWithoutSatOrSun += 1
        End If
        currentDate = currentDate.AddDays(1)
    Loop Until currentDate > endDate

    MessageBox.Show("Days " & daysWithoutSatOrSun)

---

一个可读选项是使用LINQ：

Dim days As Int32 = (d2 - d1).Days 
Dim weekend = {DayOfWeek.Saturday, DayOfWeek.Sunday }
Dim nonWeekendDays = From d in Enumerable.Range(0, days + 1)
                     Select day = d1.Date.AddDays(d)
                     Where Not weekend.Contains(day.DayOfWeek)
Dim countOfDays As Int32 = nonWeekendDays.Count()

如果您有包含假日的日期列表，您可以添加：

Where Not weekend.Contains(day.DayOfWeek) AndAlso Not holidays.Contains(day) 

---

我们如何知道这是否是一个假期？编写代码是一个好的开始…我在Access数据库上有假期，但我不知道如何使用它…>我们也不知道，因为您没有给我们任何代码，也没有对数据库的实际外观进行任何微调。我有Access上的假日数据库数据类型是Datetime。我将如何添加？如果我在数据库上有假期。我将如何使用？