以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  根据日期判断年度第几周  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131482)

--  作者:爱相随
--  发布时间:2019/2/27 15:19:00
--  根据日期判断年度第几周
老师,如果在A列输入日期,在B列自动算出是年度的第几周,怎么处理??请指点,谢谢!!
--  作者:有点甜
--  发布时间:2019/2/27 15:23:00
--  

参考代码

 

Dim gc As System.Globalization.GregorianCalendar = new System.Globalization.GregorianCalendar()
Dim weekOfYear As Integer = gc.GetWeekOfYear(Date.Today,System.Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday)
Return weekOfYear

--  作者:爱相随
--  发布时间:2019/2/27 15:46:00
--  
看的不太懂,仍然谢谢老师!!
--  作者:有点甜
--  发布时间:2019/2/27 16:15:00
--  

 

Dim d As Date = "2019-01-02"
Dim gc As System.Globalization.GregorianCalendar = new System.Globalization.GregorianCalendar()
Dim weekOfYear As Integer = gc.GetWeekOfYear(d,System.Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday)
msgbox(weekOfYear)