以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----    (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178455)

--  作者:yaojun
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间:2022/7/5 16:49:00
--  
e.DataRow("周数")=d1.Year & “年“ & DateDiff("ww",d2,d1)+1 & "周 " 
--  作者:yaojun
--  发布时间:2022/7/5 17:07:00
--  
谢谢