por su atencion!!!

Public Function DiasUteis2(dtInicio As Date, dtFim As Date, Optional HojeTb As Boolean = False, Optional UltTb As Boolean = False) As Integer
‘…………………………………………………………..
‘ Nome: DiasUteis
‘ Entradas: dtInicio As Date
‘ dtFim As Date
‘ HojeTb As Boolean
‘ UltTb As Boolean
‘ Saída: Integer
‘ Autor: Arvin Meyer
‘ Data: Maio 5,2002
‘ Comentário: Aceita duas datas e devolve o número de dias úteis
‘ entre elas. Note-se que esta função considera os feriados
‘ do período. Ela exige a existência de uma tabela chamada
‘ tbFeriados com um campo, no formato data, chamado dtFeriado.
‘ Se HojeTb = True, a data inicial também será considerada.
‘ Se UltTb = true, a data final também será considerada.
‘…………………………………………………………..
On Error GoTo Err_DiasUteis2

Dim intCount As Integer
Dim rst As DAO.Recordset
Dim DB As DAO.Database

Set DB = CurrentDb
Set rst = DB.OpenRecordset(“SELECT [dtFeriado] FROM tbFeriados”, dbOpenSnapshot)

If Not HojeTb Then
dtInicio = dtInicio + 1
End If
‘ Se desejar contar a data de início, passe True em HojeTb

intCount = 0

If UltTb Then
Do While dtInicio <= dtFim
rst.FindFirst "[dtFeriado] = #" & Format(dtInicio, "mm/dd/yyyy") & "#"
If Weekday(dtInicio) vbSunday And Weekday(dtInicio) vbSaturday Then
If rst.NoMatch Then intCount = intCount + 1
End If
dtInicio = dtInicio + 1
Loop
Else
Do While dtInicio < dtFim
rst.FindFirst "[dtFeriado] = #" & Format(dtInicio, "mm/dd/yyyy") & "#"
If Weekday(dtInicio) vbSunday And Weekday(dtInicio) vbSaturday Then
If rst.NoMatch Then intCount = intCount + 1
End If
dtInicio = dtInicio + 1
Loop
End If
DiasUteis2 = intCount

Exit_DiasUteis2:
Exit Function

Err_DiasUteis2:
Select Case Err

Case Else
MsgBox Err.Description
Resume Exit_DiasUteis2
End Select

End Function

‘*********** Code End **************

El caso es que en la base tal cual la bajo funciona a las mil maravillas, pero cuando copio la tabla de los festivos, el formulario y el módulo a mi base de datos, cambiando las referencias a los campos de las fechas de mi base, me da error: “#¿nombre?” y no soy capaz de hacer que funcione.

Por otra parte, copié el módulo tal cual en una hoja de excel 2000, pero no tengo ni idea de como hacer en la fórmula para que tome de referencia las celdas en donde tengo las fechas de los festivos. Después de copiar el módulo en la hoja de cálculo, en la hoja1 tengo fecha de inicio en A1, fecha fin en B1, la fórmula =DiasUteis2(A1;B1;VERDADERO;VERDADERO)& “Dias” en C1 y el rango con los días festivos y sus denominaciones en (D1:E15), pero no se cómo referenciar este rango en la fórmula de la celda C1. Me da el error de compilación en el módulo “No se ha definido el tipo definido por el usuario” y se refiere a la instrucción Dim rst As DAO.Recordset

Ya se que es abusar, pero te podría enviar la base y la hoja de cálculo para que le eches un vistazo a ver si tiene fácil solución?
Muchas gracias.

Un saludo.