以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  计算某日期是当年的第几个周，有函数或方法没？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192029)
--  作者：13568406997
--  发布时间：2024/5/24 15:01:00
--  计算某日期是当年的第几个周，有函数或方法没？
如题
--  作者：y2287958
--  发布时间：2024/5/24 15:24:00
--  
Dim calCommon  As New System.Globalization.GregorianCalendar() 
Dim dt As Date = Date.Today
Return calCommon.GetWeekOfYear(dt, System.Globalization.CalendarWeekRule.FirstDay, 0)
--  作者：13568406997
--  发布时间：2024/5/24 15:28:00
--  
谢谢
--  作者：foxtablefanse
--  发布时间：2024/5/24 15:33:00
--  
MessageBox.show( DateDiff("ww", CDate(year(Date.Today) & "-01-01"), Date.Today))

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
[此贴子已经被作者于2024/5/24 15:42:36编辑过]
--  作者：有点蓝
--  发布时间：2024/5/24 15:52:00
--  
4楼测试了一下，会少一周。2楼是正确的，或者下面也可以

Output.Show(Datepart("ww", Date.Today))
--  作者：foxtablefanse
--  发布时间：2024/5/24 16:28:00
--  
楼上正解，我这个是“间隔”多少周，与第一天“间隔”20周，