vb.net - 在VB中，计算每月的第5个工作日

Question

在VB中，我可以使用什么编码来计算每个月的第5个工作日？而如果第五天是假期就涨一天。

Answer 1

您需要一个要比较的假期日期列表。您需要单独构建和存储该列表。你没有说 VB 的变体(VBA？VB.NET？)，但在 VB.NET 中你可以这样做:

Dim datevalue As DateTime = New DateTime(DateTime.Year, DateTime.Month, 1)
Dim dayIsFound As Boolean = False
Dim workDays As Integer

workDays = 1
While Not dayIsFound
    If ( dateValue.DayOfWeek <> DayOfWeek.Saturday _ 
        And dateValue.DayOfWeek <> DayOfWeek.Sunday _ 
        And Not HolidayList.Contains( dateValue )  _ 

        workDays = workDays + 1
    End If

    If  index >= 5 Then
        dayIsFound = True
    Else
        dateValue = dateValue.AddDays(1)
    End If
End While

从技术上讲，可以构建一种算法来根据联邦准则(在美国)确定主要假期，但它很复杂，并且可能不符合您为其构建此组件的公司的假期。