Imp Operator
рджреБрдИ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВрдорд╛ рд▓реЛрдЬрд┐рдХрд▓ рдЖрд╕рдпрдХреЛ рдкрд╛рд▓рдирд╛ рдЧрд░реНрджрдЫ
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рдкрд░рд┐рдгрд╛рдо = рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рез Imp рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐реи
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдкрд░рд┐рдгрд╛рдо: рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЪрд▓ рддреНрдпрд╕рд▓реЗ рдЖрд╕рдпрдХреЛ рдкрд░рд┐рдгрд╛рдо рд▓рд╛рдИ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░рд╛рдЙрдЫ ред
рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рез,рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐реи:рдХреБрдиреИ рдкрдирд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ Imp рд╕рдЮреНрдЪрд╛рд▓рдХрд╕рдБрдЧ рдореБрд▓реНрдпрд╛рдЩреНрдХрди рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
рдпрджрд┐ рддрдкрд╛рдИрдБрд▓реЗ рдмреБрд▓рд┐рдпрди рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВрдорд╛ Imp рд╕рдЮреНрдЪрд╛рд▓рдХ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ ,рдкрд╣рд┐рд▓реЛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓реЗ рд╕рддреНрдп рдореБрд▓реНрдпрд╛рдЩреНрдХрди рд░ рджреЛрд╕реНрд░реЛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓реЗ рдЭреБрдареЛ рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдЭреБрдареЛ рдорд╛рддреНрд░ рдлрд░реНрдХрдиреНрдЫ ред
рдпрджрд┐ рддрдкрд╛рдИрдБрд▓реЗ Imp рд╕рдЮреНрдЪрд╛рд▓рдХ рдмрд┐рдЯ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдорд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛,рдпрджрд┐ рдкрд╣рд┐рд▓реЛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдорд╛ рдЕрдиреБрд░реВрдк рдмрд┐рдЯ рд╕реЗрдЯ рднрдПрдХреЛ рд░ рджреЛрд╕реНрд░реЛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдорд╛ рдореЗрдЯрд╛рдЗрдПрдХреЛ рдЦрдгреНрдорд╛ рдкрд░рд┐рдгрд╛рдордмрд╛рдЯ рдмрд┐рдЯ рдореЗрдЯрд┐рдПрдХреЛ рд╣реБрдиреНрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleImp
Dim A As Variant, B As Variant, C As Variant, D As Variant
Dim vOut As Variant
A = 10: B = 8: C = 6: D = Null
vOut = A > B Imp B > C REM рд▓реЗ -1 рдлрд░реНрдХрд╛рдЙрдБрдЫ
vOut = B > A Imp B > C REM рд▓реЗ -1 рдлрд░реНрдХрд╛рдЙрдБрдЫ
vOut = A > B Imp B > D REM рд▓реЗ 0 рдлрд░реНрдХрд╛рдЙрдБрдЫ
vOut = (B > D Imp B > A) REM рд▓реЗ -1 рдлрд░реНрдХрд╛рдЙрдБрдЫ
vOut = B Imp A REM рд▓реЗ -1 рдлрд░реНрдХрд╛рдЙрдБрдЫ
End Sub