Como usar networkdays em vba (com exemplo)

Você pode usar o método NetworkDays no VBA para encontrar o número de dias úteis inteiros entre datas específicas de início e término.

Observe que os dias úteis excluem fins de semana e feriados.

Aqui está uma maneira comum de usar esse método na prática:

 Sub CalculateNetworkDays()

Dim i As Integer

For i = 2 To 9
    Range("C" & i) = WorksheetFunction.NetworkDays(Range("A" & i), Range("B" & i))
Next i

End Sub 

Este exemplo específico calcula o número de dias úteis entre as datas de início no intervalo A2:A9 e as datas de término no intervalo B2:B9 e exibe os resultados no intervalo C2:C9 .

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: como usar NetworkDays em VBA

Suponha que temos a seguinte lista de datas de início e término no Excel:

Digamos que queremos usar o método NetworkDays em VBA para calcular o número de dias úteis inteiros entre as datas de início e término de cada linha.

Podemos criar a seguinte macro para fazer isso:

 Sub CalculateNetworkDays()

Dim i As Integer

For i = 2 To 9
    Range("C" & i) = WorksheetFunction.NetworkDays(Range("A" & i), Range("B" & i))
Next i

End Sub

Quando executamos esta macro, recebemos a seguinte saída:

A coluna C mostra o número de dias úteis completos entre as datas de início e término em cada linha.

Por exemplo:

• O número de dias úteis entre 02/01/2023 e 03/01/2023 é 2 . (já que essas duas datas são finais de semana).
• O número de dias úteis entre 05/01/2023 e 08/01/2023 é 2 .
• O número de dias úteis entre 10/01/2023 e 20/01/2023 é 9 .

E assim por diante.

Nota : Você pode encontrar a documentação completa do método NetworkDays em VBA aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como obter o nome do mês a partir da data
VBA: Como usar IsDate para verificar se a célula é uma data
VBA: Como usar mm/dd/aaaa como formato de data