- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]知道年数、周数，求当前周的第一天和最后一天 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=178384)
-- 发布时间：2022/7/2 12:09:00
-- [求助]知道年数、周数，求当前周的第一天和最后一天
老师好！
知道年数、周数，怎样求当前周的第一天和最后一天。
此主题相关图片如下：截屏图片 (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编辑过]
-- 发布时间：2022/7/2 12:38:00
--
1.按年推算第一周有几天
2.按年推算最后一周有几天
3.第一周天数+n周*7，可推算n周的第一天与最后一天。（n需小于最后一周）
4.如果是第一周或是最后一周，则单独推算。
-- 发布时间：2022/7/2 14:05:00
--
http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=96654