Curiosa técnica...

Yo lo haría así:

-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web

Para los festivos necesitas utilizar una tabla dónde, o bien indicas las fechas una por una (con el mantenimiento que eso conlleva) o bien indicas dia y mes de la festividad para que la tabla te valga para siempre. El problema son siempre las fiestas "moviles": semana santa... pero también existen funciones para calcular eso.

En definitiva la técnica como yo lo haría es:

- Tener una tabla con los campos DiaFestivo y MesFestivo

- Tener una función para calcular la semana santa (aquí tienes una:  http://excelgali.foroactivo.com/t155-calcular-semana-santa-y-pascua" rel="nofollow - http://excelgali.foroactivo.com/t155-calcular-semana-santa-y-pascua )

- Utilizar 3 variables para devolver los 3 valores o una esytructura Type

- Tener una función parecida a la anterior dónde:

  + creas un array con todos los festivos del periodo (función DateSerial)

  + recorres las fechas del intervalo y, en cada registro, realizas una evaluación de la fecha:

    * si es sabado incrementas el contador de sábados

    * si es domingo incrementas el contador de domingos

    * si está dentro del array, y no es sábado ni domingo (porque ya estan en cualquiera de los otros contadores), incrementas el contador de festivos.

En esencia esa es la táctica que utilizaría. Para todo ello encontraras literatura abundante. Cuando te encalles con algo puntual, preguntas.

 

Un saludo

Con la tabla números es fácil hacerlo mira https://emilioverastegui.blogspot.com/2015/09/la-tabla-numeros.html" rel="nofollow - aquí

Saludos.

http://sqlraipon.blogspot.com/2018/03/calculo-de-dias-laborables-entre-fechas_20.html

o

https://www.maximoaccess.com/t11173-resolvidocontar-sabados-entre-duas-datas

Public Function ContaSabados(DataInicio As Date, DataFim As Date) As Long
'By JPaulo ® Maximo Access
Dim ContaDias As Long
Dim PercorreDatas As Date
Dim inConta As Long

    ContaDias = 0
    For PercorreDatas = DataInicio To DataFim
    inConta = Weekday(PercorreDatas)
    '1-Domingo 7-Sábado
    If inConta = 7 Then
     ContaDias = ContaDias + 1
    End If
    Next PercorreDatas
    ContaSabados = ContaDias
    MsgBox ContaSabados

Function CuentaFestivos(FechaInicio As Date, FechaFin As Date) As Integer

 

    Dim SumaFestivos As Integer

    Dim I As Date

    Dim J As Integer

    Dim UltimaFila As Integer

   

    UltimaFila = Range("A1048576").End(xlUp).Row

   

    For I = FechaInicio To FechaFin

   

        If Weekday(I, vbMonday) > 5 Then

            'Fin de semana

            SumaFestivos = SumaFestivos + 1

        Else

            'Hay que comprobar si es Festivo en la lista

            For J = 2 To UltimaFila

           

                If Cells(J, 1).Value = I Then

                    'Existe luego hay que sumarlo ya que es festivo y no es Sabado ni Domingo

                     SumaFestivos = SumaFestivos + 1

                     Exit For

                End If

            Next J

           

        End If

            

    Next I

      

    CuentaFestivos = SumaFestivos

   

End Function

 

Function CuentaFestivosII(FechaInicio As Date, FechaFin As Date) As String

 

    Dim SumaFestivos As Integer

    Dim SumaSabados As Integer

    Dim SumaDomingos As Integer

    Dim I As Date

    Dim J As Integer

    Dim UltimaFila As Integer

   

    UltimaFila = Range("A1048576").End(xlUp).Row

   

    For I = FechaInicio To FechaFin

   

        Select Case Weekday(I, vbMonday)

            Case 6

                'Sabados

                SumaSabados = SumaSabados + 1

            Case 7

                'Domingos

                SumaDomingos = SumaDomingos + 1

            Case Else

                'Hay que comprobar si es Festivo en la lista

                For J = 2 To UltimaFila

           

                    If Cells(J, 1).Value = I Then

                        'Existe luego hay que sumarlo ya que es festivo y no es Sabado ni Domingo

                        SumaFestivos = SumaFestivos + 1

                        Exit For

                    End If

            Next J

           

        End Select

            

    Next I

      

    CuentaFestivosII = SumaSabados & " Sábados, " & SumaDomingos & " Domingos y " & SumaFestivos & " Festivos"

   

End Function

La pregunta está colgada en el foro de Access y, en consecuencia, has recibido una respuesta adecuada a Access. Ahora cuelgas una solución de Excel... dónde se podría calcular eso sin necesidad de utilizar VBA.

En fin...

La pregunta la pones en el apartado de Access y VBA y la solución que has colgado incluye palabras como Cells, Range, xlDown.... que, si bien es VBA, es de Excel, no de Access.

Me sorprende bastante que cuelgues una solución que no sabes ni en que programa se ejecuta, simplemente. 

Muevo el hilo a Excel y lo cierro.