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.
Postado : 26/02/2016 10:57 am