- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求开始日和截止日-已解決 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32544)
-- 发布时间：2013/5/3 20:40:00
-- 求开始日和截止日-已解決
此主题相关图片如下：bug.jpg
大概设置是这样的
在名为"主页"表
分別有 年列,月列,和周列
可以分別填上年,月,周
然后,
在开始日列,显示出对应該周数的星期一
在截止日列,显示出对应該周数的星期日
想了很久也不成功,求助!
[此贴子已经被作者于2013-5-9 10:09:45编辑过]
-- 发布时间：2013/5/3 21:41:00
--
Dim d As Date = #3/1/2013#
Dim d2 As Date = d.adddays(4*7-d.DayOfWeek)
Output.Show(d2) \'2013年3月第4周星期日
-- 发布时间：2013/5/3 22:57:00
--
第一个变量定义的日子,是想做到是可变的
就是像月列,可隨意改变为4月 ,1月,
年列和周列也一样,
要怎写才能灵活性?
-- 发布时间：2013/5/3 23:09:00
--
昏,还是要画公仔且画出肠子:
Dim y1,M2,W3 As Integer
y1 = 2013
M2 = 3
W3 = 4
Dim d As Date = Cdate("#" & M2 & "/1/" & y1 & "#")
Dim d2 As Date = d.adddays(W3*7-d.DayOfWeek)
Output.Show(d2) \'2013年3月第4周星期日
[此贴子已经被作者于2013-5-3 23:13:00编辑过]
-- 发布时间：2013/5/4 11:48:00
--
如何求得每年、每季度、每月、每星期的第一天和最后一天，可以在下面的帮助找到所有答案：
http://www.foxtable.com/help/topics/2720.htm
-- 发布时间：2013/5/4 19:56:00
--
我找到用NEW DATE 比较好设置
\'检测周
If e.Col.name = "周" Or e.Col.name = "月" Or e.Col.name = "年" Then
Dim y1,M2,W3 As Integer
y1 = Tables("主页")(0,"年")\'e.Row("年")
M2 = Tables("主页")(0,"月")\'e.Row("月")
W3 = Tables("主页")(0,"周")\'e.Row("周")
Dim d1 As New Date(y1,m2,1)
Dim d2 As Date = d1.adddays(6)
e.Row("开始日") = d1
e.Row("截止日") = d2
End If