[Resolvido]Contar dia Semana

Amigos, preciso de uma ajuda, estou tentando montar uma função que conte o número de dias da semana durante o mês, exemplo: no mês 12/2016, tem 4 segundas, 4 terças, 4 quartas, 5 quintas, 5 sextas, 5 sábados e 4 domingos, alguém sabe como posso fazer isso?

Boa noite
Veja se atende

Amigo, eu nunca tive essa necessidade, portanto Não sei se o Access tem essa Função ja Nativa!

Como não sei se ele tem, eu Criei aqui rapidamente uma Função para obter-se esse resultado a partir de Duas Datas (Data Inicio e Data Fim).



Crie um Modulo e cole isto nele:

Código:

Public Function qntDiaSemana(DataInicial As Date, DataFinal As Date)
'--------------------------------------------------'
'          Criado por Fabio Paes                  '
'        em 01/12/2016                            '
'--------------------------------------------------'
Dim D, S, T, Q, Qui, Sex, Sa As Integer
    For I = DataInicial To DataFinal

    Select Case Weekday(I)
        Case 1
        D = D + 1
        Case 2
        S = S + 1
        Case 3
        T = T + 1
        Case 4
        Q = Q + 1
        Case 5
        Qui = Qui + 1
        Case 6
        Sex = Sex + 1
        Case 7
        Sa = Sa + 1
    End Select
   
    Next

'Para aplicar o Valor em um Campo descomentar as linhas a baixo:
qntDiaSemana = "Domingo: " & D & ", Segunda: " & S & ", Terça: " & T & ", Quarta: " & Q & _
", Quinta: " & Qui & ", Sexta: " & Sex & " e Sabado: " & Sa

'Mostra atraves de MensageBox
MsgBox "Domingo: " & D & ", Segunda: " & S & ", Terça: " & T & ", Quarta: " & Q & _
", Quinta: " & Qui & ", Sexta: " & Sex & " e Sabado: " & Sa, vbInformation
End Function

Agora, para chamar a Função e colocar o resultado em uma Caixa de Texto, colocando direto na Fonte de Controle da caixa de texto coloque:

=qntDiaSemana([txtdataInicial];[txtDataFinal])
txtdataInicial é onde tem a data inicial (01/12/2016)

txtDataFinal  é onde tem a data Final (31/12/2016)


O que a função faz?
Apena percorre todos os dias dentro do período informado, e testa para saber qual é o dia da semana.
Dependendo do dia ele irá somar um Valor a um determinado contado.
Weekday(Data)=1 <=== Estou dizendo que é Domingo
Weekday(Data)=2 <=== Estou dizendo que é Segunda Feira

...



Comentar esta parte, pois ela mostra atraves de MensagBox, caso nao queira (MsgBox "Domingo: " & D & ", Segunda: " & S & ", Terça: " & T & ", Quarta: " & Q & _
", Quinta: " & Qui & ", Sexta: " & Sex & " e Sabado: " & Sa, vbInformation)

Obs:

Se alguém souber se Access tem essa Função Nativa, nos informar!

Assis meu amigo, não havia visto sua resposta qnd comecei a escrever!!!


Duas formas pouco diferentes que se obter o mesmo resultado.

Obrigado amigos, deu certo!

Grato pelo retorno! Até a próxima se Deus quiser!