[Resolvido] Resultados de Cálculos

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