以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]获取周数第一天  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138115)

--  作者：kaiyu --  发布时间：2019/7/23 10:45:00 --  [求助]获取周数第一天 Dim d As Date = today()     Dim ss As String = System.Globalization.CultureInfo.CurrentCulture.Calendar.GetWeekOfYear(d, Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday).ToString 这个可以根据一个日期返回在本年是多少个周。 老师，如果给定一个周数，比如201930周，如何推算这一周开始第一天日期是多少。

--  作者：有点蓝 --  发布时间：2019/7/23 11:03:00 --   Dim 周数 As Integer = 30 Dim d As Date = new Date(Date.Today.Year,1,1) Dim w1 As Integer = d.DayOfWeek() Dim days As Integer = 8-w1+7*(周数-2) Output.Show(days) Output.Show(d.AddDays(days))