Questão 50:
Como é que o VBA se comporta diante de questões de arredondamento ?
Solução 50:
Int(n) retorna o inteiro mais próximo menor que n
Ex: Int(4,7) retona 4
Int(-2,1) retorna -3
Round(ValorNumérico,CasasDecimais)
Floor(ARREDMULTB) e Ceiling (TETO)agem em sentido contrário
Ex: ARREDMULTB(3,45;1) retorna 3 enquanto que TETO(3,45; 1) retorna 4
n1 retorna n arredondado para o inteiro mais próximo
Exemplos:
4,61 retorna 5
4,51 retorna 4
3,51 retorna 4
2,61 retorna 3
2,51 retorna 2
Converte o numérico n em texto
DEF.NÚM.DEC(1234,567; 1) retorna "1234,6"
DEF.NÚM.DEC(1234,567; -1) retorna "1230"
DEF.NÚM.DEC(-1234,567; -1) retorna "-1230"
DEF.NÚM.DEC(44,332) equals "44,33"
função que trunca o numérico respeitando a parte inteira
TRUNCAR
TRUNCAR(8,9) retorna 8
TRUNCAR(-8,9) retorna -8
TRUNCAR(PI( )) retorna 3
A procedure(Sub) abaixo faz os testes :
Sub Teste( )
Dim n
n = InputBox("Entre com um numérico")
MsgBox "Int ( ) retornará : " & Int(n)
MsgBox "n1 retornará : " & n1
End Sub