[Resolvido]Data final menos a data inicial

Prezados bom dia / boa tarde / boa noite.

Preciso de uma grande ajuda, devido as sequelas da COVID, uma das partes afetada infelizmente, foi a minha memória e o caminhar.

Não consigo mais me recordar de algumas rotinas simples e fáceis de fazer, algo que era rotineiro, tornou-se complicado.

Mas não vamos nos queixar, tudo passa e logo ela está de volta !!!

Preciso de uma rotina que me mostre os dias entre data final e data inicial  ( DF- DI ) apenas dias úteis.

Quando abro o formulário em questão tenho um campo ( caixa de texto ) chamado DIAST ( dias total ), preciso que o resultado apareça nessa caixa de texto.

Desde já meu obrigado a todos.

Olá Silvio,

Desejo as rápidas melhoras.
Quanto à questão tem exemplos no fórum, mas veja este por exemplo:
https://www.maximoaccess.com/t35665-resolvidocontar-dias-uteis-ajuda-simples

Abraço

Alvaro, muito obrigado.

Já tinha visto o exemplo citado, mas não me atende.

Vagamente, me recordo de uma rotina aqui mesmo, mas.....não consigo achar mais ela.   Talvez tenha sido excluída ou a memória aqui ainda esta com bug.

Acréscimo....

Tenho aqui uma rotina salva em Word, mas não consigo me recordar mais se é um módulo ou não !

Código:

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


DoCmd.Hourglass (-1)
strIniciaContagem = 1
TotalDiasActuais = (df - di) + 1

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

di = di + 1

Loop Until di = df + 1

TotalDiasTrab = TotalDiasActuais - strIniciaContagem
DoCmd.Hourglass (0)
DiasT = TotalDiasTrab
DiasT = DiasT(di, df)
Exit Function
End Function

Boa noite Sílvio
Desejo melhoras e que Deus te proteja
Sobre a dúvida, coloque pequeno bd com dados para trabalhar

Alexandre boa noite, grato pela tua mensagem.
Não é fácil, ter que reaprender a caminhar entre outras coisas....mas a vida segue, logo isso tudo passa !
Devagar e sem pressa, montei esse exemplo a ti.
Vai abrir na tela de busca, entre com a data inicial e final...e escolha....banho e tosa.
Ao abrir o formulário seguinte, em vermelho para destacar é onde eu preciso colocar os dias uteis.
Desde já, meus sinceros agradecimentos a tua pessoa.

1- Retire a origem da caixa de texto
2 - Adaptei a função do Mestre JPaulo

Código:

Public Function DiasUteis(di As Date, df As Date) As Long
    'By JPaulo Ž Maximo Access
    'Total de Dias entre duas datas sem fins de semana
    'adaptado por Alexandre Neves para o Sílvio do fórum MaximoAccess)
    Dim TotalDiasActuais As Long
    Dim TotalDiasTrab As Long
    Dim strIniciaContagem As Long
   
   
    'DoCmd.Hourglass (-1)
    strIniciaContagem = 1
    TotalDiasActuais = (df - di) + 1
   
    Do
    If Weekday(di) = 7 Or Weekday(di) = 1 Then
    strIniciaContagem = strIniciaContagem + 1
    End If
   
    di = di + 1
   
    Loop Until di = df + 1
   
    TotalDiasTrab = TotalDiasActuais - strIniciaContagem
    'DoCmd.Hourglass (0)
    'DiasT = TotalDiasTrab
    'DiasT = DiasT(di, df)
    DiasUteis = TotalDiasActuais - strIniciaContagem
End Function

3- No acontecimento AoPintar do rodapé do formulário, coloque

Código:

Dim Rst As DAO.Recordset, di As Date
    Dim dt As Date
    Set Rst = RecordsetClone
    Rst.MoveFirst
    di = Rst("DataPagamento")
    Rst.MoveLast
    dt = Rst("DataPagamento")
    DiasT.Value = DiasUteis(di, dt)

Bom dia / boa tarde / boa noite.

Me desculpem a demora em responder.

Alexandre, deu certo. Meu muito obrigado.

Abraços a todos.