首页 文章

如何获取当周的开始日期和结束日期?

提问于
浏览
2

由于本论坛的一个答案,我有一个函数可以返回我们现在的当前一周 . 现在我需要获得该周的初始日期和该周的最终日期 .

我怎么能做到这一点?

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

1 回答

  • 4
    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
    

相关问题