求助：用Visual Basic .NET编写计算指定月份周五数量的代码

下面是一段简洁的VB.NET代码，用来计算指定年份和月份里周五的总数量：

Function CountFridaysInMonth(year As Integer, month As Integer) As Integer
    ' 获取当月第一天
    Dim firstDayOfMonth As New DateTime(year, month, 1)
    ' 计算当月最后一天的日期
    Dim lastDayOfMonth As DateTime = firstDayOfMonth.AddMonths(1).AddDays(-1)
    
    ' 找到当月第一个周五：如果第一天不是周五，就往后推到周五
    Dim firstFriday As DateTime = firstDayOfMonth.AddDays((5 - firstDayOfMonth.DayOfWeek + 7) Mod 7)
    
    Dim fridayCount As Integer = 0
    ' 从第一个周五开始，每次加7天，直到超过当月最后一天
    Do While firstFriday <= lastDayOfMonth
        fridayCount += 1
        firstFriday = firstFriday.AddDays(7)
    Loop
    
    Return fridayCount
End Function

代码说明 #

• 先用DateTime(year, month, 1)获取目标月份的第一天，再通过AddMonths(1).AddDays(-1)得到当月最后一天，避开手动计算不同月份天数的麻烦。
• (5 - firstDayOfMonth.DayOfWeek + 7) Mod 7用来计算从第一天到第一个周五的偏移天数：DayOfWeek枚举里周日为0、周五为5，这个公式能兼容第一天是任意星期的情况。
• 循环累加7天，每遇到一个周五就计数+1，直到日期超出当月范围。

示例用法 #

' 计算2024年2月的周五数量
Dim fridaysInFeb2024 As Integer = CountFridaysInMonth(2024, 2)
Console.WriteLine($"2024年2月共有 {fridaysInFeb2024} 个周五")

运行这段代码会输出2024年2月共有 4 个周五，和实际日历一致。

内容的提问来源于stack exchange，提问作者Walid Mohamed