[Resolvido]Datas (Dias úteis)

Olá,

Tenho dois campos no meu formulário, o campo "Prazo" e o campo "Data". Gostaria de criar um campo de texto calculado onde "Data" + "Prazo" resultaria em uma "data de vencimento". Porém, sem contar os sábados e domingos, por exemplo:

Data: 03/04/2017
Prazo: 15
Data de Vencimento: 24/04/2017

Obrigado à todos

Olá Leandro, bem-vindo ao fórum.

Efutue uma "busca" aqui no fórum.
A dúvida é recorrente e já foi abordada várias vezes.
Veja como fazer, https://www.maximoaccess.com/t1115-busca-no-forum-search
Abraço

Olá!

este meu artigo é bem completo:

Nota: copie e cole o link no seu navegador

usandoaccess.com.br/tutoriais/ajustar-data-vencimento-para-dia-util.asp?id=1#inicio

Bom estudo!

Obrigado pela resposta, mas precisava de algo mais simples, que fosse feito no próprio campos

Abraços

Olá Leandro,
O código do colega Avelino Sampaio, está pronto e é de excelente didática.
Acho que com a função nativa DateAdd do Access, pode obter o pretendido.
Teste algo assim:

SeuCampo = DateAdd("w",NrDias,Data)

Abraço

Álvaro, boa tarde!
Usei a função de adição, ou seja:
Data Inicial+Prazo=Data Final. Até aí tudo bem, pois ele retorna um valor coerente se tratando de dias corridos, minha dúvida é como proceder para desconsiderar os Sábados e Domingos.
Obrigado pela resposta!!

Ola Leandro,
Fiz um a funcao para o efeito.
Cole o codigo abaixo num Modulo e teste

Código:

Public Function fncDataDiasUteis(dtData As Date, NrDias As Integer)
'Alvaro Teixeira (ahteixeira) 2017 para MaximoAccess
Dim xData As Date
Dim xDias As Integer
    
    xDias = 0
    xData = dtData
    
    While xDias < NrDias
        If Weekday(xData) > 0 And Weekday(xData) < 6 Then xDias = xDias + 1
        xData = xData + 1
    Wend
    
    fncDataDiasUteis = xData

End Function

Abraco

Álvaro,
Obrigado pela resposta novamente e desculpe minha ignorância, mas eu utilizo esse código em algum evento e altero os nomes "xdata" "xdias" para "data inicial" e "prazo"?

Ola Leandro,
Segue exemplo em formulario.
Tambem funciona e consultas e reportes.
Abraço

Álvaro,
Consegui, deu tudo certo. Obrigado pela atenção e paciência.
Grande abraço!!!

Olá Leandro, Fico feliz por ter ajudado.
Obrigado pelo retorno.

Não se esqueça de dar o tópico como resolvido, veja link abaixo como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Tá feito. Abraço!!