vencimento em dia útil

saudações,


procurei aqui e não achei um saída que me satisfazesse...

tenho um relatório que a partir de uma data, onde através da quantidade de dias, determino quando será o vencimento, até ai tudo bem, no entanto, não consigo fazer que esses vencimento sejam somente em dias úteis, ignorando assim dias de feriados, domingos e sábado.

agradeço desde já uma luz.

obrigado!

Ola amigos, estou com o mesmo problema, eu diria um pouco mais complexo.

Avelino, o seu código ajudou bastante porém acontece o seguinte:

Estou desenvolvendo um pequeno sistema de agendamento da clinica de minha esposa, ela é fisioterapeuta. Como na fisioterapia acontece o tratamento por número de seções gostaria de fazer esse agendamento em bloco. Colocaria a data do início, a hora ( essa se repetirá todos os dias ) e o número de sessões ( normalmente são 5 ou 10 ) e ao apertar no botão agendar ser feito o agendamento dos 10 dias de uma unica vez. Sendo que no caso dos feriados e finais de semana ser postergado ou antecipado conforme exemplo do grande Avelino.

Usei esse código:

If strParcelas <> 0 Then

For I = 1 To strParcelas 'strParcelas
   rs.AddNew

   rs("Ag_Secao") = I
   rs("Ag_Data") = strData
   rs("Ag_Profissional") = strProf
   rs("Ag_Servico") = strServ
   rs("Ag_Convenio") = strConv
   rs("Ag_Tipo") = strTipo
   rs("Ag_Status") = "Marcado"
   rs("Ag_S") = "l"
   rs("Ag_CodAgenda") = Me.Ag_CodAgenda
   rs("Ag_Paciente") = strPaciente
   
   rs("Ag_Data") = fncAjustaData(DateAdd("d", I - 1, strData), IIf(Me!Quadro = 1, True, False))
   
   rs("Ag_Hora") = Me.Hora

   rs.Update

Next
   rs.Close
   DB.Close
           
End If

Ele posterga a data, porém repete a mesma data tantas vezes quanto os dias q postergou Ex:

07/08/2014   01
08/08/2014   02
Aqui ele executa e pula para o dia 11
11/08/2014  03
11/08/2014  04 deveria ser 12/08/2014 04
11/08/2014  05 deveria ser 13/08/2014 05

O problema está na minha variável data que assume um novo número e também devo continuar considerando o número de seções. Será que fui claro?