Funkce Abs
Vrátí absolutní hodnotu číselného výrazu.
Syntaxe:
Abs (Číslo)
Návratová hodnota:
Double
Parametry:
Číslo: Jakýkoli numerický výraz, jehož absolutní hodnotu chcete vrátit. Kladná čísla (včetně 0) jsou vrácena nezměněná, záporná čísla jsou převedena na kladná.
Následující příklad používá funkci Abs pro výpočet rozdílu mezi dvěma hodnotami. Nezáleží na tom, kterou hodnotu zadáte jako první.
Příklad:
Sub ExampleDifference
Dim siW1 As Single
Dim siW2 As Single
siW1 = Int(InputBox("Zadejte, prosím, první hodnotu","Vstup hodnoty"))
siW2 = Int(InputBox("Zadejte, prosím, druhou hodnotu","Vstup hodnoty"))
Print "Rozdíl je "; Abs(siW1 - siW2)
End Sub