[Resolvido]Multiplicar uma data inicial por um numero inteiro e mostrar a data final

Bom dia pessoal,

o que preciso é o seguinte:

ao informar uma data inicial e um número de parcelas de um valor qualquer, que seja criado uma data final de acordo com o número de parcelas.

Ex:

data inicial: 20/06/2014
Nº de parcelas: 3
data final(valor calculado): 20/09/2014

estou tentando com o código abaixo no evento "após atualizar" o campo datainicial mas dá uma data maluca...


Me.DataFinal.Value = Me.DataInicial.Value * Me.NumParcelas

um abraço

Leandro

Bom dia colega, tente adaptar:

Código:

Dim StrDateAdd As Date
StrDateAdd = DateAdd("m", 1, Me.DtCompraPrazo) ' 1 acrescenta o próximo mês
Me.DtVencimentoNota.Value = StrDateAdd


Espero que dê certo!

eeeeeeeeeee!!!!!!

Mathusalmeida, adaptei e funcionou. o teu código como estava incrementava apenas um mês...

Private Sub NumParcelas_AfterUpdate()
Dim StrDateAdd As Date

Me.VlrParcela.Value = Me.Valor.Value / Me.NumParcelas.Value
StrDateAdd = DateAdd("m", Me.NumParcelas.Value, Me.DataInicial) ' 1 acrescenta o próximo mês

Me.DataFinal.Value = StrDateAdd

End Sub


valeu mesmo!!!!! um abraço mathus!

Que bom que você conseguiu adaptar. Muitas vezes achamos a solução totalmente pronta e não precisamos pensar. Isto não é bom pois não crescemos em conhecimento.

Parabéns pela adaptação.

O fórum agradece o retorno.

Sucesso!