Duas casas decimais

[JoHnNy]

Olá

Estou começando em VBA, e uma rotina que estou querendo fazer está me complicando:

Estou calculando alguns dados simples, mas NÃO SEI PORQUE, o VBA está me passando dados errados

Tenho, por exemplo, na célula Cells(1,1) o valor 158,45 (exato) e na célula Cells(2,1) o valor 157,92 (exato)

Quando eu peço para calcular a variação entre as duas (variação = Abs(Cells(1,1) - Cells(2,1))) o resultado dá 0,52999997138977 quando deveria ser somente 0,53.

O que está errado?

Obs.: fiz Dim variação As Single

Editado Outubro 10, 2008 por JoHnNy

[MRMB]

Rapaz, fiz um teste aqui com sucesso. Tenta passar os valores das celulas para variáveis e trabalhe com essas variáveis.

Verifica abaixo exemplo:

Private Sub Command1_Click()

Dim x As Currency

Dim y As Currency

x = 158.45 ' Cells(1,1)

y = 157.92 ' Cells(2,1)

MsgBox Abs(x - y) ' Valor exibido é 0,53

End Sub

Editado Outubro 10, 2008 por Crispim

[JoHnNy]

Olá;

Segui as suas dicas e resolvi testar dimensionando como Currency; parece que resolveu

Obrigado!