IBM Lotus Symphony
|
Vrne absolutno vrednost številskega izraza.
Abs (Number)
Dvojno
Number: Katerikoli številski izraz, za katerega želite izračunati absolutno vrednost. Pozitivna števila, vključno z 0, se vrnejo nespremenjena, negativna števila pa se pretvorijo v pozitivna števila.
Naslednji primer uporablja funkcijo Abs za izračun razlike med dvema vrednostma. Ni važno, katero vrednost vnesete najprej.
Sub ExampleDifference
Dim siW1 As Single
Dim siW2 As Single
siW1 = Int(InputBox$ ("Please enter the first amount","Value input"))
siW2 = Int(InputBox$ ("Please enter the second amount","Value input"))
Print "The difference is "; Abs(siW1 - siW2)
End Sub