[Resolvido]Data de Pagamento com dias Fixos

Boa noite a todos,

Uso o código abaixo para inserir parcelas de despesas:


For i = 1 To Me.QtdParcela
rs.AddNew
rs!CodFormaPagto = Me.CodFormaPagto
rs!CodTipoDespesa = Me.CodTipoDespesa
rs!CodSubTipoDespesa = Me.CodSubTipoDesp
rs!HistoricoDespesa = Me.HistoricoDespesa
rs!DataDespesa = Me.DataDespesa
rs!ValorDespesa = ValorParc
rs!QtdParcela = Me.QtdParcela
rs!NumParcela = i & "/" & Me.QtdParcela
rs!Parcelado = "S"
rs!DataPagto = DateAdd("m", i, Me.DataDespesa)
rs.Update
Next
rs.Close
Me.OpcaoSim.DefaultValue = 0
End If

Estou com dificuldade em fazer a seguinte adaptação:

Se o CodFormaPagto for igual a 2 (exemplo), a primeira data para DataPagto será dia 15 do mes subsequente. Tipo:

DataDespesa: 28/06/2012
DataPagto: 15/07/2012 (1º pagamento)

Tentei a busca do forum más não encontrei ajuda nesse sentido.


Nivaldo Aguiar

Adaptei um exemplo que tinha no baú;

A primeira mensalidade será sempre no dia 15 subsequente à data da venda.

Se o dia 15 for fim de semana ou feriado, avança um dia (Esta opção pode ser retirada).

https://dl.dropbox.com/u/771097/Parcelamento_15.rar

Espero que ajude;

Bom dia J Paulo,

Acho que o exemplo que você disponibilizou resolve o meu problema.
Vou dar uma estudada e retorno.

Por enquanto, muito obrigado pela atenção.

NIvaldo Aguiar

Bom dia a todos,

J Paulo,

Mais uma vez você acertou na mosca. Resolveu direitinho meu problema.

Antecipando uma possível alteração na escolha do dia do vencimento, eu alterei a seguinte linha:

DtVencimento = DateSerial(Year(DtVencimento), Month(DtVencimento) + 1, 15)

Coloquei no form um Grupo de Opção para a escolha do dia do vencimento e usei essa escolha para o código.

DtVencimento = DateSerial(Year(DtVencimento), Month(DtVencimento) + 1, Me.TxtDia)

Mais uma vez o meu muito obrigado a você e a todos do fórum.


Nivaldo Aguiar

Obrigado pelo retorno amigão, o fórum agradece.

Tenho um formulário onde entro com os seguintes dados.

PARCELAS
DATA 1º PAGAMENTO
DIA PARA PAGAMENTO

QUERO UMA FORMULA PARA CALCULAR A DATA DO ÚLTIMO PAGAMENTO BASEADO NAS PARCELAS QUE SÃO
MENSAIS (PORÉM) A DATA FINAL DEVE TER O MESMO DIA DEFINIDO EM "DIA PARA PAGAMENTO"

Obrigado a quem puder ajudar.