主题：日期计算问题

请问有没有现成的函数可以取得当前日期处于第多少周？

如果用代码要怎么计算呢？

我试着用这个思路写了下代码 发现得不到结果

取得当前日期

返回当前日期所在年

取得该年元旦

判断该天的是星期几

用当期日期减去元旦得到天数

用天数差除以7得到周数

 如果元旦那天不是周日 就用当前周数减去1 否则就直接用得到的结果作为周数

 

 

思路应该没有问题  但是计算的时候发现数据类型老是错  请教高手指点一下 有没有简单点的方法

 

 

 

SELECT '现在是第' & Format(Now(),"ww") & '周' AS 周

Dim T As Date = date.Now
Dim X As Integer
X = DateDiff(DateInterval.WeekOfYear, New Date(T.Year, 1, 1), T) + 1

非常感谢