系统date的VBA周数

我希望你能用我的一些代码来帮助我，这些代码根据系统date来计算星期数。 我有一个TextBox WeekNum ，我想要显示CommandButton1_Click激活时的星期编号。

我已经find了关于如何计算给定date的星期数的文章，但我不知道足够的VBA将其更改为系统date。

任何帮助，您可以提供将不胜感激！

Answer 1

VBA

 Debug.Print Format(Now, "ww") 

式

 =1+INT((TODAY()-(DATE(YEAR(TODAY()),1,2)-WEEKDAY(DATE(YEAR(TODAY()),1,1))))/7)