Comparison Operators

рддреБрд▓рдирд╛ рд╕рдЮреНрдЪрд╛рд▓рдХрд╣рд░реВ рджреБрдИ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдмреАрдЪ рддреБрд▓рдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред рдкрд░рд┐рдгрд╛рдо рдмреБрд▓рд┐рдпрди рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдХреЛ рд░реВрдкрдорд╛ рдлрд░реНрдХрд╛рдЗрдиреНрдЫ рдЬрд╕рд▓реЗ рддреБрд▓рдирд╛ рд╕рддреНрдпрдорд╛ -рез рд░ рдЭреБрдареЛрдорд╛ реж рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрджрдЫ ред

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


рдкрд░рд┐рдгрд╛рдо = рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рез { = | < | > | <= | >= } рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐реи

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

рдкрд░рд┐рдгрд╛рдо: рдмреБрд▓рд┐рдпрди рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ (рд╕рддреНрдп рд╡рд╛ рдЭреБрдареЛ)рдХреЛ рдкрд░рд┐рдорд╛рдг рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ

рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рез, рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐реи: рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдорд╛рдирд╣рд░реВ рд╡рд╛ рд╕реНрдЯреНрд░рд┐рдЩрд╣рд░реВ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рддреБрд▓рдирд╛ рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред

рддреБрд▓рдирд╛ рд╕рдЮреНрдЪрд╛рд▓рдХрд╣рд░реВ

= : рдорд╛ рдмрд╛рд░рд╛рдмрд░

< : рднрдиреНрджрд╛ рд╕рд╛рдиреЛ

> : рднрдиреНрджрд╛ рдареВрд▓реЛ

<= : рднрдиреНрджрд╛ рд╕рд╛рдиреЛ рд╡рд╛ рдмрд░рд╛рдмрд░

>= : рднрдиреНрджрд╛ рдареВрд▓реЛ рд╡рд╛ рдмрд░рд╛рдмрд░

<> : рдмрд░рд╛рдмрд░ рдЫреИрди

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


Sub ExampleUnequal
Dim sFile As String
рдлрд╛рдЗрд▓ рднрд┐рддреНрд░ рд░ рдирд┐рд░реНрдЧрддрдХрд╛ рд▓рд╛рдЧрд┐ рд╕реНрдЯреНрд░рд┐рдЩ REM ' рдореВрд▓ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реАрдХреЛ  рд░реВрдкрдорд╛ DIM sRoo'
    sRoot = "c:\"
    sFile = Dir$( sRoot ,22)
    If sFile <> "" Then
        Do
            MsgBox sFile
            sFile = Dir$
        Loop Until sFile = ""
    End If
End Sub