[Resolvido]Numero de dias uteis entre duas datas

Olá amigos estou com um pequeno grande problema, que julgo que pode haver alguém que possa ajudar é o seguinte:
Tenho um form que é alimentado por uma tabela que tem os seguintes campos Data de Inicio e data de conclusão tenho um terceiro campo que dá o total de dias que existe entre as duas datas. o problema é que no campo total de dias só queria os dias uteis de segunda a sexta feira, ou seja não conta-se sábados e domingos é possível?

Obrigado

http://maximoaccess.forumeiros.com/t4388-resolvidodias-uteis?highlight=uteis

a função que foi passada pelo amigo Assis a meu ver só não conta o domingo, eu queria que não conta-se o sábado e o domingo (exemplo 12-11-2012 a 19-11-2012 = 7dias e eu na realidade só queria que conta-se 6 dias uteis Será possível

Obrigado

Public Function DiasUteis(DataInicio As Date, DATAFIM As Date) As Long
'By JPaulo Ž Maximo Access
'Total de Dias entre duas datas sem fins de semana
Dim TotalDiasActuais As Long, TotalDiasTrab As Long
Dim strIniciaContagem As Long


DoCmd.Hourglass (-1)
strIniciaContagem = -2
TotalDiasActuais = (DATAFIM - DataInicio) + 1

Do
If Weekday(DataInicio) = 7 Or Weekday(DataInicio) = 1 Then
strIniciaContagem = strIniciaContagem + 1
End If

DataInicio = DataInicio + 1

Loop Until DataInicio = DATAFIM + 1

TotalDiasTrab = TotalDiasActuais - strIniciaContagem
DoCmd.Hourglass (0)
DiasUteis = TotalDiasTrab
Exit Function
End Function

Pois viu mal....

1=Domingo
2=Segunda-feira
3=Terça-feira
4=Quarta-feira
5=Quinta-feira
6=Sexta-feira
7=Sábado

If Weekday(DataInicio) = 7 Or Weekday(DataInicio) = 1 Then

Obrigado pelo o alerta estava a ver mal-

resolvido

Obrigado pelo retorno o forum agradece.