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