Abs Function

Возвращает абсолютное значение числового выражения.

Синтаксис

Abs (Число)

Возвращаемое значение:

Double

Параметры:

Число. Любое числовое выражение, для которого нужно вернуть абсолютное значение. Любое положительное число, включая 0, будет возвращаться в своем исходном виде; любое отрицательное число будет преобразовываться в положительное.

В следующем примере функция Abs используется для вычисления разности двух значений независимо от порядка их ввода.

Error codes:

5 Неправильный вызов процедуры

Пример:

Sub ExampleDifference

Dim siW1 As Single

Dim siW2 As Single

    siW1 = Int(InputBox("Пожалуйста, введите первое число","Ввод значения"))

    siW2 = Int(InputBox("Пожалуйста, введите второе число","Ввод значения"))

    Print "Разность - "; Abs(siW1 - siW2)

End Sub