[Resolvido]Postergar data para próximo dia útil...

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

O seu código Avelino,  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 a variável "I" que adiciona aos dias que no exemplo considerando o número de seções. Será que fui claro?

Ola Avelino,

Tentei de diversas formas mas não cheguei ao esperado...

Segue o arquivo com o exemplo. Continua da mesma forma ao agendar as 10 seções de fisioterapia a partir da data inicial, qdo chega nos finais de ele continua repetindo tantos os dias quantos a função tenha postergado... Como já expliquei...

Estou anexando o arquivo... Talvez assim fique mais fácil de entender...

Agradeço antecipadamente pela ajuda...

Desculpa, deu um erro na hora de anexar e não percebi. Estava anexando o arquivo com a extensão (.rar)

Muito obrigado Avelino!

Minha cabeça tá muito perturbada mesmo, estava colocando dessa forma:

strData = strData + I   ao invés de  strData = strData + 1

Lia o código várias vezes e não percebia...

Valeu!!!

Perfeito, funcionou...
Você sabe para quem desenvolve sempre surge algo inesperado, e agora como trata de uma clinica de fisioterapia veio a seguinte indagação.

O agendamento funciona legal, só que existe clientes que não vêem todo os dias mas sim dias alternados...

Por exemplo:

Segunda / Quarta / Sexta

O agendamento deve sempre saltar um dia quando a opção selecionada for dias alternados. Quando a opção for dias normais o agendamento deve funcionar como está, todos os dias.

A opção antecipar ou postergar em casos de final de semana e feriado que requer no código já deixei padrão "postergar".

Criei um novo quadro com as opções "dias normais" ( nesse caso o agendamento funcionaria todos os dias ) e "dias alternados" ( nesse caso agendaria um dia sim/ outro não - tipo segunda, quarta e sexta ou terça e quinta... Sempre respeitando a regra dos feriados e finais de semana.

Quando concluir essa agenda irei postar no repositório de exemplos...

Definitivamente resolvi todas as situações...

Obrigado a todos...