VB.NET中的DateTime問題

Question

好的，所以我需要以編程方式找到本週一的日期。

例如，本週星期一是9號，所以我需要的日期：09/11/2009

當我們翻轉到下週它需要計算：16/11/2009

我已經嘗試過自己做這件事，但我看不出如何做算術，謝謝。

Answer 1

C＃：

date.AddDays(1 - (date.DayOfWeek == DayOfWeek.Sunday ? 7 : (int)date.DayOfWeek)); 

VB.NET：

date.AddDays(1 - IIf((date.DayOfWeek = DayOfWeek.Sunday), 7, date.DayOfWeek)) 

Answer 2

Dim thisMonday As Date = Now.AddDays((Now.DayOfWeek - 1) * -1).Date 

如果今天是星期天它提供了以下星期一否則，給出了本週一。

Answer 3

Return givenDate.AddDays(1 - CType(IIf((givenDate.DayOfWeek = DayOfWeek.Sunday), 7, givenDate.DayOfWeek), Double)) 

如果givenDate是星期天，則返回到前一個星期一。包含一個CType，將IIf結果轉換爲Double，與Option Strict On配合使用。