Or Operator

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

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


рдкрд░рд┐рдгрд╛рдо = рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рез рд╡рд╛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ реи

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

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

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

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

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

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


Sub ExampleOr
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 Or vB > vC ' -1
    vOut = vB > vA Or vB > vC ' -1
    vOut = vA > vB Or vB > vD ' -1
    vOut = (vB > vD Or vB > vA) ' 0
    vOut = vB Or vA ' 10
End Sub

Please support us!