如何得到today是第几周？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

利用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

主题：如何得到today是第几周？