VB.NET获取下一个周四日期出错，周五周六时结果异常求解决

你的代码问题出在delta <= 0时的天数计算逻辑错误，导致周五、周六调用时会算出超出预期的日期。比如当前是周五（对应整数5），目标是周四（对应整数4），delta = 4 - 5 = -1，原代码计算7 - delta得到8，相当于加8天，结果是下下周四，而非正确的下周四。

修正后的基础版本 #

Private Function GetNextDate(day As DayOfWeek) As DateTime
    Dim now As DateTime = DateTime.Today
    Dim today As Integer = CInt(now.DayOfWeek)
    Dim find As Integer = CInt(day)

    Dim delta As Integer = find - today
    If delta > 0 Then
        Return now.AddDays(delta)
    Else
        ' 当delta为负或0时，用7 + delta得到正确的间隔天数
        Return now.AddDays(7 + delta)
    End If
End Function

更简洁的模运算实现 #

用模运算可以统一处理所有情况，逻辑更清晰：

Private Function GetNextDate(day As DayOfWeek) As DateTime
    Dim today = DateTime.Today
    Dim daysToAdd = (CInt(day) - CInt(today.DayOfWeek) + 7) Mod 7
    
    ' 若当前日期就是目标星期几，返回下一周的对应日期
    ' 若需要返回当天，删除以下if判断即可
    If daysToAdd = 0 Then
        daysToAdd = 7
    End If
    
    Return today.AddDays(daysToAdd)
End Function

逻辑说明 #

• 模运算(目标星期几数值 - 当前星期几数值 + 7) Mod 7可以自动计算出从当前到下一个目标日的间隔天数，避免正负值的分支判断混乱。
• 当当前日期就是目标星期几时，daysToAdd会得到0，此时可根据需求选择返回当天或者下一周的对应日期（代码中默认返回下一周的）。

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