PROBLEMA ARREDONDAMENTO DE VALORES VB6

TRTNCG 02/10/2015 02:48:50
#452075
Bom Pessoal é o seguinte tenho um banco Firebird e estou fazendo uma consulta para ver total geral por mesa, garçom, com e sem 10% no entanto, via calculadora dá 12.628,23, mas ao fazer via Visual Basic só dá 12.628,22 tenho como resolver este problema.

Segue a SQL, já tentei tudo que é tipo

[ô]============================ Essa seria a que estou usando ========================================================================
select Sum(tm.QUANT*tm.PRECO_VENDA) AS TOTAL, Sum((tm.QUANT*tm.PRECO_VENDA)/10) as GORJETA,count(NUMERO_PEDIDO) as CONTAGEM,u.LOGIN,Sum(tm.QUANT*tm.PRECO_VENDA) + Sum((tm.QUANT*tm.PRECO_VENDA)/10) as Total_Mais_Gorjeta from tmpmesas as tm left join usuarios_sistema as u on u.id=tm.ID_GARCOM Group by u.LOGIN

[ô]=================== Esta fiz alguns testes via IBexpert só que retorna o mesmo resultado da anterior =========================================

select CAST(ROUND(Sum(tm.QUANT*tm.PRECO_VENDA),2) AS DECIMAL(15,2)) AS TOTAL,
CAST(ROUND(Sum((tm.QUANT*tm.PRECO_VENDA)/10),2) AS DECIMAL(15,2)) as GORJETA,
count(NUMERO_PEDIDO) as CONTAGEM,u.LOGIN,
CAST(ROUND(Sum(ROUND(tm.QUANT*tm.PRECO_VENDA,3)) + Sum(ROUND(tm.QUANT*tm.PRECO_VENDA,3)/10),6) AS DECIMAL(15,2)) as Total_Mais_Gorjeta
from tmpmesas as tm
left join usuarios_sistema as u on u.id=tm.ID_GARCOM
Group by u.LOGIN
TUNUSAT 02/10/2015 07:39:22
#452079 Resposta escolhida
TRSOFTWARES,

perguntas:
Esse valor já não está armazenado na base de dados?
Com quantas casas decimais é armazenado na base de dados?
Você buscar o valor com mais de duas casas decimais e depois no VB6 usar uma função destas:
- Round;
- Abs;
- Truncate;
- Max;
- Min;

======================================================================
VBA.VB6/.Net - Função Round com arredondamento Superior/Inferior
http://br.ccm.net/faq/5788-vba-vb6-net-funcao-round-com-arredondamento-superior-inferior
======================================================================
Funções Matemáticas - VB6 e VB.NET
http://www.macoratti.net/vbn_mat2.htm
======================================================================
Funções matemáticas (Visual Basic)
https://msdn.microsoft.com/pt-br/library/thc0a116.aspx
======================================================================
Função De Arredondamento
http://www.scriptbrasil.com.br/forum/topic/31188-fun%C3%A7%C3%A3o-de-arredondamento/
======================================================================
How to round up in next higher number.
http://www.developerfusion.com/thread/28280/how-to-round-up-in-next-higher-number/
======================================================================
[Vb6] Arredondar número a X casas decimais
http://www.portugal-a-programar.pt/topic/3946-vb6-arredondar-numero-a-x-casas-decimais/
======================================================================
Como implementar os procedimentos de arredondamento personalizado
https://support.microsoft.com/pt-br/kb/196652
======================================================================
[Resolvido] Como fazer para o VB não arredondar valores?
http://forum.imasters.com.br/topic/383423-resolvidocomo-fazer-para-o-vb-nao-arredondar-valores/
======================================================================
Tou no Visual Basic e quero arredondar esse valor 333.6655 por uma casa decimal como que eu faço?
https://br.answers.yahoo.com/question/index?qid=20100106111114AA7IzB7
======================================================================

[][ô]s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas
Voltar