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 

，這樣你就總是能夠決定哪些是您必須考慮的一天一年中的第一天。