Ir para conteúdo
Fórum Script Brasil
  • 0

Calculo Do Excel - Resolvido


jucacabala

Pergunta

tenho um arquivo asp que faz conexao com uma planilha excel.

nesta planilha tem uma coluna que o valor é resultado de uma divisão.

o valor no excel fica assim 0,479295154185022

mas na minha pagina asp eu queria que este valor fosse exibido com duas casas decimais, assim 0,48

o campo arredondado será o

<% = rs.fields("obj_ich") %>

como posso fazer?

Link para o comentário
Compartilhar em outros sites

20 respostass a esta questão

Posts Recomendados

  • 0

no excel a célula esta formatada como numero geral.

com duas casas decimais e é resultado de uma divisão.

o asp faz conexao com esta planilha e mostra os dados.

meu codigo asp

o valor da divisao aparece na pagina como 0,474849849

e queria que mostrasse 0,48

<%
Dim Conn, RS, codigo

Set Conn = CreateObject("ADODB.Connection")
With Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"

codigo = Request.QueryString("cod")

.ConnectionString = "Data Source= D:\Julyana\atlas\finalbd\fechamento_mes\"& (codigo) &";Extended Properties=Excel 8.0;"
.Open
End With

Set RS = Conn.Execute("SELECT * FROM [consolidado$] ")
%>
<html>
<head>
<title>Portal de Resultados do AA</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="estilo.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="5" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="10" align="right"> <!--#include file="topo.asp" --></td>
  </tr>
  <tr> 
    <td height="30">&nbsp;</td>
  </tr>
  <tr> 
    <td class="arial10"><strong><font color="#003366">Planilha referente:</font> <font color="#990000">
      <% = codigo %>
      </font></strong></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="5" colspan="13"><img src="imagens/transparente.gif" width="11" height="5"></td>
        </tr>
        <tr valign="middle" class="arial10" bgcolor="#003366">
          <td width="15%"><font color="#FFFFFF">&nbsp;Local</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">N&uacute;mero<br>
            Unidades</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Chamada<br>
            Normal</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Chamada<br>
            Emerg&ecirc;ncia</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Total<br>
            Chamadas</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">ICH</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Obj.<br>
            ICH</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">MTBC</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Obj.<br>
            MTBC</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Cr&iacute;ticas</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Obj.<br>
            Cr&iacute;ticas</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Tempo de<br>
            Atend.</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Obj. Tempo<br>
            de Atend.</font></td>
        </tr>
        <tr>
          <td colspan="13"><img src="imagens/transparente.gif" width="11" height="8"></td>
        </tr>
  <% 
  	Do While RS.EOF = False
  	
  	If bgColor = "#EAF5FF" Then
    bgColor = "#F3F3F3"
  	Else
    bgColor = "#EAF5FF"
  	End If
  %>
        <tr class="arial9txt" bgcolor="<%=bgColor%>">
          <td>&nbsp;
            <% = rs.fields("local") %></td>
          <td align="center"><% = rs.fields("unidades") %></td>
          <td align="center"><% = rs.fields("chm_normal") %>
          </td>
          <td align="center"><% = rs.fields("chm_emerg") %>
          </td>
          <td align="center"><% = rs.fields("total_chm") %>
          </td>
          <td align="center"><% = rs.fields("ich") %>
          </td>
          <td align="center"><b><font color="#990000">
            <% = rs.fields("obj_ich") %>
            </font></b>
    </td>
          <td align="center"><% = rs.fields("mtbc") %>
          </td>
          <td align="center"><b><font color="#990000">
            <% = rs.fields("obj_mtbc") %>
            </font></b>
          </td>
          <td align="center"><% = rs.fields("criticas") %>
          </td>
          <td align="center"><b><font color="#990000">
            <% = rs.fields("obj_criticas") %>
            </font></b>
          </td>
          <td align="center"><% = rs.fields("tempo_atend") %>
          </td>
          <td align="center"><b><font color="#990000">
            <% = rs.fields("obj_tempo_atend") %>
            </font></b>
          </td>
        </tr>
        <tr>
          <td colspan="13"><img src="imagens/transparente.gif" width="11" height="3"></td>
        </tr>
    
        <%  	
  	RS.MoveNext
  	Loop
  	RS.Close
  	Set RS = Nothing
  	Conn.Close
  	Set Conn = Nothing 
    %>

        <tr>
          <td colspan="13"><img src="imagens/transparente.gif" width="11" height="8"></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td height="30">&nbsp;</td>
  </tr>
  <tr>
    <td align="center"><a href="javascript:history.go(-1)"><img src="imagens/ico_volta.gif" width="67" height="30" border="0"></a></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td> <!--#include file="rodape.asp" --> </td>
  </tr>
