每週的條件不工作

我正在嘗試從系統的日期和時間獲取到期日期。獲得截止日期非常簡單，但讓標籤改變只是不起作用。我得到的結果通常是今天的日期。每週的條件不工作

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

我在做什麼錯？

來源

2014-12-23 Tarek Ghadieh

我認爲你正在試圖做的是：

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

來源

2014-12-23 14:14:05 Phylogenesis

不，仍然得到今天的日期，當我調用該函數，改變我的筆記本電腦的日期確認標籤只更改爲當前日期。 –

你期望什麼？您的代碼中唯一的日期是您專門設置爲「Now」的日期。 – Phylogenesis

我想根據一週中的哪一天添加X天數到今天的日期。 –

每週的條件不工作

回答

相關問題