campo texto

[mestre fyoda 1]

o meu codigo nao ta funcionando como eu quero , ele deveria agir dessa maneira , caso o usuario digitace 200 ele automaticamente deveria fazer isso 200,00 , mas não esta fazendo . Como que eu faço isso ?

preco.Text =  FormatCurrency(preco.Text , 2 )

[thsie 0]

Tenho um camp que fiz igual ao que você fez, mas alguém sabe como faz a multiplicação de Quantidade x Valor Unitário? Pois está um deles como string e a outra como currency, e quando faço a multiplicação dah 0

[luiz humberto 0]

Antes de multiplicar transforme em double, para isto utilize a função Cdbl.

[thsie 0]

luiz, obrigado pela ajuda! Bom, fiz do jeito que foi falado, mas deu um problema. Quando o valor fica R$2,57 x 100(quantidade) ele aparece 200 em vez de R$257 . Parece que acabou pegando somente o 2 em vez dos depois da vírgula. segue abaixo o código que fiz vValor8 = Val(Quantidade_principal) vValor3 = Val(Quantidade1) vValor4 = Val(Quantidade2) vValor5 = Val(Quantidade3) vValor6 = Val(Quantidade4) vValor7 = Val(Quantidade5) vValor9 = Val(Quantidade_sobrando) vValor1 = Val(Quantidade_principal) vValor2 = Val(Valor_Unitário) Quantidade_sobrando.Text = vValor8 - vValor3 - vValor4 - vValor5 - vValor6 - vValor7 Valor_Total.Text = vValor1 * vValor2 Valor_sobrando.Text = vValor9 * vValor2Valor_Unitário.Text = CDbl(Valor_Unitário.Text)Valor_Total.Text = CDbl(Valor_Total.Text)Valor_sobrando.Text = CDbl(Valor_sobrando.Text)Quantidade_principal.Text = CDbl(Quantidade_principal.Text)Quantidade_sobrando.Text = CDbl(Quantidade_sobrando.Text)If Quantidade_sobrando.Text <> 0.0000000000001 ThenStatus.Text = "Aberto"If Quantidade_sobrando.Text = 0 ThenStatus.Text = "Fechado"Valor_Unitário.Text = Format(Valor_Unitário.Text, "currency")Valor_Total.Text = Format(Valor_Total.Text, "currency")Valor_sobrando.Text = Format(Valor_sobrando.Text, "currency")End IfEnd IfEnd Sub

[luiz humberto 0]

Você deve estar fazendo alguma coisa errada, verifique os valores de cada variável antes de efetuar a multiplicação.

[luiz humberto 0]

Na verdade Val não retorna o valor inteiro isso quem faz é a função Int, e sim não reconhece símbolos e caracteres como a R$, virgula dentre outros, então tudo que vêm apos eles não são reconhecidos.

[cassitos 2]

... pronto. tá limpo.postei no lugar errado.

[luiz humberto 0]

thsie,No seu caso não é viável utilizar a função Val, utilize Cdbl.

[thsie 0]

beleza, valeus!

[luiz humberto 0]

Ok.Tópico Fechado