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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  calculo de valores
luiz
não registrado
Postada em 03/11/2005 10:40 hs   
ola pessoal!
O problema é o seguinte: no banco de dados que eu recebo(txt) o valor
vem como,por exemplo: 488,32.  Eu preciso de uma função que multiplique
este valor por 1,025 e arredondasse para um formato currency, por exemplo:
488,32 * 1,025 = 500,528. Este valor seria arredondado para maior,ficando
assim 488,32*1,025= R$500,53.
estou utilizando o vb6 com o banco de dados em access2000
Desde já agradeço a colaboração
luiz
     
Erico
SALVADOR
BA - BRASIL
Postada em 03/11/2005 10:46 hs            
Luiz,
Veja a função ROUND.

A.Erico S.Peixoto
--------------------
Analista de Sistemas
     
VACA
LIMEIRA
SP - BRASIL
Postada em 03/11/2005 10:46 hs            
tenta usar o format....
tipo format(488.32 * 1.025,"0.00"), naum se esquça de trocar as , por .

"Quando estou fraco, aí então é que sou Poderoso"
     
luiz
não registrado
Postada em 03/11/2005 11:00 hs   
funcionou, mas, só uma questão... como faço para mudar no banco de dados a virgula que vem no arquivo txt pelo ponto?
 
luiz
     
luiz
não registrado
Postada em 03/11/2005 11:14 hs   
obrigado
 
funcionou como uma luva!
 
valeu
luiz
     
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
Postada em 03/11/2005 11:17 hs         
  Dim dblValor As Double
  Dim dblX As Double
  Dim dblResultado As Double
  dblValor = 488.32
  dblX = 1.025
  dblResultado = Format(dblValor * dblX, "###,##0.00")
  MsgBox dblResultado
 
     
Página(s): 1/1    


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