Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
NÃO arredondar valo...
 
Notifications
Clear all

NÃO arredondar valores

 
2024 - VBA & Macros
Post Recente por MPrudencio 9 anos atrás
4 Posts
3 Usuários
0 Reactions
526 Visualizações
RSS
 pedrovm
(@pedrovm)
Posts: 0
New Member
Topic starter
 

Hi experts.

I need help.

Tenho o seguinte código: 

Private Sub CommandButton1_Click()
Dim m300 As Long
Dim m500 As Long
Dim mfinal As Long
Dim calcula_fator As Double
m300 = meta300.Value
m500 = meta500.Value
mfinal = meta_final.Value
calcula_fator = m300 + (((m500 - m300) / 200) * (mfinal - 300))
fator_final = calcula_fator
End Sub

Faz uma interpolação linear com as metas, para descobrir o valor da nossa PLR. :D :D

Só que o valor está arredondando. O valor da conta seria 1,94, está arredondando para 2.

Como faço para não haver esse arrendondamento.

Obrigado.

 
Postado : 26/02/2016 10:57 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia pedrovm,

Seja bem vindo ao fórum.

Não sei como são preenchido os dados, mas tenta declarar as variáveis para "Currency".

Qualquer coisa da o grito.
Abraço

 
Postado : 26/02/2016 11:28 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Variávels Long não tem decimais.....
Use assim:

Private Sub CommandButton1_Click()
Dim m300 As Double
Dim m500 As Double
Dim mfinal As Double
Dim calcula_fator As Double
    m300 = meta300.Value
    m500 = meta500.Value
    mfinal = meta_final.Value
    calcula_fator = m300 + (((m500 - m300) / 200) * (mfinal - 300))
    fator_final = calcula_fator
End Sub
 
Postado : 26/02/2016 11:29 am
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Se puder disponibilizar o arquivo eu gostaria de uma copia, me seria de grande utilidade.

 
Postado : 26/02/2016 11:33 am
Forum Jump:
  Tópico Anterior
Próximo Tópico