DIVISAO COM ARREDONDAMENTO DE PARCELAS VBA
Estou precisando fazer um arredondamento das parcelas exemplo:
1.000,00 / 7
As parcelas ficariam iguais e a primeira ficaria com a diferença que não pode ser distribuÃda em partes iguais
1ª 142,90
2ª 142,85
3ª 142,85
4ª 142,85
5ª 142,85
6ª 142,85
7ª 142,85
Pesquisei no forum e achei só para C# a resolução, porem preciso programar em VBA
Tentei dessa forma mas o máximo que ele arredonda é 0,01 centavo, mas algumas vezes como acima da uns 0,05 centavos a diferença da parcela
Dim num1 As Double
Dim num2 As Integer
Dim parc As Double
Dim total1 As Double
num1 = val(text1.Text)
num2 = val(text2.Text)
total1 = val(parc)
parc = Round(num1 / num2, 2)
total1 = (num1 - (parc * (num2 - 1)))
label11.Caption = Round(total1, 2)
Se alguém puder me ajudar eu agradeço
Vlw
1.000,00 / 7
As parcelas ficariam iguais e a primeira ficaria com a diferença que não pode ser distribuÃda em partes iguais
1ª 142,90
2ª 142,85
3ª 142,85
4ª 142,85
5ª 142,85
6ª 142,85
7ª 142,85
Pesquisei no forum e achei só para C# a resolução, porem preciso programar em VBA
Tentei dessa forma mas o máximo que ele arredonda é 0,01 centavo, mas algumas vezes como acima da uns 0,05 centavos a diferença da parcela
Dim num1 As Double
Dim num2 As Integer
Dim parc As Double
Dim total1 As Double
num1 = val(text1.Text)
num2 = val(text2.Text)
total1 = val(parc)
parc = Round(num1 / num2, 2)
total1 = (num1 - (parc * (num2 - 1)))
label11.Caption = Round(total1, 2)
Se alguém puder me ajudar eu agradeço
Vlw
RESPOSTA EXCLUIDA POIS O DONO DO POST NAO SE DEU O TRABALHO DE LER, SE ALGUEM PRECISAR ENVIAR MP QUE EU PASSO...
ROSO,
Há um tempo atrás já postei uma função que faz esse arredondamento e divide igualmente o resto que não pode ser dividido.
Está neste link.
Há um tempo atrás já postei uma função que faz esse arredondamento e divide igualmente o resto que não pode ser dividido.
Está neste link.
Obrigado.
Vlw
Vlw
Tópico encerrado , respostas não são mais permitidas