Dúvidas função DateAdd e gerar parcelas.

Bom Dia Galera, postando este novo tópico e exclui o outro, já que consegui desenvolver o processo de Mensalidades, que achei muito prático. Porém agora surgem novas dúvidas e depois de muitos testes ainda não consegui achar um resultado.

1. Tenho meu form de criação de Parcelas que é salvo em uma tabela, e o calculo é feito referente a data de hoje - "31/12", retornando a quantidade restante de meses para o fim daquele ano.

Usando a função DateAdd, consegui desenvolver minhas parcelas, porém ela sempre começa do mês seguinte, e quero que comece no mes corrente. (Menos importante, já que posso manipular a data, apenas para registro aqui no tópico)

Outro problema: O vencimento de minhas parcelas sempre variam: Pagamento é obrigatoriamente vencido na ultima quarta feira do mês, este sinceramente nem sei por onde começar, para tentar criar um parâmetro que funcione. E pela função DateAdd ela simplesmente adiciona mais um mes ( ou outra variável).

2. Depois de criado minhas parcelas referentes a este ano, queria que o sistema não me permitisse mais criar parcelas com vencimentos para este ano, mais que me permita criar com vencimentos para o próximo ano.

Espero que entendam.

Ao que tudo indica, meu sistema está muito funcional e após terminar disponibilizarei aqui pra quem sofreu como eu pra tentar fazer ele funcionar.

Você pode validar a última quarta do mês usando uma função mais ou menos assim:

Código:

Private Function Quarta() As Date
   
    If Weekday(DateSerial(Year(Date), Month(Date) + 1, 0)) >= 4 Then
        Quarta = DateAdd("d", -((Weekday(DateSerial(Year(Date), Month(Date) + 1, 0))) - 4), DateSerial(Year(Date), Month(Date) + 1, 0))
    Else
        Quarta = DateAdd("d", -(7 - (4 - Weekday(DateSerial(Year(Date), Month(Date) + 1, 0)))), DateSerial(Year(Date), Month(Date) + 1, 0))
    End If

End Function

E na origem de um campo desvinculado:

=Quarta()