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 ?