[Resolvido]Cálculo com datas pré estabelecidas

Prezados boa noite.

Criei recentemente em minha empresa, um sistema de contas a pagar.
Mas agora me deparei com um problema, que confesso não sei por onde começar.
Meu sistema calcula as datas de vencimento, usando a data de chegada do documento + quantidade de dias para pagar, que pode variar de 15 a 30 dias, de acordo com o negociado com cada fornecedor que temos.

Ocorre agora que faremos pagamentos todas as sextas feiras, com isso, o sistema precisa seguir 2 premissas.

1 se a data de vencimento for igual a data da próxima sexta feira de pagamento, o sistema deve informar que a data de pagamento é igual a data da próxima sexta.

2 se a data de vencimento for posterior a data de pagamento da próxima sexta, o sistema precisa informar que a data de pagamento precisa ser antecipado para a sexta anterior.

Exemplo com Base o mês de Maio de 2018.

Considerando hoje dia 27 de Maio, próxima data de pagamento será Sexta Feira 1 de Junho. Se a fatura vencer em 1 de Junho, o sistema indica data de pagamento dia 1 de Junho.

Mas se a fatura vencer em 5 de Junho  por exemplo, não podemos esperar para pagar na próxima sexta 8 de Junho, pois aí a mesma será paga com atraso, nesse caso o sistema deveria retroceder e indicar como data de pagamento 1 de Junho.


Não sei se fui claro. Imagino que terei que ter uma tabela com todas as sextas feiras daqui até o fim do ano, mas não sei nem por onde começar.

Recorro ao Fórum, pois já me ajudaram inúmeras vezes.

Muito obrigado

Bom dia,

Coloque o seguinte em um botão:

Código:

       Dim dataPagamento, dataVencimento
   
    dataVencimento = txtDataLancamento + txtQntDias
    dataPagamento = dataVencimento - Weekday(dataVencimento, vbSaturday)
    If Weekday(dataVencimento) = 6 Then dataPagamento = dataVencimento

    MsgBox "A data de vencimento do título é " & dataVencimento & " e seu pagamento deve ser realizado em " & dataPagamento, vbInformation, "Vencimento"

Onde txtDataLancamento é o campo onde está a data que o documento chegou na empresa e txtQntDias é a quantidade de dias para o vencimento, de acordo com cada fornecedor.

Abraço.

Muito obrigado Cassio,

No momento não consigo testar o código.
Assim que conseguir, posto o resultado.

Abs

Prezado Cassio,

Muito obrigado.
Era exatamente o que eu precisava.
Solução simples e efetiva.

Esse fórum é nota 1000.