LOOP DE DATAS CONTANDO DIAS

WEBIER 01/03/2013 12:10:05
#419767
Tenho duvida num loop de datas usando dias

Uso o seguinte condigo:
If optEntrada.value = False And cboQuantParc.Text = [Ô]1[Ô] Then
   mskInicio.Text = Format(DateAdd([Ô]d[Ô], cboPrazo, Date), [Ô]dd/mm/yy[Ô])
   mskTermino.Text = Format(DateAdd([Ô]d[Ô], cboPrazo, Date), [Ô]dd/mm/yy[Ô])

ElseIf optEntrada.value = False And cboQuantParc.Text > [Ô]1[Ô] Then
   mskInicio.Text = Format(DateAdd([Ô]d[Ô], cboPrazo, Date), [Ô]dd/mm/yy[Ô])
   mskTermino.Text = Format(DateAdd([Ô]d[Ô], cboPrazo, Date), [Ô]dd/mm/yy[Ô])
end if


A ideia seria colocar nos textbox uma data de inicio e outra de termino.... no casa do primeiro IF tá funcionando...

o problema é o segundo IF, no caso da quantidade de parcelas (cboQuantParc.Text ) for maior que 1 parcela... exemplos:

mskTermino.Text = Format(DateAdd([Ô]d[Ô], cboPrazo, Date), [Ô]dd/mm/yy[Ô])
mskTermino.Text = Format(DateAdd([Ô]d[Ô], 10, [txt-color=#e80000]01/03/13[/txt-color]), [Ô]dd/mm/yy[Ô])

imagina que coloquei a quantidade de parcelas = 3 e o prazo = 10 dias

entao a primeira parcela seria 01/03/13 e a ultima parcela 11/03/13

03 parcelas
01/03
11/03
21/03

então como vou saber o termino nessa situação?
LLAIA 01/03/2013 12:14:31
#419768 Resposta escolhida
No segundo If faça:

mskTermino.Text = Format(DateAdd([Ô]d[Ô], cboPrazo * ( cboQuantParc.Text - 1 ), 01/03/13), [Ô]dd/mm/yy[Ô])
Tópico encerrado , respostas não são mais permitidas
Voltar