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

共有5732人关注过本帖树形打印复制链接主题：周

yaojun

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

等级：二尾狐帖子：576 积分：4737 威望：0 精华：0 注册：2014/7/3 15:28:00

周

Post By：2022/7/5 16:46:00 [显示全部帖子]

请问如何把单纯的周（28周）改为“年+周”（如：22年28周），要不然查询不是很方便，代码如下：

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

谢谢

[此贴子已经被作者于2022/7/5 16:46:35编辑过]

yaojun

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

等级：二尾狐帖子：576 积分：4737 威望：0 精华：0 注册：2014/7/3 15:28:00

Post By：2022/7/5 17:07:00 [显示全部帖子]

谢谢

主题：周