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