Problemas Com Soma

[piter_sp]

fiz um programinha para somar valores porem ,ele até soma mais ignora valores depois da virgula ,como faço pra habilitar a soma de valores como de dinheiro no formato 00,00

se eu somar 2,00 + 2,50 ele vai me dar o resultado 4 ao invés de 4,50

o programinha

If prec >= 0 Then

tot = Val(tot.Text) + Val(prec.Text)

msg.Caption = tot

Else

msg.Caption = "digite um Valor valido"

End If

End Sub

agradeceria muito se me ajudassem - [email protected]

[Guest Natarelli]

If prec >= 0 Then

tot = cdbl(tot.Text) + cdbl(prec.Text)

msg.Caption = tot

Else

msg.Caption = "digite um Valor valido"

End If

End Sub

Como seu número está com a casa decimal separada por vírgula a função VAL despreza a casa decimal.

Com o VAL funcionaria se sua decimal estivesse separada por ponto.

A função CDBL preserva a casa decimal separada por vírgula, mas não funciona com a casa decimal separada por ponto.

Abs,