- 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=75142)
-- 发布时间：2015/9/28 15:17:00
-- [求助]日期问题
请老师帮忙，我想实现输入一个日期后，就自动算出每一周的开始日期和结束日期
第一周 2015/9/1 0:00:00 2015/9/5 0:00:00
第二周 2015/9/6 0:00:00 2015/9/12 0:00:00
第三周 2015/9/13 0:00:00 2015/9/19 0:00:00
第四周 2015/9/20 0:00:00 2015/9/26 0:00:00
第五周 2015/9/27 0:00:00 2015/9/30 0:00:00
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2015/9/28 15:22:00
--
序列填充
http://www.foxtable.com/help/topics/0140.htm
-- 发布时间：2015/9/28 15:35:00
--
谢谢老师，您理解错了，我的意思是通过代码来实现
-- 发布时间：2015/9/28 15:48:00
--
Dim d As Date = "2015-09-01"
Dim w As Integer = d.DayOfWeek
Dim dt As Date = d.AddDays(6 - w) \'获取本周的最后一天
Tables("表A").Rows(0)("起始日期") = d
Tables("表A").Rows(0)("结束日期") = dt
d = d.AddDays(-w)
For i As Integer = 1 To Tables("表A").Rows.count - 1
Dim r As Row = Tables("表A").Rows(i)
r("起始日期") = d.AddDays(7*i)
r("结束日期") = dt.AddDays(7*i)
Next