IBM Lotus Symphony
|
Retorna o valor absoluto de uma expressão numérica.
Abs (Number)
Double
Number: Qualquer expressão numérica para a qual você deseja retornar o valor absoluto. Os números positivos, incluindo 0, são retornados sem alteração, ao passo que os números negativos são convertidos em números positivos.
O exemplo a seguir usa a função Abs para calcular a diferença entre dois valores. Não importa qual valor você tenha inserido primeiro.
Sub ExampleDifference
Dim siW1 As Single
Dim siW2 As Single
siW1 = Int(InputBox$ ("Please enter the first amount","Value input"))
siW2 = Int(InputBox$ ("Please enter the second amount","Value input"))
Print "The difference is "; Abs(siW1 - siW2)
End Sub