LibreOffice 7.5 Help
рджреБрдИ рд╕реНрдЯреНрд░рд┐рдЩ рддреБрд▓рдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН рд░ рдЗрдиреНрдЯреЗрдЬрд░ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН рдЬрд╕рд▓реЗ рддреБрд▓рдирд╛ рдкрд░рд┐рдорд╛рдгрдХреЛ рдкреНрд░рддрд┐рдиреАрдзрд┐рддреНрд╡ рдЧрд░реНрджрдЫ ред
StrComp (рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд╛рдарез, рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд╛рдареи[, рддреБрд▓рдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН])
Integer
рдкрд╛рда:рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐
рдкрд╛рдареи:рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐
рддреБрд▓рдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН: рдпреЛ рдРрдЪреНрдЫрд┐рдХ рдкрд░рд╛рдорд┐рддрд┐рд▓реЗ рддреБрд▓рдирд╛ рд╡рд┐рдзрд┐ рд╕реЗрдЯ рдЧрд░реНрджрдЫ ред рдпрджрд┐ рддреБрд▓рдирд╛ = рез рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдпреЛ рд╕реНрдЯреНрд░рд┐рдЩ рддреБрд▓рдирд╛ рдХреЗрд╕- рд╕рдВрд╡реЗрджрдирд╢реАрд▓ рд╣реБрдиреНрдЫ ред рдпрджрд┐ рддреБрд▓рдирд╛ = реж рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рд╕рд╛рдиреЛ рд╡рд░реНрдг рд░ рдареВрд▓реЛ рд╡рд░реНрдгрдХреЛ рдмреАрдЪрдорд╛ рдЕрдиреНрддрд░ рдмрдиреНрджреИрди ред
рдпрджрд┐ рдкрд╛рдарез< рдкрд╛рдареи рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ -рез рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рдпрджрд┐ рдкрд╛рдарез = рдкрд╛рдареи рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ реж рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рдпрджрд┐ рдкрд╛рдарез > рдкрд╛рдареи рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рез рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
Sub ExampleStrComp
Dim iVar As Single
Dim sVar As String
iVar = 123.123
sVar = Str$(iVar)
MsgBox strcomp(sVar , Str$(iVar),1)
End Sub