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

Question

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

我目前正在处理每日更新的工作表，因此周数仅会每周更新一次。在列（＆＃34; D＆＃34;）中表示周数。和列（＆＃34; B＆＃34;）表示每日日期。

如果我使用=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

这样您就可以随时决定哪一天是一年中第一天必须考虑的日子。