主题：如何返回 Date 的周数

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

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

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

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