IBM Lotus Symphony
|
Vracia absolútnu hodnotu numerického výrazu.
Funkcia Abs (číslo)
Typ Double
Číslo: ľubovoľný numerický výraz, ktorý má vrátiť absolútnu hodnotu. Kladné čísla vrátane 0 sa vracajú bezo zmeny, zatiaľ čo záporné čísla sa skonvertujú na kladné čísla.
V nasledujúcom príklade sa používa funkcia Abs na výpočet rozdielu dvoch hodnôt. Je ľahostajné, ktorú hodnotu zadáte najprv.
Sub Príklad_Rozdiel
Dim siW1 ako typ Single
Dim siW2 ako typ Single
siW1 = Int(InputBox$ ("Prosím, zadajte prvú hodnotu","Vstup hodnoty"))
siW2 = Int(InputBox$ ("Prosím, zadajte druhú hodnotu","Vstup hodnoty"))
Print "Rozdiel je "; Abs(siW1 - siW2)
End Sub