由于本论坛的一个答案,我有一个函数可以返回我们现在的当前一周 . 现在我需要获得该周的初始日期和该周的最终日期 .
我怎么能做到这一点?
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 回答
使用今天的日期(2016-06-19)结果