老师好！知道年数、周数，怎样求当前周的第一天和最后一天。
此主题相关图片如下：截屏图片 (2).jpg
Dim year As String = "1992" '年数
Dim week As String = "53" '周数
'周日为0第一天
Dim d As Date = New Date(year, 1, 1)
Dim w = d.DayOfWeek
Output.Show(w)
Dim startdate As Date
Dim Enddate As Date
Dim Enddate5 As Date ’周5
'Select Case week
' Case "1"
' startdate = d
' Enddate = d.AddDays(7 - w)
' Case "53"
' startdate = d.AddDays(7 - w).AddDays(7 * 51)
' Enddate = d.AddYears(1)
' Case Else
startdate = d.AddDays(7 - w).AddDays(7 * (val(week) - 2))
Enddate = startdate.AddDays(6)
Enddate5 = startdate.AddDays(5)
'End Select
Output.Show(startdate & " - " & Enddate & " - " & Enddate5)
[此贴子已经被作者于2022/7/3 19:34:17编辑过]
加好友 
发短信
Post By：2022/7/2 12:09:00 [显示全部帖子]
