Access - funcion

Alguien me puede dar una función que cuente los dias desde fecha1 a fecha2, pero que no incluya los fines de semana, o sea, sabado nio domingo.
Que el resultado lo de en una variable

Función hecha exprofeso para VALLO.
Entran dos fechas y devuelve los días laborables entre ellas (cuenta el primer día, pero no el último).
La puedes modificar y te dará: los días naturales, las semanas y los días de pico, los sábados, los domingos y la suma de los no laborables.

Function laborables(desde As Date, hasta As Date) As Integer
Dim totalDias, domingos, sabados, semanas
Dim numDia, dias, labor, noLaborables
totalDias = DateDiff("d", desde, hasta)
semanas = Int(totalDias / 7)
numDia = WeekDay(desde)
dias = totalDias Mod 7
sabados = 0
domingos = 0
If totalDias >= 7 Then
sabados = semanas
domingos = semanas
End If
If dias = 6 Then
If numDia = 2 Then
sabados = sabados + 1
domingos = domingos
ElseIf numDia = 1 Then
sabados = sabados
domingos = domingos + 1
Else
sabados = sabados + 1
domingos = domingos + 1
End If
End If
If dias = 5 Then
If numDia = 2 Then
sabados = sabados
domingos = domingos
ElseIf numDia = 1 Then
sabados = sabados
domingos = domingos + 1
ElseIf numDia = 3 Then
sabados = sabados + 1
domingos = domingos
Else
sabados = sabados + 1
domingos = domingos + 1
End If
End If
If dias = 4 Then
If numDia = 2 Or numDia = 3 Then
sabados = sabados
domingos = domingos
Else

If dias = 4 Then
If numDia = 2 Or numDia = 3 Then
sabados = sabados
domingos = domingos
ElseIf numDia = 4 Then
sabados = sabados + 1
domingos = domingos
ElseIf numDia = 1 Then
sabados = sabados
domingos = domingos + 1
Else
sabados = sabados + 1
domingos = domingos + 1
End If
End If
If dias = 3 Then
If numDia = 6 Or numDia = 7 Then
sabados = sabados + 1
domingos = domingos + 1
ElseIf numDia = 5 Then
sabados = sabados + 1
domingos = domingos
ElseIf numDia = 1 Then
sabados = sabados
domingos = domingos + 1
Else
sabados = sabados
domingos = domingos
End If
End If
If dias = 2 Then
If numDia = 7 Then
sabados = sabados + 1
domingos = domingos + 1
ElseIf numDia = 6 Then
sabados = sabados + 1
domingos = domingos
ElseIf numDia = 1 Then
sabados = sabados
domingos = domingos + 1
Else
sabados = sabados
domingos = domingos
End If
End If
If dias = 1 Then
If numDia = 7 Then
sabados = sabados + 1
domingos = domingos
ElseIf numDia = 1 Then
sabados = sabados
domingos = domingos + 1
Else
sabados = sabados
domingos = domingos
End If
End If
noLaborables = sabados + domingos

noLaborables = sabados + domingos
laborables = totalDias - noLaborables
End Function

¿Un poquito larga, no? Pero verás cómo te da bien el resultado.
Ojo, no tiene en cuenta los días festivos, que habría que añadir, contando con los de cada estado o comunidad. Sólo descuenta los sábados y los domingos.

Si necesitas más, escribe a mi "emilio" o visita "visualia" pulsando abajo.

Gracias por tu ayuda, te lo agradezco... :))

Hola,
Estoy "intentando" crear una base para el control de dias de los trabajadores. Para contar los dias de vacaciones, he estado mirando, y he visto esta funcion. Pero no me funciona. Tengo un campo de inici_vacances y otro de fi_vacances. Y me gustaria tener otro que me contara los dias naturales entre ambas fechas. Pero nada. Es que soy muy torpe.
Muchas gracias
Roser