IBM Lotus Symphony
|
Returnerer den absolutte værdi af et numerisk udtryk.
Abs(Tal)
Double
Tal: Et numerisk udtryk, for hvilket den absolutte værdi skal returneres. Positive tal og 0 returneres uændrede, mens negative tal konverteres til positive tal.
I eksemplet nedenfor bruges funktionen Abs til at beregne forskellen mellem to værdier. Det er ligegyldigt, hvilken værdi du angiver først.
Sub EksempelForskel
Dim siW1 As Single
Dim siW2 As Single
siW1 = Int(InputBox$ ("Angiv det første beløb","Værdi"))
siW2 = Int(InputBox$ ("Angiv det andet beløb","Værdi"))
Print "Forskellen er "; Abs(siW1 - siW2)
End Sub