GERAR PARCELAS

MOREIRA 08/02/2010 17:28:33
#333939
Ola pessoal, bom estou iniciando um projeto de Contas a pagar.. quero gerar parcelas aparti de uma data vencimento.
mas terá q ser assim..
quero adaptar a quantidade de dias e o intervalo de dias das parcelas no exemplo abaixo

exemplo:

txtDt_Vencimento = 08-02-2010 --> dia do vencimento
txtnum_parcelas = 12 --> numeros de parcelas
txtQuant_Dias = 10 --> quantidade de dias apos o vencimento
txtIntervalo_Dias = 30 --> intervalo de dias

Gerar Parcelas

Private Sub CmdGerar_Click()
Dim Quant As Integer
Dim Parc As Integer
Dim Num_Parc As Integer
Dim Venc As Date
MSFlexGrid1.Rows = 1 [ô]Limpa a Grid, Caso Altere a Quant Parcelas
Num_Parc = Val(TxtNum_Parc.Text) [ô]Coloca o Num. de Parcelas na Memoria
For i = 1 To Val(Num_Parc)
Venc = DateAdd([Ô]M[Ô], i - 1, Format(TxtDt_Venc.Text, [Ô]dd/mm/yyyy[Ô]))
Parc = CDbl(TxtValor_Doc.Text) / Val(Num_Parc)
Quant = Quant + 1 [ô]Numeração das Parcelas
[ô]--Grid
With MSFlexGrid1
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 1) = Quant & [Ô]/[Ô] & Num_Parc [ô]Quant Parcela e o Numero da Parcela e
.TextMatrix(.Rows - 1, 2) = TxtNum_Doc.Text
End With
Next i
End Sub
SINKERTEC 09/02/2010 09:22:04
#333968


Meu caro

Uma forma bem simples de vc acrescentar dias ou meses em datas é através desta sintaxe

ProximaData = DateAdd ([Ô]m[Ô], 1, DataPagamento) [ô] vai acrescentar um mes na data digitada

A partir daí vc conseguirá gerar suas parcelas ..facilmente

Boa sorte
MOREIRA 11/02/2010 00:18:07
#334143
[txt-color=#0000f0]ola pessoal, preciso q seja opcional informar a quantidade dias no intervalo das parcelas.. da forma fiz esta com 30 dias corridos.[/txt-color]
------- esse é o codigo usado

Private Sub CmdGerar_Click()
Dim Quant As Integer
Dim Parc As Integer
Dim Num_Parc As Integer
Dim Venc As Date
MSFlexGrid1.Rows = 1 [ô]Limpa a Grid, Caso Altere a Quant Parcelas
Num_Parc = Val(TxtNum_Parc.Text) [ô]Coloca o Num. de Parcelas na Memoria

For i = 1 To Val(Num_Parc)
Venc = DateAdd([Ô]M[Ô], i - 1, Format(TxtDt_Venc.Text, [Ô]dd/mm/yyyy[Ô]))
Parc = CDbl(TxtValor_Doc.Text) / Val(Num_Parc)
Quant = Quant + 1 [ô]Numeração das Parcelas

[ô]--Grid
With MSFlexGrid1
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 1) = Quant & [Ô]/[Ô] & Num_Parc [ô]Quant Parcela e o Numero da Parcela e
.TextMatrix(.Rows - 1, 2) = TxtNum_Doc.Text
.TextMatrix(.Rows - 1, 3) = Format(Venc, [Ô]dd/mm/yyyy[Ô])
End With
Next i
End Sub
SINKERTEC 11/02/2010 09:37:14
#334152


vc quer q o numero de dias q digitar no intervalo, seja o numero de dias entre parcelas?

Explica melhor ae
STRANDOW 11/02/2010 10:59:34
#334160 Resposta escolhida
Ola moreira...

Se vc quer que a data de dias seja variavel, que vá variar conforme a informação porstada....
vc pode usar a função que o sinkertec passou

ProximaData = DateAdd ([Ô]d[Ô], TxtDt_Venc.Text, DataPagamento) [ô] vai acrescentar um mes na data digitada

resumindo como esta no seu código, que vc colocou acima...seria....
Venc = DateAdd([Ô]d[Ô], TxtDt_Venc.Text , Format(TxtDt_Venc.Text, [Ô]dd/mm/yyyy[Ô]))


espero que tenha ajudado
LROSSI 11/02/2010 16:16:07
#334188
Venc = cdate(txtdataemiss)+(txtnumdiasentreasparcelas * i)

é isso?
MOREIRA 11/02/2010 23:24:57
#334233
Pessoal é o sequinte: tenho a Data Vencimento --> 15/12/2009 do primeiro pagamento

Quero em 3 parcelas ( [Ô] 3 Pagamentos[Ô])

Antes de gerar as parcelas tenho que informar quantos dias vou querer entre as 3 parcelas..

Exemplo: -->> se é 30 20 ou 15 dias entre as parcelas...

espero ter cido claro na pergunta.

obrigado pela atenção de todos..
DAVIDNUNES 12/02/2010 00:45:25
#334236
cara tenta assim

Dim DataMes As String
Dim DataIntervalo As String
Dim i As Integer

For i = 0 To 3
DataMes = DateAdd([Ô]m[Ô], i, Date)
DataIntervalo = DateAdd([Ô]d[Ô], txt_Intervalo.Text, DataMes)

MsgBox DataIntervalo
Next i
LROSSI 12/02/2010 08:25:31
#334239
Citação:

:
Pessoal é o sequinte: tenho a Data Vencimento --> 15/12/2009 do primeiro pagamento

Quero em 3 parcelas ( [Ô] 3 Pagamentos[Ô])

Antes de gerar as parcelas tenho que informar quantos dias vou querer entre as 3 parcelas..

Exemplo: -->> se é 30 20 ou 15 dias entre as parcelas...

espero ter cido claro na pergunta.

obrigado pela atenção de todos..





Ola pessoal, bom estou iniciando um projeto de Contas a pagar.. quero gerar parcelas aparti de uma data vencimento.
mas terá q ser assim..
quero adaptar a quantidade de dias e o intervalo de dias das parcelas no exemplo abaixo

exemplo:

txtDt_Vencimento = 08-02-2010 --> dia do vencimento
txtnum_parcelas = 12 --> numeros de parcelas
txtQuant_Dias = 10 --> quantidade de dias apos o vencimento
txtIntervalo_Dias = 30 --> intervalo de dias

Gerar Parcelas

Private Sub CmdGerar_Click()
Dim Quant As Integer
Dim Parc As Integer
Dim Num_Parc As Integer
Dim Venc As Date
MSFlexGrid1.Rows = 1 [ô]Limpa a Grid, Caso Altere a Quant Parcelas
Num_Parc = Val(TxtNum_Parc.Text) [ô]Coloca o Num. de Parcelas na Memoria
For i = 1 To Val(Num_Parc)
[txt-color=#e80000] Venc = cdate(TxtDt_Venc.Text)+val(TxtNum_Parc.Text * i) [/txt-color]
Parc = CDbl(TxtValor_Doc.Text) / Val(Num_Parc)
Quant = Quant + 1 [ô]Numeração das Parcelas
[ô]--Grid
With MSFlexGrid1
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 1) = Quant & [Ô]/[Ô] & Num_Parc [ô]Quant Parcela e o Numero da Parcela e
.TextMatrix(.Rows - 1, 2) = TxtNum_Doc.Text
End With
Next i
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar