以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何得到today是第几周？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16320)
--  作者：zpx_2012
--  发布时间：2012/2/9 16:46:00
--  如何得到today是第几周？

各位大师，date类型的数据可以通过以下属性得到年月日及星期几，但如何才能得到是第几周呢？有时要按周来统计数据。

<!--StartFragment -->
 

利用Year、Month、Day属性，可以获得给定日期的年、月、日值，例如：

Dim d1 As Date = Date.Today
Dim year As Integer = d1.Year
Dim month As Integer = d1.Month
Dim day as Integer = d1.Day

利用DayOfWeek属性，可以知道给定的日期是星期几，例如：

Dim d As Date = #10/31/2008#
Output.Show(d.DayOfWeek) \'显示5
--  作者：狐狸爸爸
--  发布时间：2012/2/9 17:09:00
--  

在命令窗口执行：

 

Dim calCommon  As New System.Globalization.GregorianCalendar()
Dim dt As Date = Date.Today
Return calCommon.GetWeekOfYear(dt, System.Globalization.CalendarWeekRule.FirstDay, 0)
--  作者：liuyixin662
--  发布时间：2023/2/14 23:58:00
--  

谢谢老师!