如何获得当前周的开始日期和结束日期？

Question

由于本论坛的一个答案，我有一个返回我们现在所在的一年中的这一周的功能。现在我需要得到那个星期的最初日期和那个星期的最后一个日期。

我怎样才能做到这一点？

Protected Friend Function obtenerNumeroSemanas(ByVal dt As DateTime)
    Dim cal As Calendar = CultureInfo.InvariantCulture.Calendar
    Dim d As DayOfWeek = cal.GetDayOfWeek(dt)
    If (d >= DayOfWeek.Monday) AndAlso (d <= DayOfWeek.Wednesday) Then
        dt = dt.AddDays(3)
    End If
    Return cal.GetWeekOfYear(dt, CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)
End Function

Answer 1

Dim dayOfWeek = Cint(DateTime.Today.DayOfWeek)
Dim startOfWeek = DateTime.Today.AddDays(-1 * dayOfWeek)
Dim endOfWeek = DateTime.Today.AddDays(7 - dayOfWeek).AddSeconds(-1)
Console.WriteLine(startOfWeek)
Console.WriteLine(endOfWeek)

使用今天的日期(2016-06-19)

2016-06-19 12:00:00 AM
2016-06-25 11:59:59 PM

Answer 2

Dim dayOfWeek = CInt(DateTime.Today.DayOfWeek)
Dim startOfWeek = DateTime.Today.AddDays(+1 * dayOfWeek).ToShortDateString
Dim endOfWeek = DateTime.Today.AddDays(4 + dayOfWeek).AddSeconds(+1).ToShortDateString
MessageBox.Show(startOfWeek)
MessageBox.Show(endOfWeek)

下星期一和下星期五的约会

Answer 3

Dim结果$= DateTime.Today.AddMonths(-1).ToString("dd-MMM-yyyy")