Vba: как преобразовать дату в номер недели

Вы можете использовать следующий базовый синтаксис в VBA для преобразования даты в номер недели:

 Sub FindWeekNumber()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.WeekNum(Range(" A " & i))
    Next i
    
End Sub

В этом конкретном примере будет найден номер недели для каждой даты в диапазоне A2:A9 и отображены результаты в диапазоне B2:B9 .

Обратите внимание: метод VBA WeekNum предполагает, что недели начинаются в воскресенье.

Чтобы указать другой день в качестве начала недели, вы можете добавить второй аргумент к методу WeekNum :

 Sub FindWeekNumber()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.WeekNum(Range(" A " & i), vbMonday)
    Next i
    
End Sub

В следующем примере показано, как на практике использовать метод WeekNum для преобразования дат в номера недель.

Пример: преобразовать дату в номер недели в VBA

Предположим, у нас есть следующий столбец даты в Excel:

Предположим, мы хотим преобразовать каждую дату в номер недели и отобразить номер недели в столбце B.

Для этого мы можем создать следующий макрос:

 Sub FindWeekNumber()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.WeekNum(Range(" A " & i))
    Next i
    
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

В столбце B отображается номер недели для каждой даты в столбце A, при условии, что недели начинаются в воскресенье.

Если вы хотите указать в качестве начала недели другой день, например понедельник, вы можете использовать следующий синтаксис:

 Sub FindWeekNumber()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.WeekNum(Range(" A " & i), vbMonday)
    Next i
    
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

В столбце B теперь отображается номер недели для каждой даты в столбце B, при условии, что недели начинаются в понедельник.

Примечание . Полную документацию по методу VBA WeekNum можно найти здесь .

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

Как сравнить даты в VBA
Как преобразовать строку в дату в VBA
Как рассчитать дни между двумя датами в VBA