在VB.net中获取下周的日期

在VB.net中，你今天会如何约会。然后找到下一周的星期一或星期五的日期。如果今天是星期四，我正在搜索下一个星期五，那么我想要明天的日期？

您可以使用枚举查找以下内容：

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
        Return now.AddDays(7 - delta)
    End If
End Function

使用您的示例，如果您调用：

Dim date = GetNextDate(DayOfWeek.Friday)

您将以字符串形式获得明天的日期

私有函数NextMonday（）
 Private Function NextMonday() As String
        Dim Tdate = DateTime.Now.AddDays(1)
        Do While Tdate.DayOfWeek <> DayOfWeek.Monday
            Tdate = Tdate.AddDays(1)
        Loop
        Return Tdate.ToShortDateString()
    End Function

Dim Tdate=DateTime.Now.AddDays（1）
星期一，星期一，星期一
Tdate=Tdate.AddDays（1）
环
返回Tdate.toSortDateString（）
端函数

解释为更好地理解您的答案而编写的代码。