VBA将特定日期设置为一年的第一周

Question

我想将一个特定的日期(October 06 , 2014)设置为一年的第一周。 因此，当我使用=weeknum() formulaR1C1 ，它将返回星期数。

我目前正在处理一个工作表，该工作表每天更新一次，因此周数仅每周更新一次。 列（“ D”）中的星期几。 栏（“ B”）表示每日日期。

如果我在其上使用=weeknum()公式，则返回值41，但它必须是第1周。

Answer 1

如何创建个性化功能？ 它仅包括计算插入日期（myDate）和被认为是一年中第一天（first_day）的日期之间的天数，然后将该数字除以7，取整数并加1。它将始终为您提供正确的解决方案。

Public Function special_weeknum(ByVal myDate As Date) As Integer

    Dim first_day As Date: first_day = #10/6/2014#
    Dim myWeek As Integer: myWeek = Int((myDate - first_day) / 7) + 1
    special_weeknum = myWeek

End Function

请注意，这种方法还可以让您通过第一天作为用户输入：

Public Function special_weeknum(ByVal myDate As Date, ByVal first_day As Date)
    Dim myWeek As Integer: myWeek = Int((myDate - first_day) / 7) + 1
    special_weeknum = myWeek
End Function

这样您就可以始终决定哪一天是一年中的第一天。