小编fif*_*ens的帖子

有没有人在vb6中返回给定日期的周数的工作函数？

这曾经工作:

Dim W As Integer

W = Format(DateSerial(2010, 1, 1), "ww", vbMonday, vbFirstFourDays)

但是在Windows 8.1中,您现在可以获得"超出堆栈空间".