COMO SOMAR OS CENTAVOS?

STEWARTCINTRA 05/02/2010 12:25:44
#333694
Ola estou fazendo um codigo tipo PDV mais na hora de faco uma condicao pra ele somar o valortotal com o valorSubtotal mais ele naum soma os centavos so soma os valores inteiro antes da virgula...

-----------------------------------------------------------------------------------------------------------------------------------------------
ValorTotal1 = Val(lblValorTotal.Caption) + Val(txtSubTotal.Text)
lblValorTotal.Caption = Clear
lblValorTotal.Caption = Format(ValorTotal1, [Ô]##,##0.00[Ô])
-----------------------------------------------------------------------------------------------------------------------------------------------

EXEMPLO : quanto a soma é : 30,25 + 1,25 ele retorna 31,00
SINKERTEC 05/02/2010 12:34:08
#333698 Resposta escolhida

Meu caro

Faça a conta assim

txtResultado = Cdbl(txt1) + cdbl(txt2)


O val pega valor inteiro, então troque por CDBL

boa sorte
STEWARTCINTRA 06/02/2010 10:57:22
#333783
Valew fiiiiiiiii

brigaduH
ROBSON 07/02/2010 05:21:03
#333812

Só nao soma se estiver usando a variavel incorreta.
Para trabalhar com dinheiro use a variavel Currency ou Moeda que é a mesma coisa.
EMERSONADM 08/02/2010 11:11:39
#333875
Poderá usar tambem CDBL, pois, o décimais ficam mais exatos.

Ex.: ValorTotal1 = CDBL(lblValorTotal.Caption) + CDBL(txtSubTotal.Text)

Emerson
Tópico encerrado , respostas não são mais permitidas
Voltar