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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Na soma está perdendo os centavos
Perk
não registrado
Postada em 01/12/2006 18:45 hs   
Estou carregando uma grade com itens de um pedido de orçamento gravado no BD.
 
Vou somando os valores parcialmente do pedido assim:
If Dst("Valordoitem") <> 0 Then Lbl_subTotal = Format(Lbl_subTotal + (Dst("Valordoitem") * Dst("Qtdpedida")), "#,##0.00")
 
Lbl_subTotal, mostra na tela, abaixo da grade o Total do Pedido
 
Depois eu tenho que somar a LBL_subTotal mais o valor do Total do IPI para saber o valor total do pedido (o IPI eu apenas somo dos itens, pois foi calculado qdo o registro foi gravado):
 
Lbl_Total = Format(CSng(Lbl_subTotal) + CSng(Lbl_IPI), "#,##0.00")
O problema é :
Lbl_subTotal = 246.763,86
Lbl_IPI = 11.110,50
 
Esta soma está me retornando: 257.874,40. O certo seria 257.874,36
 
Pq ela está arredondando ?
     
dummies
CERQUILHO
SP - BRASIL
Postada em 03/12/2006 08:42 hs         
Olá Perk,
Faz assim ....troque o CSng por CCUR...dessa forma:
 
 
Lbl_Total = Format(CCur(Lbl_subTotal) + CCur(Lbl_IPI), "#,##0.00")
 
Se não der certo ...fala ai !
 
 

 
 
     
Perk
não registrado
Postada em 03/12/2006 11:40 hs   
Dummies, funcionou perfeitamente !!!! Um grande abraço e muito obrigado pela ajuda !
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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