- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 能不能多一个星期 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49560)
-- 发布时间：2014/4/20 11:59:00
-- 能不能多一个星期
能不能在第二列显示周数的时候 多显示一周 让每个星期的节点是 星期天的24点（相当于要过星期天才能算下一周）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:周期多一周.table |
-- 发布时间：2014/4/20 12:11:00
--
Select e.DataCol.Name
Case "第一列"
If e.DataRow.IsNull(e.DataCol) = False Then
Dim d As Date = Date.Today
Dim start As Date = new Date(d.Year, 1, 1)
start = start.AddDays(1-start.DayOfWeek)
e.DataRow("第二列") = Math.Ceiling(((d- start).TotalDays + 1) / 7)
e.DataRow("第三列") = Date.Today
End If
End Select
[此贴子已经被作者于2014-4-20 12:11:02编辑过]
-- 发布时间：2014/4/20 12:12:00
--
|
| |
 点击浏览该文件:工作记录学习.table |
-- 发布时间：2014/4/20 13:04:00
--
有点甜兄弟 我能不能设置为在多加一个星期 比如 明天记录的时候 表就显示18的周了 因为第二列是记录下个星期的周期 。感谢 吃饭了没得！
-- 发布时间：2014/4/20 15:05:00
--
是这个意思？
Select e.DataCol.Name
Case "第一列"
If e.DataRow.IsNull(e.DataCol) = False Then
Dim d As Date = Date.Today
Dim start As Date = new Date(d.Year, 1, 1)
start = start.AddDays(1-start.DayOfWeek)
Dim zq As Integer = Math.Ceiling(((d- start).TotalDays + 1) / 7) + 1
If d.DayOfWeek = 0 Then
zq += 1
End If
e.DataRow("第二列") = zq
e.DataRow("第三列") = Date.Today
End If
End Select
-- 发布时间：2014/4/20 15:34:00
--
Select e.DataCol.Name
Case "第一列"
If e.DataRow.IsNull(e.DataCol) = False Then
e.DataRow("第二列") = DatePart("ww",Date.Today.AddDays(6))
e.DataRow("第三列") = Date.Today
End If
End Select
-- 发布时间：2014/4/20 16:20:00
--
实在是不好意思 ！刚才搞错被过昏了！
意思： 今天输入的是17周， 明天输入的就是18周了 ，相当于把星期天算在上一周里面，但是第二列要下一周的时间，不好意思 浪费你们的时间了。
-- 发布时间：2014/4/20 16:30:00
--
6楼就是你的意思。明天，第二列就会显示18