</table>
</body>
</html>

Link para o comentário
Compartilhar em outros sites

  • 0

Moça,

Eu testei e de certo. O que pode estar acontecendo é que em alguma linha exista um erro. Tipo: é uma divisão, certo, e se em algum lugar tem um zero onde não devia , ai "buaaaaaaaaaaaaaaaaaa ", o excel retorna "alguma coisa que não da para ser convertida em um número". Se o erro não for logo na primeira linha, provavelmente alguns números apareceram, ou não?

Se você não conseguir contornar este inconviniente posta de novo.

sad.gif

[]'s

Link para o comentário
Compartilhar em outros sites

  • 0

Se você já sabe que o problema esta com o retorno de uma operação que resultou em erro, então teste cada valor se for um erro mostre uma mensagem ou zero ou o que você quizer, tipo assim oh:

Link para o comentário
Compartilhar em outros sites

  • 0

Toma ai dei uma testadinha simples e funcionou, a função abaixo arranca todos os caracteres que não forem numérico e não forem pontos p/ acrescentar é só adicionar o caracter desejado separado por , na variável filtro. Ok

dim x,cInd,filtro,cValidos,achou

filtro = "0,1,2,3,4,5,6,7,8,9,."

cValidos = split(filtro,",")

function arrancaSafados(valor)'valor seria o seu rs() Ok

arrancaSafados = valor

arrancaSafados = replace(arrancaSafados,",",".")

for x=1 to len(arrancaSafados)

cInd = cStr(mid(arrancaSafados,x,1))

achou = false

for y=0 to 10

if cInd = cStr(cValidos(y)) then

achou = true

end if

next

if achou = false then

arrancaSafados = replace(arrancaSafados,cInd,"*")

end if

next

arrancaSafados = replace(arrancaSafados,"*","")

end function

Espero ter ajudado

Abracos...

Link para o comentário
Compartilhar em outros sites

  • 0

bom fiz oque o JCMPJ indicou

não deu erro mas tambem não deu muito certo

acontece que ele pega o primeiro valor do primeiro registro e repete para todos os outros.

meu codigo ficou assim:

<%
Dim Conn, RS, codigo, cod2, cod3

Set Conn = CreateObject("ADODB.Connection")
With Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"

codigo = Request.QueryString("cod")

.ConnectionString = "Data Source= D:\Julyana\atlas\finalbd\fechamento_mes\"& (codigo) &";Extended Properties=Excel 8.0;"
.Open
End With

Set RS = Conn.Execute("SELECT * FROM [consolidado$] ")

cod2 = FormatNumber(rs.fields("ich"), 2)
cod3 = FormatNumber(rs.fields("mtbc"), 2)

