以文本方式查看主题

-  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=26794)

--  作者:zhangqinyun
--  发布时间:2012/12/14 11:56:00
--  [求助]输入多少周,怎么返回起止日期??

比如输入49周,怎么算输开始日期和截止日期???


--  作者:lin_hailun
--  发布时间:2012/12/14 12:06:00
--  
 得先问一下,你计算周数的规则是否:每经历一个周日或者周六,周数就累加1?
[此贴子已经被作者于2012-12-14 12:07:14编辑过]

--  作者:lin_hailun
--  发布时间:2012/12/14 12:41:00
--  
 可以用下面的代码。改改就行了。

Dim start As Date = new Date(2012, 1, 1)
start = start.AddDays(7 * 49)
start.AddDays(1-start.DayOfWeek)
msgbox(start)

--  作者:zhangqinyun
--  发布时间:2012/12/14 13:32:00
--  
我咋没想到啊图片点击可在新窗口打开查看