veja a situação:
Tenho uma rotina que faz uma soma de Preço * Qtd e armazena em uma variável para mostrar o total.
A soma é composta de 226 itens. A partir do 215 o resultado parcial da soma seria 4750,10 porém é mostrado 4750,099999999999999, sendo que todos os números multiplicados são inteiros e decimais com 2 casas.
Fiz a mesma simulação no Excel, em VBA, e ocorre o mesmo problema.
A única solução que encontrei foi alterar o tipo da variável que armazena o total para SINGLE ao invés de DOUBLE. Com isso o erro não aparece.
Gostaria de saber se alguém já passou por isso e se há alguma limitação que provoca esse tipo de situação.
Rotina em VBA:
Sub Test()
Dim Line As Integer, Total As Double
Dim Qty As Double
Dim Price As Double
Line = 2
Do While Planilha1.Cells(Line, 1) <> ""
Price = Planilha1.Cells(Line, 2)
Qty = Planilha1.Cells(Line, 3)
Total = Total + (Price * Qty)
'Aqui, na linha 215, o resultado da soma mostra 4750.09999999 quando de fato é 4750.10
If Line = 215 Then MsgBox Total
Line = Line + 1
Loop
MsgBox Total
End Sub
Se trocar a declaração da variável Total para o tipo Single, o problema não acontece.
Neste link está a planilha, com a devida macro que mostra o problema:
http://s000.tinyupload.com/index.php?file_id=07636099064547863256
Agradeço qualquer ajuda.
1285 * 0,33 * 0,77
(aqui na minha resultou em326,5185
). Ou seja, o resultado pode estar essencialmente certo, só que com uma precisão alta demais para o que vc deseja. Você tentou simplesmente arredondar para duas casas decimais?round
no Excel: support.office.com/en-us/article/…