vb.net 计算指定时间内的总天数、工作日天数和周末天数

Public Sub getDays()

        Dim dt1 As DateTime = New DateTime(2021, 10, 26)     '初始化一个日期
        Dim dt2 As DateTime = New DateTime(2021, 10, 31)     '初始化一个日期
        Dim ts1 As TimeSpan = dt2.Subtract(dt1)            'TimeSpan得到dt1和dt2的时间间隔
        Dim countday As Integer = ts1.Days + 1             '获取两个日期间的总天数
        Dim weekday As Integer = 0                                    '工作日

        '循环用来扣除总天数中的双休日
        For i = 0 To countday - 1
            Dim tempdt As DateTime = dt1.Date.AddDays(i)
            If tempdt.DayOfWeek <> System.DayOfWeek.Saturday And tempdt.DayOfWeek <> System.DayOfWeek.Sunday Then
                weekday = weekday + 1
            End If
        Next

        Response.Write("总天数：" + countday.ToString() & "</br>")
        Response.Write("工作日：" + weekday.ToString() & "</br>")
        Response.Write("节假日：" + （countday - weekday）.ToString())
    End Sub