以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]输入多少周,怎么返回起止日期?? (http://foxtable.net/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 -- 我咋没想到啊 |