vba - 从系统日期开始的 VBA 周数

Question

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

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

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

Answer 1

VBA

Debug.Print Format(Now, "ww")

公式

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