%>
<html>
<head>
<title>Portal de Resultados do AA</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="estilo.css" rel="stylesheet" type="text/css">
<script LANGUAGE="JavaScript" SRC="overlib.js"></SCRIPT>
</head>
<body leftmargin="5" topmargin="0" marginwidth="0" marginheight="0">
<DIV ID="overDiv" STYLE="position:absolute; visibility:hide; z-index: 1;"></DIV>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="10" align="right"> <!--#include file="topo.asp" --></td>
  </tr>
  <tr> 
    <td height="30">&nbsp;</td>
  </tr>
  <tr> 
    <td class="arial10"><strong><font color="#003366">Planilha referente:</font> <font color="#990000">
      <% = codigo %>
      </font></strong></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="5" colspan="13"><img src="imagens/transparente.gif" width="11" height="5"></td>
        </tr>
        <tr valign="middle" class="arial10" bgcolor="#003366">
          <td width="15%"><font color="#FFFFFF">&nbsp;Local</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">N&uacute;mero<br>
            Unidades</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Chamada<br>
            Normal</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Chamada<br>
            Emerg&ecirc;ncia</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Total<br>
            Chamadas</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">ICH</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Obj.<br>
            ICH</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">MTBC</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Obj.<br>
            MTBC</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Cr&iacute;ticas</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Obj.<br>
            Cr&iacute;ticas</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Tempo de<br>
            Atend.</font></td>
          <td width="7%" align="center"><font color="#FFFFFF">Obj. Tempo<br>
            de Atend.</font></td>
        </tr>
        <tr>
          <td colspan="13"><img src="imagens/transparente.gif" width="11" height="8"></td>
        </tr>
  <% 
  	Do While RS.EOF = False
  	
  	If bgColor = "#EAF5FF" Then
    bgColor = "#F3F3F3"
  	Else
    bgColor = "#EAF5FF"
  	End If
  %>
        <tr class="arial9txt" bgcolor="<%=bgColor%>">
          <td>&nbsp;<a onMouseOver="dlc('Nome do Local','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("local") %></a></td>
          <td align="center"><a onMouseOver="dlc('Número de Unidades','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("unidades") %></a></td>
          <td align="center"><a onMouseOver="dlc('Chamada Normal','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("chm_normal") %></a></td>
          <td align="center"><a onMouseOver="dlc('Chamada Emergência','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("chm_emerg") %></a></td>
          <td align="center"><a onMouseOver="dlc('Total Chamadas','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("total_chm") %></a></td>
          <td align="center"><a onMouseOver="dlc('ICH','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = cod2 %></a></td>
          <td align="center"><b><font color="#990000"><a onMouseOver="dlc('Objetivo ICH','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("obj_ich") %></a></font></b></td>
          <td align="center"><a onMouseOver="dlc('MTBC','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = cod3 %></a></td>
          <td align="center"><b><font color="#990000"><a onMouseOver="dlc('Objetivo MTBC','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("obj_mtbc") %></a></font></b></td>
          <td align="center"><a onMouseOver="dlc('Críticas','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("criticas") %></a></td>
          <td align="center"><b><font color="#990000"><a onMouseOver="dlc('Objetivo Críticas','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("obj_criticas") %></a></font></b></td>
          <td align="center"><a onMouseOver="dlc('Tempo de Atendimento','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("tempo_atend") %></a></td>
          <td align="center"><b><font color="#990000"><a onMouseOver="dlc('Objetivo Tempo de Atendimento','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("obj_tempo_atend") %></a></font></b></td>
        </tr>
        <tr>
          <td colspan="13"><img src="imagens/transparente.gif" width="11" height="3"></td>
        </tr>
    
        <%  	
  	RS.MoveNext
  	Loop
  	RS.Close
  	Set RS = Nothing
  	Conn.Close
  	Set Conn = Nothing 
    %>

        <tr>
          <td colspan="13"><img src="imagens/transparente.gif" width="11" height="8"></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td height="30">&nbsp;</td>
  </tr>
  <tr>
    <td align="center"><a href="javascript:history.go(-1)"><img src="imagens/ico_volta.gif" width="67" height="30" border="0"></a></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td> <!--#include file="rodape.asp" --> </td>
  </tr>
</table>
</body>
</html>

