[求助]求某一日期位于第几周 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求某一日期位于第几周

共有2995人关注过本帖树形打印复制链接主题：[求助]求某一日期位于第几周

33888

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：114 积分：846 威望：0 精华：0 注册：2014/6/8 9:53:00

[求助]求某一日期位于第几周 发帖心情

Post By：2014/6/9 9:51:00 [只看该作者]

求某一日期位于第几周，请各位帮忙。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:第几周.table

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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)

33888

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：114 积分：846 威望：0 精华：0 注册：2014/6/8 9:53:00

Post By：2014/6/9 10:10:00 [只看该作者]

谢谢！

zsslly

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00

Post By：2016/4/18 22:36:00 [只看该作者]

看看

下一主题 >> << 上一主题

主题：[求助]求某一日期位于第几周