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í.

Chybové kódy:

5 Neplatné volání procedury

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