Not Operator

рдЙрд▓реНрдЯреНрдпрд╛рдЗрдПрдХрд╛ рдмрд┐рдЯ рдорд╛рдирд╣рд░реВрджреНрд╡рд╛рд░рд╛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЕрд╕реНрд╡рд┐рдХрд╛рд░ рдЧрд░реНрджрдЫ ред

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


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

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

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

рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐:рддрдкрд╛рдИрдБ рдЕрд╕реНрд╡рд┐рдХреГрдд рдЧрд░реНрди рдЪрд╛рд╣рдиреБ рднрдПрдХреЛ рдХреБрдиреИ рдкрдирд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ ред

рдЬрдм рдмреБрд▓рд┐рдпрди рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЕрд╕реНрд╡рд┐рдХрд╛рд░ рдЧрд░рд┐рдиреНрдЫ, рд╕рддреНрдп рдорд╛рди рдЭреБрдареЛрдорд╛ рдкрд░рд┐рд╡рд░реНрддрди рд╣реБрдиреНрдЫ рд░ рдЭреБрдареЛ рдорд╛рди рд╕рддреНрдпрдорд╛ рдкрд░рд┐рд╡рд░реНрддрди рд╣реБрдиреНрдЫ ред

рд╡рд┐рдЯ рдЕрдиреБрд╕рд╛рд░ рдЕрд╕реНрд╡рд┐рдХреГрддрд┐рдорд╛ рдкреНрд░рддреНрдпреЗрдХ рдПрдХ рдПрдХ рдмрд┐рдЯ рдлрд░реНрдХрд╛рдПрдХреЛ рд╣реБрдиреНрдЫ ред

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


Sub ExampleNot
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 = Not vA REM рд▓реЗ -резрез рдлрд░реНрдХрд╛рдЙрдБрдЫ
    vOut = Not(vC > vD) REM рд▓реЗ -рез рдлрд░реНрдХрд╛рдЙрдБрдЫ
    vOut = Not(vB > vA) REM рд▓реЗ -рез рдлрд░реНрдХрд╛рдЙрдБрдЫ
    vOut = Not(vA > vB) REM рд▓реЗ реж рдлрд░реНрдХрд╛рдЙрдБрдЫ
End Sub

Please support us!