以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excel报表中 < "党史学习教育工作推进情况汇总表" & [周数]> 有没有办法获取周数呢?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169341)

--  作者:cnsjroom
--  发布时间:2021/6/13 1:30:00
--  excel报表中 < "党史学习教育工作推进情况汇总表" & [周数]> 有没有办法获取周数呢?
< "党史学习教育工作推进情况汇总表" & [周数]>   有没有办法获取周数呢?

方法一:怎么在excel报表中用下列代码
Dim d1 As Date = Date.today()
Dim d2 As Date = new Date(d1.year,1,1)
Output.show(format(d1,"yyyy") & "年第" & DateDiff("ww",d2,d1)+1 & "周"  )
这个是判断当前时间是当年的第几周

Dim d1 As Date = Date.today()
Dim d2 As Date = new Date(d1.Year,d1.Month,d1.Month)
Output.show(d1.Year & "年第" & d1.Month & "月第" & DateDiff("ww",d2,d1)+1 & "周"  )
这个是判断当前时间是当年当月第几周

方法二:将上述代码直接获取得到的周写入表字段,然后再excel表中< "党史学习教育工作推进情况汇总表" & [周数]>   怎么获取呢?
当前模板效果如下:不能获取到【周数】的值。麻烦老师看看!


图片点击可在新窗口打开查看
[此贴子已经被作者于2021/6/13 23:53:26编辑过]

--  作者:有点蓝
--  发布时间:2021/6/13 20:03:00
--  
获取周数参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=16320


--  作者:cnsjroom
--  发布时间:2021/6/13 23:56:00
--  回复:(有点蓝)获取周数参考:http://www.foxtable....
谢谢老师  

根据你的指导  获取到周的方法
Dim calCommon  As New System.Globalization.GregorianCalendar()
Dim dt As Date = Date.Today
Return calCommon.GetWeekOfYear(dt, System.Globalization.CalendarWeekRule.FirstDay, 0)
提示当前周数为第25周,我还是沿用了我一楼的方法进行操作了

根据你的提示用变量   已经实现了我想要的数据显示   谢谢老师