Abs Function

Tagastab arvavaldise absoluutväärtuse.

Süntaks:

Abs (arv)

Tagastusväärtus:

Double

Parameetrid:

Arv: suvaline arvavaldis, mille absoluutvärtust soovid leida. Positiivsed arvud, kaasa arvatud 0, tagastatakse muutmata kujul, negatiivsed arvud teisendatakse positiivseteks.

Järgmises näites kasutatakse funktsiooni Abs kahe väärtuse vahelise erinevuse arvutamiseks. Pole oluline, kumma väärtuse sisestad esimesena.

Error codes:

5 Vigane protseduuri väljakutse

Näide:

Sub ExampleDifference

Dim siW1 As Single

Dim siW2 As Single

    siW1 = Int(InputBox$ ("Palun sisesta esimene kogus","Väärtuse sisestus"))

    siW2 = Int(InputBox$ ("Palun sisesta teine kogus","Väärtuse sisestus"))

    Print "Erinevus on "; Abs(siW1 - siW2)

End Sub