USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  NÃO ARRENDONDAR MINHA SOMA!
João Paulo
ARCOS
MG - BRASIL
Postada em 16/03/2006 11:44 hs            
Estou usando o seguinte código para somar os registro da minha tabela.
 
Dim total As Long, soma As Long
 
contCotacao = contCotacao + 1
soma = Cotacao!Comissao
total = total + soma
 
txtValorTotalCotacoes.Text = total
txtValorTotalCotacoes.Text = Format(txtValorTotalCotacoes.Text, "R$ " & "#,##0.00")
 
Só que o problema é que no "txtValorTotalCotacoes.Text " esta aparecendo o Valor Arrendondado. Como faço para solucionar este problema?
     
Alfterra
Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 16/03/2006 11:48 hs            
tenta declarar as var como currency em vez de long
     
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 16/03/2006 12:07 hs            
Voce quer truncar o número em duas casas decimais, ou mostrar o numero completo com várias casas decimais?
 

dsmn
     
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 16/03/2006 12:46 hs            
Dim total As Currency, soma As Currency
 
contCotacao = contCotacao + 1
soma = Cotacao!Comissao
total = total + soma
 
txtValorTotalCotacoes.Text = total
txtValorTotalCotacoes.Text = Format(txtValorTotalCotacoes.Text, "R$ " & "#,##0.00")
 
vlu//
   
João Paulo
ARCOS
MG - BRASIL
Postada em 21/03/2006 17:29 hs            
mesmo assim não ta dando certo. Se eu tenho um valor de R$ 35,76 por exemplo ele arredonda pra R$ 36,00. Eu queria q ele não arredondasse o valor.
 
Pode ser meu banco de dados ou alguma variavel que declarei errado?
Integer ou Currency que devo usar?
     
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
Postada em 21/03/2006 19:09 hs            
Mude a variavel para Currency, Long arredonda antes das casas decimais
vlu//
     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página