我需要找到一种方法来找到我们所在的任何一周的星期一的日期(DD/MM/YYYY)。
例如,对于本周,星期一将是2009年9月11日,如果是下周,则是2009年16月11日。
我设法以代码的形式得到了一些东西,但我得到的只是“无法转换为整数”的错误。我使用的是Date.Today和AddDays()。
谢谢你的帮助。:)
发布于 2009-11-11 03:32:03
如果星期天是一周的第一天,您可以简单地这样做:
Dim today As Date = Date.Today
Dim dayDiff As Integer = today.DayOfWeek - DayOfWeek.Monday
Dim monday As Date = today.AddDays(-dayDiff)
如果星期一是一周的第一天:
Dim today As Date = Date.Today
Dim dayIndex As Integer = today.DayOfWeek
If dayIndex < DayOfWeek.Monday Then
dayIndex += 7 'Monday is first day of week, no day of week should have a smaller index
End If
Dim dayDiff As Integer = dayIndex - DayOfWeek.Monday
Dim monday As Date = today.AddDays(-dayDiff)
发布于 2009-11-11 03:24:51
DateTime.DayOfWeek是一个枚举,它指示给定日期是哪一天。由于星期一是1,您可以使用以下代码查找当前周的星期一:
Dim monday As DateTime = Today.AddDays((Today.DayOfWeek - DayOfWeek.Monday) * -1)
发布于 2009-11-11 03:31:06
=Format(DateAdd("d", (-1 * WeekDay(Date.Today()) + 2), Date.Today()), "dd/MM/yyyy")
https://stackoverflow.com/questions/1710487
复制相似问题