Calculando a quantidade de Dias entre Datas

Algumas vezes precisamos executar cálculos entre duas datas, por exemplo, para saber quantos domingos se passaram neste período.

Para isto criei uma UDF que realiza este cálculo de forma rápida.

Segue o código:

 

Function Calcula_Dias(d1 As Date, d2 As Date, d As Integer) As Integer

'desenvolvida por Bruno Leite
'bruno_silva_leite@yahoo.com.br

For i = d1 To d2
    If Weekday(i, vbSunday) = d Then
         Calcula_Dias = Calcula_Dias + 1
    End If
Next i

End Function

 

Esta Função recebe três parâmetros de entrada e retorna a quantidade dos dias procurados.

1º Parâmetro d1 – Variável do Tipo Date que recebe a data Inicial

2º Parâmetro d2 – Variável do Tipo Date que recebe a data Final

3º Parâmetro d – o dia que se deseja buscar, sendo

    1 domingo

    2 segunda-feira

    3 terça-feira

    4 quarta-feira

    5 quinta-feira

    6 sexta-feira

    7 sábado

Para utilizar esta função numa célula qualquer use

=Calcula_Dias(01/05/2010;30/05/2010;1) retorna a quantidade de domingos no período

=Calcula_Dias(01/05/2010;30/05/2010;1) retorna a quantidade de sexta-feiras neste período.

Pode-se utilizar também células disponíveis na planilha para o cálculo por exemplo

=Calcula_Dias(A1;B1;3) retorna a quantidade de terças no período entre as datas de A1 e B1

Bom é isto ai, até uma próxima.

Bruno Leite