StrComp Function

рджреБрдИ рд╕реНрдЯреНрд░рд┐рдЩ рддреБрд▓рдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН рд░ рдЗрдиреНрдЯреЗрдЬрд░ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН рдЬрд╕рд▓реЗ рддреБрд▓рдирд╛ рдкрд░рд┐рдорд╛рдгрдХреЛ рдкреНрд░рддрд┐рдиреАрдзрд┐рддреНрд╡ рдЧрд░реНрджрдЫ ред

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


StrComp (рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд╛рдарез, рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд╛рдареи[, рддреБрд▓рдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН])

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдЗрдиреНрдЯрд┐рдЬрд░

рдкрд░рд╛рдорд┐рддрд┐:

рдкрд╛рда:рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐

рдкрд╛рдареи:рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐

рддреБрд▓рдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН: рдпреЛ рдРрдЪреНрдЫрд┐рдХ рдкрд░рд╛рдорд┐рддрд┐рд▓реЗ рддреБрд▓рдирд╛ рд╡рд┐рдзрд┐ рд╕реЗрдЯ рдЧрд░реНрджрдЫ ред рдпрджрд┐ рддреБрд▓рдирд╛ = рез рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдпреЛ рд╕реНрдЯреНрд░рд┐рдЩ рддреБрд▓рдирд╛ рдХреЗрд╕- рд╕рдВрд╡реЗрджрдирд╢реАрд▓ рд╣реБрдиреНрдЫ ред рдпрджрд┐ рддреБрд▓рдирд╛ = реж рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рд╕рд╛рдиреЛ рд╡рд░реНрдг рд░ рдареВрд▓реЛ рд╡рд░реНрдгрдХреЛ рдмреАрдЪрдорд╛ рдЕрдиреНрддрд░ рдмрдиреНрджреИрди ред

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

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


Sub ExampleStrComp
Dim iVar As Single
Dim sVar As String
    iVar = 123.123
    sVar = Str$(iVar)
    MsgBox strcomp(sVar , Str$(iVar),1)
End Sub