怎样获得当前的周数呢？

Question

Weekday(now)只能获得星期几，但是不能获得第几周，怎样才能获得是第几周呢？

Answer 1

datadiff("ww", dateserial(year(date), 1, 1), date, vbMonday, vbFirstFullWeek)注意最后一个参数：
常数 值 描述 
vbUseSystem     0 用 NLS API 设置。 
vbFirstJan1     1 从包含 1 月 1 日的星期开始（缺省值）。 
vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。 
vbFirstFullWeek 3 从第一个无跨年度的星期开始。 

Answer 2

楼上正解
用 DateDiff函数

Answer 3

strSQL = "select * from WorkTask where " _
            & "DateDiff("ww", DateSerial(Year(Date), 1, 1), 结束时间, vbMonday,
                                                          ~~~~~~~~~~~
 vbFirstFullWeek) ='" & strWeek & "' order by 任务序号 "出现语法错误，是为什么呢？

Answer 4

DateDiff("ww", DateSerial(Year(Date), 1, 1), 结束时间, vbMonday,
                                                          ~~~~~~~~~~~
 vbFirstFullWeek) 两头
 如果是access数据库呢就加# ，如果是SQL就加'单引号

Answer 5

& "DateDiff("ww",......  
改为： 
& "DateDiff('ww',......
strSQL = "select * from WorkTask where " _
         & "DateDiff('ww', DateSerial(Year(Date), 1, 1), 结束时间, vbMonday,
 vbFirstFullWeek) ='" & strWeek & "' order by 任务序号 "