| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教根据第几周星期几获取该天日期 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34687) |
| -- 作者：atmetmicoo -- 发布时间：2013/6/12 21:49:00 -- 请教根据第几周星期几获取该天日期 请教高手： 我想根据：某年、第几周、星期几这三个条件获取该天的日期，例如，根据条件： 2013年第23周星期一 ，得出日期为：2013年6月3日，请问程序如何实现?
[此贴子已经被作者于2013-6-12 21:50:05编辑过]
|
| -- 作者：don -- 发布时间：2013/6/12 23:53:00 -- 這樣試試: Dim Y1,J2,xqj As Integer Dim d1,d2 As Date Y1 =2013 \'年份 J2 =23 \'第幾周 xqj =1 \'星期幾 d1= New Date(Y1,1,1) d1=d1.AddDays(xqj -d1.DayOfWeek) d2=d1.AddDays(7*J2-7) Output.Show(d2) [此贴子已经被作者于2013-6-12 23:56:11编辑过]
|
| -- 作者：atmetmicoo -- 发布时间：2013/6/15 22:01:00 -- 多谢Don的热心帮助，很好用 |