以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  根据年度第几周，如何知道这周的起始日期？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105684)

--  作者：zhy400137 --  发布时间：2017/8/24 11:14:00 --  根据年度第几周，如何知道这周的起始日期？ 已知是当年的第34周，如何算出这一周的起始日期，和结束日期，求教，谢谢！ Dim d As Date = #1/1/2017# Dim d1 As Date = d.AddDays(34*7) \'加上40天 这样好像不对

--  作者：zhy400137 --  发布时间：2017/8/24 11:16:00 --   知道如何算了，谢谢！

--  作者：有点甜 --  发布时间：2017/8/24 11:40:00 --   Dim y As Integer = 2017 Dim w As Integer = 2 Dim start As Date = new Date(y, 1, 1) start = start.AddDays(-start.DayOfWeek) start = start.AddDays(7*(w-1)) msgbox(start)