AND Operator

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

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


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

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

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

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

рдпрджрд┐ рджреБрдмреИ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВрд▓реЗ рд╕рддреНрдпрд▓рд╛рдИ рдореБрд▓реНрдпрд╛рдЩреНрдХрди рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛рд╕рддреНрдпрдорд╛рди рдорд╛рддреНрд░ рдлрд░реНрдХрд╛рдЙрдиреЗ AND рд╕рдБрдЧ рд╕рдВрдпреЛрдЬрд┐рдд рдмреБрд▓рд┐рдпрди рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВ:

рд╕рддреНрдп AND рд╕рддреНрдпрдлрд░реНрдХрд╛рдЙрдБрдЫ рд╕рддреНрдп; рд╕рдмреИ рд╕рдВрдпреЛрдЬрдирд╣рд░реВрдХрд╛ рд▓рд╛рдЧрд┐ рдкрд░рд┐рдгрд╛рдо рдЭреБрдареЛрд╣реБрдиреНрдЫ ред

AND рд╕рдЮреНрдЪрд╛рд▓рдХрд▓реЗ рджреБрдИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВрдорд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рд░рд╛рдЦрд┐рдПрдХреЛ рдмрд┐рдЯрд╣рд░реВрдХреЛ рд╡рд┐рдЯ рдЕрдиреБрд╕рд╛рд░ рддреБрд▓рдирд╛ рдкрдирд┐ рд╕рдореНрдкрд╛рджрди рдЧрд░реНрджрдЫ ред

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


Sub ExampleAnd
Dim A As Variant, B As Variant, C As Variant, D As Variant
Dim vVarOut As Variant
    A = 10: B = 8: C = 6: D = Null
    vVarOut = A > B рд░ B > C ' рд▓реЗ -1 рдлрд░реНрдХрд╛рдЙрдБрдЫ
    vVarOut = B > A рд░ B > C ' рд▓реЗ 0 рдлрд░реНрдХрд╛рдЙрдБрдЫ
    vVarOut = A > B рд░ B > D ' рд▓реЗ 0 рдлрд░реНрдХрд╛рдЙрдБрдЫ
    vVarOut = (B > D рд░ B > A) ' рд▓реЗ реж рдлрд░реНрдХрд╛рдЙрдБрдЫ
    vVarOut = B And A ' рд▓реЗ 8 рд▓рд╛рдИ рд╡рд┐рдЯ рдЕрдиреБрд╕рд╛рд░ рджреБрдмреИ рддрд░реНрдХрд╣рд░реВрдХреЛ рд╕рдВрдпреЛрдЬрди AND рд▓рд╛рдИ рдлрд░реНрдХрд╛рдЙрдБрдЫ
End Sub

Please support us!