Foxtable(狐表) → 用户栏目 → 专家坐堂 → 周的起止日期


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

主题：周的起止日期
帅哥哟，离线，有人找我吗？
大红袍
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/17 15:54:00 [显示全部帖子]


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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/17 15:56:00 [显示全部帖子]

Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek '算出今天是星期几
If w = 0 Then w = 7
Dim dt1 As Date = Date.Today.AddDays(-w+1) '获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6-w+1) '获取本周的最后一天
msgbox(dt1)

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/22 11:58:00 [显示全部帖子]

如代码

 

Dim y As Integer = 2015
Dim w As Integer = 3
Dim start As Date = new Date(y, 1, 1)
start = start.AddDays(1-start.DayOfWeek)
start = start.AddDays(7*(w-1))
msgbox(start)
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/22 14:28:00 [显示全部帖子]


 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 5 次数据查询