标题：如何返回 Date 的周数

如何返回 Date 的周数 在Date属性里没有介绍，

DateDiff(interval,date1,date2)
返回两个日期之间的间隔。
Interval 包含以下设置：
yyyy 年
q    季度
m    月
y    某年的某一天
d    天
w    工作日
ww   周
h    时
n    分
s    秒

谢谢杨版，这个是放在表达式里的，我想要的是 .year .month 这类型的。。

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

Dim d As Date = #10/31/2008#
Output.Show(d.DayOfWeek) '显示5

如果是星期天，返回值是0，因为星期天被认为是每周的第一天。

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 & "周  )

谢谢杨版、程版，程版这个可以解决问题了。。。

     呵呵，其实杨版在2楼就告诉您了，我只是将我的现成的给您改了一个示例。