eu criei as variaveis e coloquei a formatação.

sera que alguém sabe o que pode ta acontecendo?

desde já agradeço a ajudinha de vocês

beijinhos

Link para o comentário
Compartilhar em outros sites

  • 0

Tente assim:

<%
Dim Conn, RS, codigo, cod2, cod3

Set Conn = CreateObject("ADODB.Connection")
With Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"

codigo = Request.QueryString("cod")

.ConnectionString = "Data Source= D:\Julyana\atlas\finalbd\fechamento_mes\"& (codigo) &";Extended Properties=Excel 8.0;"
.Open
End With

Set RS = Conn.Execute("SELECT * FROM [consolidado$] ")



%>
<html>
<head>
<title>Portal de Resultados do AA</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="estilo.css" rel="stylesheet" type="text/css">
<script LANGUAGE="JavaScript" SRC="overlib.js"></SCRIPT>
</head>
<body leftmargin="5" topmargin="0" marginwidth="0" marginheight="0">
<DIV ID="overDiv" STYLE="position:absolute; visibility:hide; z-index: 1;"></DIV>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
 <tr> 
   <td height="10" align="right"> <!--#include file="topo.asp" --></td>
 </tr>
 <tr> 
   <td height="30">&nbsp;</td>
 </tr>
 <tr> 
   <td class="arial10"><strong><font color="#003366">Planilha referente:</font> <font color="#990000">
     <% = codigo %>
     </font></strong></td>
 </tr>
 <tr>
   <td>&nbsp;</td>
 </tr>
 <tr>
   <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
       <tr>
         <td height="5" colspan="13"><img src="imagens/transparente.gif" width="11" height="5"></td>
       </tr>
       <tr valign="middle" class="arial10" bgcolor="#003366">
         <td width="15%"><font color="#FFFFFF">&nbsp;Local</font></td>
         <td width="7%" align="center"><font color="#FFFFFF">N&uacute;mero<br>
           Unidades</font></td>
         <td width="7%" align="center"><font color="#FFFFFF">Chamada<br>
           Normal</font></td>
         <td width="7%" align="center"><font color="#FFFFFF">Chamada<br>
           Emerg&ecirc;ncia</font></td>
         <td width="7%" align="center"><font color="#FFFFFF">Total<br>
           Chamadas</font></td>
         <td width="7%" align="center"><font color="#FFFFFF">ICH</font></td>
         <td width="7%" align="center"><font color="#FFFFFF">Obj.<br>
           ICH</font></td>
         <td width="7%" align="center"><font color="#FFFFFF">MTBC</font></td>
         <td width="7%" align="center"><font color="#FFFFFF">Obj.<br>
           MTBC</font></td>
         <td width="7%" align="center"><font color="#FFFFFF">Cr&iacute;ticas</font></td>
         <td width="7%" align="center"><font color="#FFFFFF">Obj.<br>
           Cr&iacute;ticas</font></td>
         <td width="7%" align="center"><font color="#FFFFFF">Tempo de<br>
           Atend.</font></td>
         <td width="7%" align="center"><font color="#FFFFFF">Obj. Tempo<br>
           de Atend.</font></td>
       </tr>
       <tr>
         <td colspan="13"><img src="imagens/transparente.gif" width="11" height="8"></td>
       </tr>
 <% 
  Do While RS.EOF = False
  
    If IsNumeric(rs.fields("ich")) Then
       cod2=FormatNumber(rs.fields("ich"), 2)
       Else
            cod2="erro"
    End If
    If IsNumeric(rs.fields("mtbc")) Then
       cod3=FormatNumber(rs.fields("mtbc"), 2)
       Else
            cod3="erro"
    End If

    'cod2 = FormatNumber(rs.fields("ich"), 2) * Estas duas linhas já deveriam estar *
    'cod3 = FormatNumber(rs.fields("mtbc"), 2)* dentro do laço "Do While" !?!?      *

  If bgColor = "#EAF5FF" Then
   bgColor = "#F3F3F3"
  Else
   bgColor = "#EAF5FF"
  End If
 %>
       <tr class="arial9txt" bgcolor="<%=bgColor%>">
         <td>&nbsp;<a onMouseOver="dlc('Nome do Local','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("local") %></a></td>
         <td align="center"><a onMouseOver="dlc('Número de Unidades','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("unidades") %></a></td>
         <td align="center"><a onMouseOver="dlc('Chamada Normal','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("chm_normal") %></a></td>
         <td align="center"><a onMouseOver="dlc('Chamada Emergência','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("chm_emerg") %></a></td>
         <td align="center"><a onMouseOver="dlc('Total Chamadas','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("total_chm") %></a></td>
         <td align="center"><a onMouseOver="dlc('ICH','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = cod2 %></a></td>
         <td align="center"><b><font color="#990000"><a onMouseOver="dlc('Objetivo ICH','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("obj_ich") %></a></font></b></td>
         <td align="center"><a onMouseOver="dlc('MTBC','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = cod3 %></a></td>
         <td align="center"><b><font color="#990000"><a onMouseOver="dlc('Objetivo MTBC','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("obj_mtbc") %></a></font></b></td>
         <td align="center"><a onMouseOver="dlc('Críticas','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("criticas") %></a></td>
         <td align="center"><b><font color="#990000"><a onMouseOver="dlc('Objetivo Críticas','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("obj_criticas") %></a></font></b></td>
         <td align="center"><a onMouseOver="dlc('Tempo de Atendimento','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("tempo_atend") %></a></td>
         <td align="center"><b><font color="#990000"><a onMouseOver="dlc('Objetivo Tempo de Atendimento','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("obj_tempo_atend") %></a></font></b></td>
       </tr>
       <tr>
         <td colspan="13"><img src="imagens/transparente.gif" width="11" height="3"></td>
       </tr>
   
       <%   
  RS.MoveNext
  Loop
  RS.Close
  Set RS = Nothing
  Conn.Close
  Set Conn = Nothing 
   %>

       <tr>
         <td colspan="13"><img src="imagens/transparente.gif" width="11" height="8"></td>
       </tr>
     </table></td>
 </tr>
 <tr>
   <td height="30">&nbsp;</td>
 </tr>
 <tr>
   <td align="center"><a href="javascript:history.go(-1)"><img src="imagens/ico_volta.gif" width="67" height="30" border="0"></a></td>
 </tr>
 <tr>
   <td>&nbsp;</td>
 </tr>
 <tr> 
   <td> <!--#include file="rodape.asp" --> </td>
 </tr>
</table>
</body>
</html>

dry.gif

Link para o comentário
Compartilhar em outros sites

  • 0

eita nois

que acho que é isso mesmo

depois que desliguei minha maquina que percebi isso

se a variavel esta fora do loop

é claro que ela vai pegar somente o primeiro valor e duplicar para o restante!

eita cabeça gorda essa minha!!!!!!!!!!!!!

bom JCMPJ vou testar isso mais tarde

e se der certo posto aqui, ok?

valeu pela ajuda

beijinhos

Link para o comentário
Compartilhar em outros sites

  • 0

Já tentou usar o Round?

<%=Round("12,3456789",2)%>

Algo assim...

Desculpe se falei bobagem, li o tópico "por cima".

Abraços e boa sorte!

Link para o comentário
Compartilhar em outros sites

  • 0

olha já tentei tanta coisa que nem me lembro mais se isto eu já fiz ou não

mas GuTo é contigo mesmo que queria falar

cara sabe aquele troço de aniversariantes que você fez e postou

me ajuda nisso? já rodei o mundo e não ta dando jeito

olha o meu tópico http://scriptbrasil.com.br/forum/index.php?showtopic=57618

se você puder

eu agradeço

beijinhos

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...