GERANDO PARCELAS

PERCIFILHO 22/03/2011 13:57:24
#368785
Olá, pessoal, estou com uma [Ô]dúvidazinha[Ô].
Estou gerando parcelas da seguinte maneira:
Digito uma data para início, digito a quantidade de parcelas e o valor de cada parcela.
Faço um For...Next para gerar todas as parcelas e mostro o resultado numa ListView.

For i = 1 To TxtQuantidadeParcelas.Text
lRow = GridParcelas.AddItem(Format(i, [Ô]000[Ô]))
GridParcelas.CellText(lRow, 1) = DateAdd([Ô]m[Ô], i, TxtData.Text) [ô] vai acrescentar um mes na data digitada
GridParcelas.CellText(lRow, 2) = Format$(Format$(valorparcelas, [Ô]##.##0,00[Ô]), [Ô]@@@@@@@@@@[Ô])
Next

O resultado é:
01/02/2011
01/03/2011
01/04/2011
01/05/2011

Até aí tudo bem. Agora, eu tenho que criar um campo para digitar o dia que vai ter que vencer cada parcela, por exemplo, tenho que gerar todas as parcelas para o dia 10 de cada mês.

O resultado éteria de ser:
10/02/2011
10/03/2011
10/04/2011
10/05/2011

Como posso fazer isso?

Até mais.
JOEYRFS 22/03/2011 14:07:08
#368789
DATEADD (datepart , number , date )

Datapart = onde que deseja adicionar

Number = quantidade que deseja adicionar

Date = Data inicial
PERCIFILHO 22/03/2011 14:08:09
#368790
Ok.
Tudo bem, até aí eu cheguei:

GridParcelas.CellText(lRow, 1) = DateAdd([Ô]m[Ô], i, TxtData.Text)

O problema é colocar todas as parcelas no mesmo dia, sendo que este dia será informado numa TextBox.

Até mais.
PERCIFILHO 22/03/2011 14:22:12
#368793
Bom, resolvi meu problema com uma POG:

For i = 1 To TxtQuantidadeParcelas.Text
lRow = GridParcelas.AddItem(Format(i, [Ô]000[Ô]))
GridParcelas.CellText(lRow, 1) = DateAdd([Ô]m[Ô], i, TxtData.Text) [ô] vai acrescentar um mes na data digitada
GridParcelas.CellText(lRow, 1) = TxtDia.Text & Mid(GridParcelas.CellText(lRow, 1), 3, 10) [ô]****** Inclui essa linha
GridParcelas.CellText(lRow, 2) = Format$(Format$(valorparcelas, [Ô]##.##0,00[Ô]), [Ô]@@@@@@@@@@[Ô])
Next

Deu certo, portanto, na falta de outra solução mais legal, fico com essa.
Vou deixar o tópico aberto mais um pouco para veer se alguém mais lê e dê outra sugestão

Até mais.
JOEYRFS 22/03/2011 14:22:59
#368794 Resposta escolhida
separa as datas com o Format.

exemplo:

DIA = Format(date, [Ô]dd[Ô])
MES = Format(date, [Ô]mm[Ô])
ANO = Format(date, [Ô]yyyy[Ô])

ai junta como quiser.
PERCIFILHO 22/03/2011 14:37:43
#368796
Ok, obrigado, amigo.
Estou encerrando o tópico (antes que eu esqueça) rsrs.

Até mais.
Tópico encerrado , respostas não são mais permitidas
Voltar