在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

从技术上讲，可以构建一个算法，根据联邦指南（在美国）确定主要假期，但它很复杂，可能不符合您构建此组件的公司的假期。

Answer 2

这个问题有两个主要组成部分 - 首先你需要一个公共假期列表，第二个你需要计算你所在地区工作日的星期几。

您可以对假期进行硬编码以获得快速解决方案，如果您希望此代码在未经修改的情况下继续工作，则需要Google通过一些算法/函数来计算您的假期。 以下是假期的一些示例计算函数的链接，包括Easter。 http://www.cpearson.com/EXCEL/holidays.htm

您的主要功能可以使用VB函数Weekday和WeekdayName（如果需要）与您的公共假期列表一起计算正常工作日的所有日期，这些日期不在您的公共假期列表中。

Answer 3

使用星期六和星期日的工作日功能。 假期取决于地点和国家，您需要为此实现自己的功能。

Answer 4

你需要计算每个有效的工作日，直到你到达第五个。 例如

index = 0
Do
  If dateValue.DayOfWeek <> DayOfWeek.Saturday _ 
      AndAlso dateValue.DayOfWeek <> DayOfWeek.Sunday _ 
      AndAlso Not HolidayList.Contains( dateValue ) Then

     index = index + 1
     If index >= 5 Then _
        Exit Do
  End If
  dateValue = dateValue.AddDays(1)
Loop