Hola Karina :
Revisa este codigo, tal vez te ayude, es de DINA, me salvo la vida en su momento...........
****** Cálculo de Días Laborales
Private Function DiasLaborales()
Dim j, k As Integer
Dim FechaInicio As Date
Dim FechaFin As Date
Dim FechaAux As Date
Dim Diferencia As Integer
FechaInicio = "03/01/2002" 'FechaInicio = txtFechaInicio
FechaFin = "04/01/2002" 'FechaFin = txtFechaFin
Diferencia = DateDiff("d", FechaInicio, FechaFin) + 1
k = 0
FechaAux = FechaInicio
For j = 1 To Diferencia
If Weekday(FechaAux, vbMonday) = 7 Then 'Pregunto si es Domingo
ElseIf Weekday(FechaAux, vbMonday) = 6 Then 'Pregunto si es Sabado
ElseIf Feriado(FechaAux) Then 'Pregunto si es Feriado
Else
k = k + 1
End If
FechaAux = DateAdd("d", 1, FechaAux)
Next j
DiasLaborales k
End Function
Private Function Feriado(FechaAux As Date) As Boolean 'TIENES QUE CREAR UNA TABLA EN ACCESS CON LOS DÍAS FERIADOS
' EJ:01/01/04
CREA UN RECORDSET A NIVEL GLOBAL
Feriado = False
Grs9.MoveFirst
While Not Grs9.EOF And Not Feriado
If FechaAux = Grs9!Fecha Then
Feriado = True
Exit Function
End If
Grs9.MoveNext
Loop
End Function