XOR operacija

Atlieka loginę „Exclusive-Or“ operaciją su dviem reiškiniais.

Sintaksė:

Result = reiškinys1 XOR reiškinys2

Parametrai:

Result: bet koks skaitinis kintamasis, kuriame yra derinimo rezultatas.

reiškinys1, reiškinys2: visi skaitiniai reiškiniai, kuriuos norite sujungti.

Loginė dviejų Būlio reiškinių „Exclusive-Or“ konjunkcija grąžina reikšmę „True“ tik tada, jei abu reiškiniai skiriasi vienas nuo kito.

Bitinė „Exclusive-Or“ konjunkcija grąžina bitą, jei atitinkamas bitas nustatytas tik viename iš dviejų reiškinių.

Pavyzdys:

Sub ExampleXOR
Dim vA As Variant, vB As Variant, vC As Variant, vD As Variant
Dim vOut As Variant
    vA = 10: vB = 8: vC = 6: vD = Null
    vOut = vA > vB XOR vB > vC ' grąžina 0
    vOut = vB > vA XOR vB > vC ' grąžina -1
    vOut = vA > vB XOR vB > vD ' grąžina -1
    vOut = (vB > vD XOR vB > vA) ' grąžina 0
    vOut = vB XOR vA ' grąžina 2
End Sub