[Resolvido]Quantos dias especificos no mes

Salve grandes mestres.

Queria saber se existe alguma forma para eu informar em uma tabela, ou consulta, somente, ano e mês, e retornar a quantidade de cada dia específico naquele mês. Ex.: (4 domingos, 4 segundas, 5 terças, 5 quartas, 5 quintas, 4 sextas, 4 sábados).

Vejam bem não é entre datas, é informar somente, ano e mês.

agradeço antecipadamente qualquer ajuda.

Adaptando uma função que tinha aqui pra dias entre datas... acredito que ira funcionar.

Crie um Modulo e coloque isso:

Código:


Public Function qntDiaSemana(MesAno As Date)
'--------------------------------------------------'
'          Criado por Fabio Paes                  '
'        em 01/12/2016 Alterado em 31/03/2017      '
'--------------------------------------------------'
Dim D, S, T, Q, Qui, Sex, Sa As Integer
Dim DataInicial, DataFinal As Date

DataInicial = MesAno
DataFinal = DateSerial(Year(MesAno), Month(MesAno) + 1, 0)
    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

'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 no Click de um Botão coloque:

Call qntDiaSemana(Me.MesAno)

Obs: Me.MesAno é um campo do Formulario que terá um valor no formato "mm/yyyy", ex: 03/2017.

Outro exemplo para aproveitar;

Corra a consulta ("qryExemplo")

Download

Boa tarde

Segue exemplo, os feriados são PT.

Obrigado grandes mestres.

Vou testar todos os exemplos e dou retorno.

Bem pessoal,

Fiz alguns testes aqui dentro dos meus conhecimentos e é o seguinte: O que se aproximou mais da minha necessidade foi o exemplo do grande mestre JPaulo. A do mestre Fábio não consegui implementar, está dando erro no "Call qntDiaSemana". A do mestre Assis deu vários erros, talvez porque estou usando Access2010.

Mestre JPaulo o seu exemplo é quase o que preciso. Só esqueci de dizer que eu precisava que a quantidade de dias fosse informada por coluna:


Mes                        |      Domingo | Segunda| Terça | Quarta | Quinta | Sexta | Sábado
01/2017                                  4                5           5              4             4            4           4


Obrigado a todos pela atenção.

Pequeno detalhe que esqueceu ne amigo!

Segue O meu exemplo e o do JPaulo adaptados para sua necessidade.

dropbox.com/s/3wrpgnoq7uvpsnf/DiasSemanaMes.rar

Perfeito Fabio.

Vocês são os caras! Valeu mais uma vez muito obrigado a todos!

FabioPaes

E o total de dias no mês ?

Obrigado

Mestre Assis,

somei assim:

Soma: Soma([D])+([S])+([T])+([Q])+([Qui])+([Sex])+([Sa])

Marco

Pode postar ?

Segue

Obrigado Marco

Grato pelo retorno amigo, até a próxima se Deus Quiser!