系统日期的VBA周数

Question

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

我找到了关于如何计算给定日期的周数的文章，但我不知道有足够的VBA将其更改为系统日期。

您将获得任何帮助，我们将不胜感激！

Answer 1

VBA

Debug.Print Format(Now, "ww")

FORMULA

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