Xወይንም አንቀሳቃሽ

ውጤት = መግለጫ1 Xወይንም መግለጫ2

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 ' returns 0

    vOut = vB > vA XOR vB > vC ' returns -1

    vOut = vA > vB XOR vB > vD ' returns -1

    vOut = (vB > vD XOR vB > vA) ' returns 0

    vOut = vB XOR vA ' returns 2

End Sub