እኩል ነው አንቀሳቃሽ

ውጤት = መግለጫ1 እኩል መግለጫ2

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 ' returns -1
    vOut = B > A Eqv B > C ' returns 0
    vOut = A > B Eqv B > D ' returns 0
    vOut = (B > D Eqv B > A) ' returns -1
    vOut = B Eqv A ' returns -3
End Sub