以文本方式查看主题 -  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=138362)

--  作者：有点蓝 --  发布时间：2019/7/29 20:10:00 --   Dim d As Date = Date.Today Dim s As String = System.Globalization.CultureInfo.CurrentCulture.Calendar.GetWeekOfYear(Date.today, Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday).ToString Output.Show("周次=" & s)