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. 
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.
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Se puder disponibilizar o arquivo eu gostaria de uma copia, me seria de grande utilidade.
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.