ERRO NA SOMA ACIMA DE UM MILHAO

EVERSON.PASETTO 07/08/2007 17:40:10
#229871
Tenho esta formula

txtTotal = Format(TxtValor.Text) * Format(txtQuantidade.Text)
txtTotal.Text = Format(txtTotal, "R$ 0.00")

Se eu tenho 999.900.000,50 e compro mais um produto de 0,25 ele soma direitinho e fica 999.900.000,75...

Mas se o valor passar de Um Milhão ele arredonda os valores para ",00" centavos...

E fica dando aquela rotina de arredondar para o valor dos centavos mais proximo se for 0,49 ele arredonda para 1...

Se for 0,50 ele arredonda para 1,00....

Onde esta o erro???

Obrigado e até +
LCSD 07/08/2007 17:42:59
#229874 Resposta escolhida
Faça assim:


txtTotal.Text = Format(txtTotal, "R$ 0.###,00")
USUARIO.EXCLUIDOS 07/08/2007 17:44:13
#229875

Cara...mude sua conta pra isso:

txtTotal = Cdbl(TxtValor.Text) * Cdbl(txtQuantidade.Text)
txtTotal.Text = Format(txtTotal, "Currency")

deve resolver

boa sorte
Tópico encerrado , respostas não são mais permitidas
Voltar