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