SOMANDO CASAS DECIMAIS
A duvida é a seguinte pessoal, tenho alguns textbox, que recebem valores com casas decimais, e tenho um textbox que recebe a soma destes valores, a questão é que o textbox que recebe a soma, esta somando, mas, ele não soma as casas decimais e sim os numeros inteiros.
TxtTotal = V1 + V2 + V3 + V4
txtTotal = Format$(txtTotal.Text, [Ô]#,##0.0[Ô])
Os Campos V são variaveis Currency.
Vlw
TxtTotal = V1 + V2 + V3 + V4
txtTotal = Format$(txtTotal.Text, [Ô]#,##0.0[Ô])
Os Campos V são variaveis Currency.
Vlw
TxtTotal = V1 + V2 + V3 + V4
txtTotal = Format(cdbl(txtTotal.Text, [Ô]###,##0.00[Ô]))
Geralmente uso assim:
Private Sub TxtDesc_LostFocus()
Dim A As Double
Dim B As Double
Dim Desc As Double
A = TxtDesc.Text
B = LblVlr_Cupom.Caption
Desc = Abs(A) + Abs(B)
LblVlr_Pagar.Caption = Format(Abs(Desc), [Ô]###,##0.00[Ô])
End Sub
txtTotal = Format(cdbl(txtTotal.Text, [Ô]###,##0.00[Ô]))
Geralmente uso assim:
Private Sub TxtDesc_LostFocus()
Dim A As Double
Dim B As Double
Dim Desc As Double
A = TxtDesc.Text
B = LblVlr_Cupom.Caption
Desc = Abs(A) + Abs(B)
LblVlr_Pagar.Caption = Format(Abs(Desc), [Ô]###,##0.00[Ô])
End Sub
Acontece a mesma coisa ainda, usei os exemplos citados acima, são somados apenas os valores inteiros, ficando assim:
Ex.: 9,00 ao inves de 9,5
Ex.: 9,00 ao inves de 9,5
tente isto
TxtTotal = CCur(V1) + CCur(V2) + CCur(V3) + CCur(V4)
txtTotal = Format$(CCur(txtTotal.Text), [Ô]#,##0.0[Ô])
TxtTotal = CCur(V1) + CCur(V2) + CCur(V3) + CCur(V4)
txtTotal = Format$(CCur(txtTotal.Text), [Ô]#,##0.0[Ô])
Tópico encerrado , respostas não são mais permitidas