Hur får man smidigast fram datumen för den nuvarande veckan/månden?

Alltså idag är det t.ex. datumet 2006-04-12 och jag vill få fram 2006-04-10 och 2006-04-16 som är första och sista dagen i den nuvarande veckan.

Behöver också göra likadant med månaden få ut första och sista datumet i månaden.

<code>
Dim MånadensFörstaDag As DateTime = DateTime.Today.AddDays(1 - DateTime.Today.Day)
Dim MånadensSistaDag As DateTime = DateTime.Today.AddMonths(1).AddDays(-DateTime.Today.Day)
Dim VeckansFörstaDag As DateTime = DateTime.Today.AddDays(1 - Convert.ToInt32(DateTime.Today.DayOfWeek))
Dim VeckansSistaDag As DateTime = DateTime.Today.AddDays(7 - Convert.ToInt32(DateTime.Today.DayOfWeek))
</code>

/Johan

Tackar så mycket! Funkar kanon!