እና አንቀሳቃሽ

ውጤት = መግለጫ1 እና መግለጫ2

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 And B > C ' returns -1

    vVarOut = B > A And B > C ' returns 0

    vVarOut = A > B And B > D ' returns 0

    vVarOut = (B > D And B > A) ' returns 0

    vVarOut = B And A ' returns 8 due to the bitwise And combination of both arguments

End Sub