[求助]输入多少周，怎么返回起止日期？？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]输入多少周，怎么返回起止日期？？

共有9208人关注过本帖树形打印复制链接主题：[求助]输入多少周，怎么返回起止日期？？

lin_hailun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/14 12:06:00 [显示全部帖子]

得先问一下，你计算周数的规则是否：每经历一个周日或者周六，周数就累加1？

[此贴子已经被作者于2012-12-14 12:07:14编辑过]

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：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)

主题：[求助]输入多少周，怎么返回起止日期？？