[Resolvido]alterar dia de uma data

Galera,

Eu procurei e não encontrei um tópico que me ajuda na seguinte questão:
no meu formulário tenho um campo com "data do contrato" e outro com "vencimento das parcelas".
quando eu for gerar as datas das parcelas ele pegue o dia data data do contrato e troca pelo vencimento das pacelas:
Ex. data do contrato = "09/01/2014" vencimento das parcelas "15" e as datas das parcelas ficam assim:
15/02/2014 / 15/03/2014 e assim por diante.

obrigado.

Boa tarde....

Por curiosidade....quantas parcelas serão feitas ? 2...3....4....48 ??

Silvio,

Para as parcelas eu uso um InputBox onde eu coloco a quantidade de parcelas.

Obrigado.

Olá Rogerio,

Tenho um acompanhamento de despesas que em referencia ao parcelamento, escolho entre 03 datas de vencimento (15, 28  e 30), funcionando da seguinte forma:

Inseri um grupo de opção onde seleciono o dia do vencimento;
No formulário tem uma caixa de texto (TxtVencto) que serve para receber o dia selecionado;

Como trabalho com formulário desocoplado, uso o seguinte código para fazer os lançamentos:

Código:

  Dim db As DAO.Database
  Dim rs As DAO.Recordset
  Dim ValorParc As Currency, i As Byte
  Dim Vencto15 As Date, DiaDespesa As Date
  Dim Vencto28 As Date, Vencto30 As Date
    
  Set db = CurrentDb()
  Set rs = db.OpenRecordset("TblDespesas", dbOpenTable)
    
  DiaDespesa = Me.DataDespesa
  DiaDespesa = DateSerial(Year(DiaDespesa), Month(DiaDespesa) + 1, Me.TxtVencto)
  Vencto15 = DiaDespesa
  Vencto28 = DiaDespesa
  Vencto30 = DiaDespesa
  ValorParc = Me.ValorDespesa / Me.QtdParcela
      
      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!DataVencimento = DateAdd("m", i - 1, DiaDespesa)
        rs.Update
      Next
        rs.Close


Sei que existem formas mais profissionais de fazer, más por enquanto está funcionando perfeitamente.

Se ficar complicado, posta a parte do teu código que faz o parcelamento que fica mais fácil de orientar.

Nivaldo.

Ola Nivaldo,

Olha só estou usando um BD de gerar parcelas com ajuda aqui no Fórum e consegui resolver meu problema da seguinte forma:

Private Sub btnGerar_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim strdateadd1 As Date
Dim StrValorParc As Double
Dim Parc As String
Dim venc As String
Dim dia As String
StrValorParc = Me.txtValor_Total
For I = 1 To Me.txtParc
venc = Me.txtvencimento
dia = Day(Me.txtData)
strdateadd1 = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))
StrDateAdd = DateAdd("d", (-dia) + venc, Format(strdateadd1, "dd/mm/yyyy"))

StrParc = I & "/" & Me.txtParc
CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor)" _
& " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """);"
Next I
Me.lstParcelas.Requery
End Sub

Abraços Nivaldo e Obrigado pela ajuda.

Obrigado pelo retorno Rogerio.

O forum agradece.

Nivaldo.