ARREDONDANDO PARCELAS

PERCIFILHO 25/03/2015 21:48:16
#445491
Pessoal, estou fazendo uma divisão de valor para gerar parcelas. O valor principal é: 185,00 tenho que dividir por 3 parcelas.
A divisão resulta em: 61,6666666666

Na minha divisão fica assim:
1ª parcela - 61,66
2ª parcela - 61,66
3ª parcela - 61,67

Como faço para fazer com que fique assim:
1ª parcela - 61,68
2ª parcela - 61,66
3ª parcela - 61,66

ou seja, fazer com que o VB sempre arredonde, calculando sempre a diferença para jogar na primeira parcela?

Desde já obrigado.

Até mais
FFCOUTO 25/03/2015 21:57:04
#445492
Neste tópico eu deixei uma função para realizar essa divisão.
JCM0867 27/03/2015 20:32:12
#445530 Resposta escolhida
Se for para escola é meu concorrente...hehe

Ve se entende:
Ele pega o valor total e divide em um grupo de meses.
por exempo:
Valor total 5498,80 divididos entre jan a dez
txtMenValorAnual.Text = 5.498,80
cboMesFinal=12
cboMesInicial=1

ParcelasNormais = CSng(txtMenValorAnual.Text / (cboMesFinal.SelectedValue - cboMesInicial.SelectedValue + 1)).ToString([Ô]#,##0.00[Ô])
ParcelaArredondamento = (ParcelasNormais * (cboMesFinal.SelectedValue - cboMesInicial.SelectedValue)) - txtMenValorAnual.Text
ParcelaArredondamento = Math.Abs(ParcelaArredondamento)

Resultado: primeira parcela = 458,27
Demais parcelas = 458,23

Esse codigo joga a diferença para a primeira parcela, a restante fica igual
Tópico encerrado , respostas não são mais permitidas
Voltar