CALCULADORA ERRO NA DIVISAO

DARTAGNAN 06/04/2011 11:55:16
#370604
Boa tarde caros vbmaniacos

Estou tentando fazer um calculo de rateio atraves do vb e nao consigo

ex:
quero dividir
456 / 5926
o resultado para minha conta continuar da certo
teria que ser 0.076949

mas o vb me retorna: 7,69490381370233E-02

e agora? como passar por isso? rsrs

obrigado
JONATHANSTECKER 06/04/2011 11:58:04
#370605 Resposta escolhida
Como você está calculando?
Poste a função...
DARTAGNAN 06/04/2011 12:00:00
#370606
é divisao simples

total ,valor1valor 2 as double

valor1 = 456
valor2= 5926

total = valor1 / valor2

ai o resultado disso eu vo usar para outras funcoes para fazer rateios de fretes, pesos por exemplo..
JONATHANSTECKER 06/04/2011 12:04:36
#370607
Tente assim.:
total ,valor1valor 2 As Currency

valor1 = 456
valor2= 5926

total = valor1 / valor2
ROBIU 06/04/2011 12:35:45
#370609
é bom definir a quantidade de decimais:

Dim Total, Valor1, Valor2 As Double

Valor1 = 45600000
Valor2 = 592600

Total = FormatNumber(Valor1 / Valor2, 6)[ô] com seis casas decimais


ou

Total = Format(Valor1 / Valor2, [Ô]#,##0.000000[Ô]) [ô]Acrescenta ou reduz os zeros
FNANDOOD 06/04/2011 13:24:12
#370612
tenta assim:

Private Sub Command1_Click()

Dim v1 As Currency
Dim v2 As Currency
v1 = 456
v2 = 5926
v3 = v1 / v2

Print CCur(v3)



Print [Ô]TESTE: 0.076949[Ô]
End Sub
DARTAGNAN 06/04/2011 13:30:03
#370614
obrigado ambos os exemplos funcionaram e deram certo para o que eu estava tentando fazer :)
Tópico encerrado , respostas não são mais permitidas
Voltar