0

我正在尝试获取当前周的日期（周一 - 周日）。

这是我当前的代码：

    Dim kw As Integer = DatePart(DateInterval.WeekOfYear, Now, , FirstWeekOfYear.FirstFourDays)
            If DatePart(DateInterval.Weekday, Now, Microsoft.VisualBasic.FirstDayOfWeek.Sunday) = 6 Then
                kw = kw + 1
            End If
            Dim CurrDateFirstDay As Date = DateAdd(DateInterval.Day, 1, ReturnDateForWeekNumber(kw))
            For i = 1 To 7


                strCurrDay = FormatDateTime(CurrDateFirstDay, DateFormat.LongDate)

........

我的问题是我的代码从 16.01.2013 开始，最后日期是下周 22.01.2013 星期四。这是为什么？为什么他从 2013 年 1 月 16 日星期三而不是 2013 年 1 月 14 日星期一开始？为什么我会得到下周的返回日期？我在做什么错？

编辑：

ReturnDateForWeekNumber:

Public Shared Function ReturnDateForWeekNumber(ByVal iWeek As Integer) As DateTime
    Return DateAdd(DateInterval.WeekOfYear, iWeek - 1, FirstDayOfYear)
End Function
4

2 回答 2

3

我究竟做错了什么？

您应该像我一样在调试器中单步执行您的代码并观察结果：

Dim kw As Integer = DatePart(DateInterval.WeekOfYear, Now, , FirstWeekOfYear.FirstFourDays)

这将返回当前周，即第 3 周。

If DatePart(DateInterval.Weekday, Now, Microsoft.VisualBasic.FirstDayOfWeek.Sunday) = 6 Then
    kw = kw + 1
End If

这将检查工作日是否是一周的第 6 天（星期五）。我们不是星期五，所以如果没有输入条件。

Dim CurrDateFirstDay As Date = DateAdd(DateInterval.Day, 1, ReturnDateForWeekNumber(kw))

这会将 ReturnDateForWeekNumber 的结果增加一天，返回：

Return DateAdd(DateInterval.WeekOfYear, iWeek - 1, FirstDayOfYear)

这会在一年的第一天（1 月 1 日）增加 2 周（第 3 周减去 1）周，即星期二。1 月 1 日 + 2 周 = 1 月 15 日。

现在请记住，您将一天添加到 ReturnDateForWeekNumber，这就是为什么CurrDateFirstDay值为 1 月 16 日。

编辑

我认为您的代码过于复杂，并且使用了很多遗留的 VB6 函数。我会这样做：

Dim myDate As Date = DateTime.Today
Dim dayDiff As Integer = myDate.DayOfWeek - DayOfWeek.Monday
Dim currentDay As Date = myDate.AddDays(-dayDiff) 'Monday

For i = 1 to 7
    Console.WriteLine(currentDay)
    'Do something with current day
    currentDay = currentDay.AddDays(1)
Next

您可能需要针对您的情况进行一些调整，但我相信这种方法更简单且不易出错。

于 2013-01-14T13:51:36.313 回答
0 
    Dim dateStartDateOfWeek As Date = GetWeekStartDate(52, 2014)
    Dim dateEndDateOfWeek As Date = DateAdd(DateInterval.Day, 7, dateStartDateOfWeek)

Private Function GetWeekStartDate(ByVal weekNumber As Integer, ByVal year As Integer) As Date
    Dim startDate As New DateTime(year, 1, 1)
    Dim weekDate As DateTime = DateAdd(DateInterval.WeekOfYear, weekNumber - 1, startDate)
    Return DateAdd(DateInterval.Day, (-weekDate.DayOfWeek) + 1, weekDate)
End Function
于 2015-02-25T09:48:39.540 回答