calcular porcentagem

[renatinhavip 0]

Oi, gente!

 

Como faço para calcular uma porcentagen tipo assim:

 

 

Onde o valor 1 (seta vermelha) tem que ser dividido pelo da seta azul, resultando numa porcentagem tipo a da seta verde.

 

Atualmente estou usando isso:

 

<%per_T1 = (Tf1/T1) * 100
Response.Write(FormatNumber(Cdbl("" & per_T1 & "")))
%>

o erro que dá é:

Erro de tempo de execução do Microsoft VBScript erro '800a0006'

 

Estouro

 

/sis-vendedor/teste/OBJ_relacaoObjetivoVendedor2.asp, line 260

 

A linha 260 é a do "code" acima.

 

Como faço? Alguém mejuda??? :(

[renatinhavip 0]

Bom, mudei!

 

Tá ssim:

 

Tf1 = rsTf1("Tf1")
 T1 = rsT1("T1")
per_T1 = (Tf1\T1) * 100
Response.Write(FormatPercent(Cdbl("" & per_T1 & "")))

O T1(seta azul) é buscado assim:

<%if not rsT1.eof then
	response.write(FormatNumber(rsT1("T1"), 2))
end if%>

e o Tf1(seta vermelha) é buscado assim:

<%if not rsTf1.eof then
	response.write(FormatNumber(rsTf1("Tf1"), 2))
end if%>

Não dá mais erro mas a porcentagem é de 0%, e devia ser cerca de 19% (?!?)

[DSerma 19]

Os dados do BD estão vindo como ??

 

Faça o teste colocando os valores manualmente, ex;

<%
A = 61179.00
B = 318821.00
C = ((A/B)*100)
Response.Write(FormatNumber(Cdbl(C)))
%>

 

Abraços...

[renatinhavip 0]

  Darkdemo disse:

Os dados do BD estão vindo como ??

 

Faça o teste colocando os valores manualmente, ex;

<%
A = 61179.00
B = 318821.00
C = ((A/B)*100)
Response.Write(FormatNumber(Cdbl(C)))
%>

 

Abraços...

Oi!

o resultado foi esse:

19,19

[renatinhavip 0]

Olha, acabei fazendo desse modo

 

<%

Tf1 = rsTf1("Tf1")

T1 = rsT1("T1")

C = ((Tf1/T1))

Response.Write(FormatPercent(Cdbl9©))

%>

 

não multiplica por cem, mas o resultado tá certo (conferi na calcu) e aparce o sinal de porcento%.

 

Será que tem algum problema?