[Resolvido]Dias Uteis

Boa tarde

Tirei esta função aqui do forum e colei-a num Modulo .
Mas não estou a conseguir chama-la no form num campo Chamado "NDiasUteis" aonde quero a informação.
Alguem ajuda ?


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

Boa noite, Assis
pretende colocar o resultado da função na caixa de texto?
NDiasUteis=DiasUteis(dataInicio,DataFim)

obrigado Alexandre

Pessoal, Boa Noite !

Alguém pode me dar mais detalhes de como adaptar essa função??

Eu tenho 3 campos no meu formulário

1 campo - DataIni (Lugar onde informo a data inicial)
2 Campo - DataFimm (Lugar onde informo a data final)

3 Campo - Total(Lugar onde devera aparecer o calculo de dias úteis)

Como faço para adaptar esse código ?




Tentei fazer da seguinte forma

1º Criei um módulo e colei o código do site

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

Após no campo "Total" do formulário fiz da seguinte forma

Private Sub Total_Click()
Dim Inicio As Date
Dim Final As Date

Inicio = Me.dataini
Final = Me.datafimm

Total = DiasUteis(dataini, datafimm)


End Sub

Porém ao colocar a seguinte data "09/09/2013" como dataini e "11/09/2013" como datafimm, a diferença ele calcula sendo "5" dias, porém o correto é "2" dias.

O que estou fazendo de errado ?

Galera consegui mas tive que fazer uma alteração


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 = 1 ( nesse ponto era -2, não estava contando corretamente, alterei para 1 e consegui fazer contar de forma correta, alguém sabe o porque disso? eu alterei apenas pra testar e consegui resolver)
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

Tenho um campo de data com o nome "txt_ABERTURA" na qual eu seleciono a data e preciso trazer no campo "txt_DATALIMITE" a soma de 15 dias úteis referente ao campo "txt_ABERTURA"! Como faço?

Muito obrigado pela dica Avelino Sampaio, funcionou perfeitamente os dias úteis! So estou com dúvida para aplicar os feriados pois não entendi muito bem como fazer.