- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求某一日期位于第几周 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52092)
-- 发布时间：2014/6/9 9:51:00
-- [求助]求某一日期位于第几周
求某一日期位于第几周，请各位帮忙。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:第几周.table |
-- 发布时间：2014/6/9 10:02:00
--
DataColChanged事件
If e.DataCol.name="日期" AndAlso e.DataRow.IsNull("日期")=False Then
Dim d1 As Date = e.DataRow("日期")
Dim d2 As new Date(d1.Year,1,1)
e.DataRow("第几周")=DateDiff("ww",d2,d1)+1
End If
-- 发布时间：2014/6/9 10:04:00
--
灵活控制，就这样写代码
Dim d As Date = Date.Today
Dim start As Date = new Date(d.Year, 1, 1)
start = start.AddDays(1-start.DayOfWeek)
Dim w As Integer = Math.Ceiling(((d- start).TotalDays + 1) / 7)
msgbox(w)
-- 发布时间：2014/6/9 10:10:00
--
谢谢！
-- 发布时间：2016/4/18 22:36:00
--
看看