Função para Contar Dias Por Tipo de Dia da Semana

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.

//

//