Formatnumber - Resultados De Somas

[Ulissesx]

Pessoal no codigo abaixo (diga-se de passar em asp rudimentar ) é feita uma soma de valores e no final são exibidos os totais e suas porcentagens, tentei de varias formas formatar os valores com 2 casa apos a virgula, utilizei todos os tipos do Formatnumber (que conheco), mas quando o valor de algum campo é zero o formatnumber aborta o codigo com erro dizem que não é valido. Agradeço sugestões e criticas pois meu asp é 1/2 falho! Valeu

<%
   vardiff6 = rstotal10("total") / rstotal7("total") * 100
   response.Write Left(vardiff6,5)
     %>

---- editando para o foco do problema-----

Essa divisão vem de um resultado de SELECT SUM quando esse valor é ZERO o format number dá erro.

[cyberalexxx]

kara, nem olhei seu código, pois é muito extenso e to meio sem tempo, mais q tal fazer uma comparação se o valor for > 0 use o format number, caso contrario imprima 0,00.

[Ulissesx]

kara, nem olhei seu código, pois é muito extenso e to meio sem tempo, mais q tal fazer uma comparação se o valor for > 0 use o format number, caso contrario imprima 0,00.

eu já tentei dessa forma:

<%
   vardiff4 = rstotal4("total") / rstotal7("total") * 100
   if vardiff4 > 0 then
                  response.Write (FormatNumber(Left(vardiff6,5),2))
                  else
                  response.write "<font face=arial size=1>0,00</font>"
   end if
%>

---- Editando --- Esse esta ok nesse mesmo caso tenho esse select:

sqltotal9 = "SELECT SUM (VALOR) AS TOTAL FROM CHEQUES WHERE DATA_DEV BETWEEN #"&vardata1&"# and  #"&vardata&"# and situacao In ('Extravio')"
Set rstotal9 = Conexao.Execute(sqltotal9)

Utilizando dessa forma:

<% if rstotal9 > 0 then
response.write (formatnumber(rstotal9("total"),2))
else
response.write <font face=arial>0,00</font>
end if

esse valor quando utilizo o formatnumber e resultado é zero ocorre o erro "tipos incompatives"

[danyort]

Tem que procurar por uma função que faça isso.

Agora não posso, se você não achar nada, me avisa que vejo se consigo.

[Ulissesx]

Tem que procurar por uma função que faça isso.

Agora não posso, se você não achar nada, me avisa que vejo se consigo.

Estou vasculhando e tentando encontrar uma forma de fazer, mas nada concreto ainda, agradeço a força

[cyberalexxx]

nesse mesmo caso tenho esse select:

sqltotal9 = "SELECT SUM (VALOR) AS TOTAL FROM CHEQUES WHERE DATA_DEV BETWEEN #"&vardata1&"# and  #"&vardata&"# and situacao In ('Extravio')"
Set rstotal9 = Conexao.Execute(sqltotal9)

Utilizando dessa forma:

<% if rstotal9 > 0 then
response.write (formatnumber(rstotal9("total"),2))
else
response.write <font face=arial>0,00</font>
end if

esse valor quando utilizo o formatnumber e resultado é zero ocorre o erro "tipos incompatives"

Tenta assim

<% if rstotal9.fields("total") > 0 then

response.write (formatnumber(rstotal9("total"),2))

else

response.write <font face=arial>0,00</font>

end if

[cyberalexxx]

Kara, ao invés de ficar fazendo mil e uma comparações cria uma função, exemplo:

function formata(valor) 
  if valor > 0 then
     response.write formatnumber(valor,2)
  else
     response.write "0,00"
  end if
end function 

Como usar:

formata rstotal9("total")