FUNÇÃO PARA CONTAR DIAS POR TIPO DE DIA DA SEMANA

Hoje havia uma dúvida na comunidade Microsoft Excel do orkut com relação a contar a quantidade de dias da semana e o sábado em um intervalo de datas.

Até o dia da semana tudo bem, pode-se utilizar a função DIATRABALHOTOTAL(data_inicial, data_final, [feriados]) que retorna a quantidade de dias úteis entre duas datas, mas como fazer para contar quantos sábados existem entre duas datas.

Para ajudar criei a função abaixo que conta quantos dias de um determinado dia da semana existem entre duas datas.

‘Função para contar número de dias de algum tipo entre datas

‘vDataIni = Data Inicial

‘vDataFim = Data Final

‘vDia = Valor de 1 á 7 com o dia da semana

Function gfContaTipoDia(ByVal vDataIni As Date, ByVal vDataFim As Date, ByVal vDia As Integer) As Long

While vDataFim >= vDataIni

If Weekday(vDataIni) = vDia Then

gfContaTipoDia = gfContaTipoDia + 1

End If

vDataIni = vDataIni + 1

Wend

End Function

Depois é só chamar na planilha por exemplo =gfContaTipoDia(B2;C2;7), sendo B2 a data inicial e c2 a data final e 7 referente ao sábado.

Para incluir esta função nas suas funções úteis, crie um suplemento conforme o artigo Criando Funções Globais.

É isso, enviem suas dúvidas e sugestões ao blog, ficarei feliz em ajudar.

Abraço, Marcos.