IBM Lotus Symphony
|
Zwraca wartość bezwzględną wyrażenia liczbowego.
Abs (Liczba)
Liczba zmiennopozycyjna o podwójnej precyzji
Liczba: Wyrażenie numeryczne, dla którego ma być zwrócona wartość bezwzględna. Wartości dodatnie, włącznie z 0, są zwracane bez zmian, a liczby ujemne są przekształcane w liczby dodatnie.
W poniższym przykładzie funkcja Abs została użyta do obliczenia różnicy między dwoma wartościami. Kolejność wprowadzania tych wartości nie jest istotna.
Sub Przyklad_Roznica
Dim siW1 As Single
Dim siW2 As Single
siW1 = Int(InputBox$ ("Wprowadź pierwszą wartość","Wprowadzanie wartości"))
siW2 = Int(InputBox$ ("Wprowadź drugą wartość","Wprowadzanie wartości"))
Print "Różnica wynosi "; Abs(siW1 - siW2)
End Sub