感谢这个论坛的答案之一,我有一个函数可以返回我们现在所在的一年的当前一周。现在,我需要获取该周的初始日期和该周的最终日期。
我该怎么做?
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
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句