Jump to content
Fórum Script Brasil
  • 0

Duas casas decimais


JoHnNy

Question

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

Edited by JoHnNy
Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

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

Edited by Crispim
Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      148720
    • Total Posts
      644547
×
×
  • Create New...