bom tarde galera

Eu ja avia postado antes essa duvida mas eu acho que não me espressei direito

é o seguinte, eu quero em uma consulta de instervalo de datas saber quantos dias da semana tem neste intervalo tipo quantas "segundas feiras tem no intervalo 01/12/2004 a 30/12/2004" e assim por diante quantas terças......

sera que isso é possivel ?

fico muito grato a quem poder me ajudar nessa.

Ganbity,

 

Talvez essa rotina possa lhe ajudar e dar alguma idéia.

 

    Dim Domingo As Integer
    Dim Segunda As Integer
    Dim Terca As Integer
    Dim Quarta As Integer
    Dim Quinta As Integer
    Dim Sexta As Integer
    Dim Sabado As Integer
    Dim I As Integer
    Dim Dias As Integer
    Dim Dia_da_Semana As Integer
   
    Dim Data_Inicial As Date
    Dim Data_Final As Date
   
    Data_Inicial = #12/1/04#
    Data_Final = #12/31/04#
   
    Dias = DateDiff("d", Data_Inicial, Data_Final) + 1

    For I = 1 To Dias
        Dia_da_Semana = WeekDay(Data_Inicial)
        If Dia_da_Semana = 1 Then
            Domingo = Domingo + 1
        Else
            If Dia_da_Semana = 2 Then
                Segunda = Segunda + 1
            Else
                If Dia_da_Semana = 3 Then
                    Terca = Terca + 1
                Else
                    If Dia_da_Semana = 4 Then
                        Quarta = Quarta + 1
                    Else
                        If Dia_da_Semana = 5 Then
                            Quinta = Quinta + 1
                        Else
                            If Dia_da_Semana = 6 Then
                                Sexta = Sexta + 1
                            Else
                                If Dia_da_Semana = 7 Then
                                    Sabado = Sabado + 1
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
        Data_Inicial = DateAdd("d", Data_Inicial, 1)
    Next I
   
    MsgBox "Domingo = " & Domingo & Chr(13) & "Segunda = " & Segunda & Chr(13) & "Terça = " & Terca & Chr(13) & "Quarta = " & Quarta & Chr(13) & "Quinta = " & Quinta & Chr(13) & "Sexta = " & Sexta & Chr(13) & "Sábado = " & Sabado, vbOKOnly

Obrigado natareli vou fazer um teste.

Cara é isso mesmo muito obrigado