[Resolvido] Resultados de Cálculos

faelwan · Outubro 28, 2008

Saudações Pessoal ^^

Nossa eu denovo aqui com umas dúvidas estranhas, rsrs, mas essa me pegou de verdade!

Seguinte, desenvolvo um Sistema de Controle de Estoque. Já implantado, enquanto um dos

funcionários aqui da empresa operava, em um cálculo de Saída o programa me deixou na mão rsrsr...

:blink: Ao analisar o erro descobri que o VB faz um tipo de tratamento em determinados resultados, o que fez com que meu BD

não aceitasse os valores para ele enviados. Segue exemplo:

Dim vn1, vn2, vresultado as Double
vn1 = Cdbl("0,226")
vn2 = Cdbl("0,220")

vresultado = vn1 - vn2

MsgBox vresultado

O resultado correto seria = 0,006

Entretanto o VB retorna o valor = 6,0000000000000 1E-03, - que acredito eu que represente um resultado expresso

em potência de 10, no caso 6 x 10-³

não posso guardar valores desse tipo no Banco de Dados, preciso muito de uma solução, algo

que impeça que o VB faça essa representação. http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

Gente, agradeço desde já ^^

Um Abraço a Todos

Claudio Neto · Outubro 28, 2008

Rafael, utilize o formatnumber:

vresultado = FormatNumber(vn1 - vn2, x)

Sendo que o 'x' é a quantidade de casas decimais que pretende trabalhar. Para o seu caso, três trará o resultado esperado.

faelwan · Outubro 29, 2008

Valeu Cláudio Neto! ^^

Mais uma vez você salva meu pescoço!

Poxa! Mas você manja msm hein! rsrs

Abração!

Agradecido Rafael Lemes

Recommended Posts