- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 周的起止日期 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78797)
-- 发布时间：2015/12/17 13:07:00
-- 周的起止日期
以下代码何以获得日期的周，如何获得该周的起止日期？谢谢
Dim dt11 As Date = Date.Today
Dim gc As System.Globalization.GregorianCalendar = new
System.Globalization.GregorianCalendar()
-- 发布时间：2015/12/17 15:54:00
--
http://www.foxtable.com/help/topics/2720.htm
-- 发布时间：2015/12/17 15:56:00
--
Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek \'算出今天是星期几
If w = 0 Then w = 7
Dim dt1 As Date = Date.Today.AddDays(-w+1) \'获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6-w+1) \'获取本周的最后一天
msgbox(dt1)
-- 发布时间：2015/12/22 11:47:00
--
现在知道了年和第几周，如何得出该周的起止日期呢？谢谢
-- 发布时间：2015/12/22 11:58:00
--
如代码
Dim y As Integer = 2015
Dim w As Integer = 3
Dim start As Date = new Date(y, 1, 1)
start = start.AddDays(1-start.DayOfWeek)
start = start.AddDays(7*(w-1))
msgbox(start)
-- 发布时间：2015/12/22 13:17:00
--
谢谢，管用。
另外，在使用1楼计算日期的周数时，常常出现以下窗口，求解。
此主题相关图片如下：rpg服务器不正常.jpg
-- 发布时间：2015/12/22 14:28:00
--
这种问题，百度
http://www.baidu.com/baidu?wd=RPC%B7%FE%CE%F1%C6%F7%B2%BB%BF%C9%D3%C3&tn=monline_4_dg