Dim year As Integer = 2024
Dim week As Integer = 1
Dim d As Date = New Date(year, 1, 1)
Dim w = d.DayOfWeek
Dim startdate As Date
Dim Enddate As Date
Select Case week
Case 0
startdate = d
Enddate = d.AddDays(7 - w - 1)
Case 53
startdate = d.AddDays(7 - w).AddDays(7 * 51)
Enddate = d.AddYears(1).AddDays( - 1)
Case Else
startdate = d.AddDays(7 - w).AddDays(7 * (week - 2))
Enddate = startdate.AddDays(6)
End Select
Output.Show(startdate & "-" & Enddate)
[此贴子已经被作者于2024/5/30 9:18:49编辑过]