Function 周天数条件不起作用

我正在尝试根据系统的日期和时间获取到期日期。获得到期日是很简单的，但是改变标签是行不通的。我得到的结果通常是今天的约会

Public Function FindDueDate()

    Dim Due As Date = Now

    If DayOfWeek.Monday Then
        DueDate.Text = Due.AddDays(14).ToString
    ElseIf DayOfWeek.Tuesday Then
        DueDate.Text = Due.AddDays(13).ToString
    ElseIf DayOfWeek.Wednesday And Hour(Now) < 16 Then
        DueDate.Text = Due.AddDays(12).ToString
    ElseIf DayOfWeek.Wednesday And Hour(Now) >= 16 Then
        DueDate.Text = Due.AddDays(19).ToString
    ElseIf DayOfWeek.Thursday Then
        DueDate.Text = Due.AddDays(18).ToString
    ElseIf DayOfWeek.Friday Then
        DueDate.Text = Due.AddDays(17).ToString
    ElseIf DayOfWeek.Saturday Then
        DueDate.Text = Due.AddDays(16).ToString
    ElseIf DayOfWeek.Sunday Then
        DueDate.Text = Due.AddDays(15).ToString
    End If

End Function

公共函数FindDueDate（）
Dim到期日期=现在
如果是星期一，那么是星期一
DueDate.Text=Due.AddDays（14）.ToString
星期二，星期二
DueDate.Text=Due.AddDays（13）.ToString
星期三和（现在）16点以前
DueDate.Text=Due.AddDays（12）.ToString
星期三和小时（现在）>=16
DueDate.Text=Due.AddDays（19）.ToString
星期四，星期四
DueDate.Text=Due.AddDays（18）.ToString
星期五，星期五
DueDate.Text=Due.AddDays（17）.ToString
星期六，星期六
DueDate.Text=Due.AddDays（16）.ToString
如果是星期二，那么是星期天
DueDate.Text=Due.AddDays（15）.ToString
如果结束
端函数

---

我做错了什么？

我想你想做的是：

Public Function FindDueDate()
    Dim Due As Date = Now

    If Due.DayOfWeek = DayOfWeek.Monday Then
        DueDate.Text = Due.AddDays(14).ToString
    ElseIf Due.DayOfWeek = DayOfWeek.Tuesday Then

    ...

    End If

End Function

---

不，当我调用函数时，仍然会得到今天的日期，更改笔记本电脑上的日期只会确认标签更改为当前日期。你期望什么？代码中唯一的日期是您专门设置为

Now

的日期。我想根据一周中的哪一天为今天的日期添加X天。