Foxtable(狐表)用户栏目专家坐堂 → [求助]周次求日期


  共有2115人关注过本帖树形打印复制链接

主题:[求助]周次求日期

帅哥哟,离线,有人找我吗?
qwz405
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:526 积分:5083 威望:0 精华:0 注册:2015/4/15 15:25:00
[求助]周次求日期  发帖心情 Post By:2016/4/26 11:02:00 [只看该作者]

是否有函数,可以计算给定周次相对应的日期。

例如: 
已知:2016年第18周,
需要获得:此周的第一天是2016-04-24,当然也就知道周一、二……

 回到顶部
帅哥哟,离线,有人找我吗?
包头123
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1049 积分:8150 威望:0 精华:0 注册:2011/10/11 11:13:00
  发帖心情 Post By:2016/4/26 11:08:00 [只看该作者]

好问题,将来狐表应该提供一个。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/26 11:12:00 [只看该作者]

参考代码

 

Dim y As Integer = 2016
Dim w As Integer = 18
Dim start As Date = new Date(y, 1, 1)
start = start.AddDays(-start.DayOfWeek)
start = start.AddDays(7*(w-1))
msgbox(start)


 回到顶部