Abs Function
αααα‘ααβαααααβααΆα αβααΆα ααβααααααβαααβαα½αΒ α
ααΆαααβααααααα α
Abs (Number)
αααααβαααα‘αα α
αααα
αααΆαααΆαααααα α
α ααα½αβ α ααααααβαααββαα½αβα ααα½αβ βαααβα’αααβα ααβαααα‘ααβαααααβααΆα αβααΆαΒ α α ααα½αβαα·αααααΆαβαα½αβααΆαα α ααααΌαβααΆαβαααα‘ααβαααβααααΆαβααΆαβααααΆααααααΌα α ααααβα―βα ααα½αβα’αα·αααααΆαβααααΌαβααΆαβααααααβαα βααΆβα ααα½αβαα·αααααΆαΒ α
α§ααΆα αααβααΌα βααΆαβαααααβααααΎβα’αα»αααα Abs ααΎααααΈβααααΆβααΆαβαα»αβααααΆβαααΆαβαααααβααΈαΒ α ααΆβααααΆαβαααα αΆααβ ααΆβααΎβα’αααβαααα αΌαββαααααβααΆβαα»αΒ α
α§ααΆα ααα α
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