A função `Round` no VBA (Visual Basic for Applications) é utilizada para arredondar um número para um determinado número de casas decimais. A sintaxe básica da função `Round` é:
Round(expression, [numdecimalplaces])
- `expression` é o número que você deseja arredondar.
- `numdecimalplaces` é opcional. Ele define o número de casas decimais para as quais você deseja arredondar o número. Se omitido, o padrão é 0, o que arredonda o número para o inteiro mais próximo.
Aqui estão alguns exemplos de como usar a função `Round` no VBA:
Dim numero As Double
numero = 5.678
MsgBox Round(numero) ' Resultado: 6
Dim numero As Double
numero = 5.678
MsgBox Round(numero, 2) ' Resultado: 5.68
Dim numero As Double
numero = 5.678
MsgBox Round(numero, 0) ' Resultado: 6
- Arredondar para o inteiro mais próximo:
- Arredondar para uma determinada quantidade de casas decimais:
- Arredondar com zero casas decimais:
Vale a pena notar que a função `Round` em VBA segue a regra de arredondamento chamada “arredondamento bancário”, também conhecida como “arredondamento para par”. Isso significa que, quando um número está exatamente na metade, ele é arredondado para o número par mais próximo. Por exemplo:
Dim numero1 As Double
Dim numero2 As Double
numero1 = 2.5
numero2 = 3.5
MsgBox Round(numero1) ' Resultado: 2
MsgBox Round(numero2) ' Resultado: 4
Neste caso, o número 2.5 é arredondado para 2 (o número par mais próximo) e 3.5 é arredondado para 4.