DIFERENCA ENTRE 2 NUMEROS EM PORCETAGEM

WEBIER 31/05/2007 17:15:22
#219193
como seria o calculo que pegasse o numero q está num textbox e outro q estive em outro textbox e mostrasse a diferença entre eles em porcentagem?

exemplo:

text1 = 1000
text2 = 1500
text3 = 50%

ou seja, a diferença entre o text1 e text2 é de 50%
USUARIO.EXCLUIDOS 31/05/2007 17:21:56
#219197
cara nao seria isso?

a = 1500
b = 1000

c = a - b

d = a + b

e = (c * 100) / d
USUARIO.EXCLUIDOS 31/05/2007 17:22:20
#219198
bom, teria que ter o valor total mas tente assim:

porcentagem = Format((text1.text / total) * 100,"#")

Bom, isso é pura matematica ;)
WEBIER 31/05/2007 17:42:32
#219212
valor total seria a soma dos text1 e text2?
FGSANTOS 31/05/2007 17:44:14
#219214
Assim:

msgbox (txt1 - txt2) / txt1 * 100
USUARIO.EXCLUIDOS 31/05/2007 17:44:20
#219215 Resposta escolhida
a = CDbl(text1.text)
b = CDbl(text2.text)

Text3.text = Format(((b - a)/a) *100, "#0.0")
USUARIO.EXCLUIDOS 31/05/2007 17:48:02
#219218
Dim dMax As Double, dValor As Double

dMax = 2 * cdbl(Text1.text)
dValor = ((cdbl(Text2.text) - cdbl(Text1.text)) * 2) * 100
Text3.text = fRound(dValor / dMax)
Tópico encerrado , respostas não são mais permitidas
Voltar