Me Ajudem Dinovo Huahuahua

[PedroBarreto]

Galera criei um data chamado dtaprodutos, e nele tem a tabela chamada Produtos e nele tem os campos precocustoproduto, e precoproduto como text.

Private Sub Command13_Click()

custo = txtvalordecustoproduto.Text

bruto = txtvalordoproduto.Text

dtabarretodesign.Recordset.Edit

Txtlucro.Text = CDec(bruto) + CDec(custo)

dtabarretodesign.Recordset.Update

End Sub

Olhem acima que eu quero q a conta seja decimal, porem sai assim 122.2 +30 = 1252 e não 152.2, como eu faço para o valor sair decimal?

[Graymalkin]

O problema é que CDec() leva em consideração o ponto decimal configurado no Windows, que no caso do Brasil é a vírgula. Faça o teste:

? cdec("122.2") + cdec("30")
1252

? cdec("122,2") + cdec("30")
152,2

Certo?

Graymalkin