FORMATAR CAMPO
TÃ ' ma passar com isto.
Tenho 3 textbox todas em formato "Currency"
Na Box1 tenho o valor de 20.000,00 €
Na Box2 tenho o valor de 15.500,51 €
Box3 = Val(box1)+Val(Box2)
e o resultado aparece = 30,50 €
em vez de 35.500,51 €
Alguem dá ai uma dica !!!
Tks.
Tenho 3 textbox todas em formato "Currency"
Na Box1 tenho o valor de 20.000,00 €
Na Box2 tenho o valor de 15.500,51 €
Box3 = Val(box1)+Val(Box2)
e o resultado aparece = 30,50 €
em vez de 35.500,51 €
Alguem dá ai uma dica !!!
Tks.
Valor1 = format( Valor1, "Standard")
Valor2 = format( Valor1, "Standard")
Valor3 = format(( Valor1 - Valor2), "Standard")
Valor2 = format( Valor1, "Standard")
Valor3 = format(( Valor1 - Valor2), "Standard")
é Só fazer assim o:
Format(STRING,"Currency")
ex:
Format(STRING,"Currency")
ex:
Box3 = Format(Val(box1) + Val(Box2), "Currency")
Peço desculpa a todos mas tou-me a passar..............
Tenho numa Base de dados vário campos tipo "Currency"
só que quando tento fazer cáculos num fomulário e depois gravá-los na BD
não grava, e alem de não gravar, não me fáz contas com decimais.....(Euros)
Alguem tem um pequenino programa, que inclua uma BD, onde eu faça contas
num formulário e depois grave na BD?????? Só para eu vêr como se fazem as
contas. (Tenho que ir prá escolinha de novo???)
Tou a precisar.
Tks.
Tenho numa Base de dados vário campos tipo "Currency"
só que quando tento fazer cáculos num fomulário e depois gravá-los na BD
não grava, e alem de não gravar, não me fáz contas com decimais.....(Euros)
Alguem tem um pequenino programa, que inclua uma BD, onde eu faça contas
num formulário e depois grave na BD?????? Só para eu vêr como se fazem as
contas. (Tenho que ir prá escolinha de novo???)
Tou a precisar.
Tks.
Se você estiver utilizando o Access, verifique a quantidade de casas decimais no campo. Mude se estiver com zero.
Poste aki o seu e-mail:
Um abraço!
Um abraço!
faz isso ae
Box3 =empty
resolveu seu problema
Box3 =empty
resolveu seu problema
à ± faça isso
Box3 = Val(box1)+Val(Box2)
faça isso
Box3 = format(ccur(box1)+ccur(Box2) ,"Standard")
Box3 = Val(box1)+Val(Box2)
faça isso
Box3 = format(ccur(box1)+ccur(Box2) ,"Standard")
Tópico encerrado , respostas não são mais permitidas