XOR Operator

рджреБрдИ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВрдХреЛ рд╕рдВрдпреЛрдЬрдирдорд╛ рд▓реЛрдЬрд┐рдХрд▓ рдЕрдирдиреНрдп-рд╡рд╛ рдХрд╛рд░реНрдпрд╕рдореНрдкрд╛рджрди рдЧрд░реНрджрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


Result = Expression1 XOR Expression2

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдкрд░рд┐рдгрд╛рдо:рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЪрд▓ рдЬрд╕рд▓реЗ рд╕рдВрдпреЛрдЬрдирд╣рд░реВрдХреЛ рдкрд░рд┐рдгрд╛рдо рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ ред

рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рез, рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐реи: рддрдкрд╛рдИрдБрд▓реЗ рд╕рдВрдпреЛрдЬрди рдЧрд░реНрди рдЪрд╛рд╣рдиреБ рднрдПрдХреЛ рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВ ред

рдпрджрд┐ рджреБрдмреИ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВ рдПрдХ рдЕрд░реНрдХрд╛рдорд╛ рдлрд░рдХ рдЫрдиреН рднрдиреЗ рджреБрдИ рдмреБрд▓рд┐рдпрди рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВрдХреЛ рд▓реЛрдЬрд┐рдХрд▓ рдЕрдирдиреНрдп-Or рдпреЛрдЬрдХрдорд╛ рд╕рддреНрдп рдорд╛рди рдорд╛рддреНрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

рдпрджрд┐ рдЕрдиреБрд░реВрдк рдмрд┐рдЯ рджреБрдИ рдордзреНрдпреЗ рдПрдЙрдЯрд╛ рдорд╛рддреНрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдорд╛ рд╕реЗрдЯ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рд╡рд┐рдЯ рдЕрдиреБрд╕рд╛рд░ рдЕрдирдиреНрдп-Or рдпреЛрдЬрдХрд▓реЗ рдмрд┐рдЯ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

рдЙрджрд╛рд╣рд░рдг:


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

Please support us!