DateTime question in VB.NET

Question

Ok, so I need to find the date of Monday this week programmatically.

For example, for this week Monday was on the 9th, so the date I need is: 09/11/2009

And

Answer 1

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

If givenDate is a Sunday, counts back to the preceding Monday. Includes a CType to cast the IIf result to a Double to work with Option Strict On.

Answer 2

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

If today is a Sunday it gives the following Monday otherwise, gives the Monday this week.

Answer 3

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))