LibreOffice 7.3 Help
рд╕реНрдЯреНрд░рд┐рдЩ рддреБрд▓рдирд╛ рд╡рд╛ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рддреБрд▓рдирд╛рд▓рд╛рдИ рдмреБрд▓рд┐рдпрди рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрджрдЫ рд╡рд╛ рдПрдХрд▓ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓рд╛рдИ рдмреБрд▓рд┐рдпрди рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрджрдЫ ред
CBool (рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рез {= | <> | < | > | <= | >=} рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐реи) рд╡рд╛ CBool (рдирдореНрдмрд░)
рдмреБрд▓рд┐рдПрди
рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рез, рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐реи: рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рд╡рд╛ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рддреБрд▓рдирд╛ рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред рдпрджрд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВ рдорд┐рд▓реЗрдХреЛ рдЦрдгреНрдбрдорд╛,CBoolрд▓реЗ рд╕рддреНрдп рдкреНрд░рдХрд╛рд░реНрдп рдлрд░реНрдХрд╛рдЙрдБрдЫ, рдЕрдиреНрдпрдерд╛ рдЭреБрдареЛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рдирдореНрдмрд░:рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред рдпрджрд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ реж рд╕рдБрдЧ рдмрд╛рд░рд╛рдмрд░ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдЭреБрдареЛрдлрд░реНрдХрд╛рдЙрдБрдЫ рдЕрдиреНрдпрдерд╛ рд╕рддреНрдпрдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рджрд┐рдПрдХрд╛ рдЙрджрд╛рд╣рд░рдгрдорд╛ рдорд╛рди рдореБрд▓реНрдпрд╛рдЩреНрдХрди рдЧрд░реНрдирд▓рд╛рдИ CBoolрдкреНрд░рдХрд╛рд░реНрдпрдХреЛ рдкреНрд░рдпреЛрдЧ рд╣реБрдиреНрдЫ рдЬреБрдиInstr рдкреНрд░рдХрд╛рд░реНрдпрджреНрд╡рд╛рд░рд╛ рдлрд░реНрдХрд╛рдИрдПрдХреЛ рд╣реБрдиреНрдЫ ред рдпрджрд┐ рд╡рд╛рдХреНрдпрдорд╛ рд╢рдмреНрдж "рд░" рднреЗрдЯрд┐рдПрдХреЛ рдЦрдгреНрдб рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рдЬрд╛рдБрдЪ рдЧрд░реНрджрдЫ рдЬрд╕рд▓рд╛рдИ рдкреНрд░рдпреЛрдЧ рдХрд░реНрддрд╛рд▓реЗ рдкреНрд░рд╡рд┐рд╖реНрдЯрд┐ рдЧрд░реЗрдХрд╛рд╣реБрдиреНрдЫрдиреН редрдорд╛
Sub ExampleCBool
Dim sText As String
sText = рдЖрдЧрдд рдмрд╛рдХрд╕("рдЫреЛрдЯреЛ рд╡рд╛рдХреНрдп рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН:")
' рдпрджрд┐ рд╡рд╛рдХреНрдпрдорд╛ рд╢рдмреНрдж ┬╗рд░┬л рджреЗрдЦрд┐рдПрдорд╛ рдкреНрд░рдорд╛рдгрд┐рдд рдЧрд░реНрдиреБрд╣реЛрд╕реНред
' рд╕рдЯреНрдЯрд╛рдорд╛ рдЖрджреЗрд╢ рд▓рд╛рдЗрди
REM рдпрджрд┐ Instr(рдЖрдЧрдд, "рд░")<>реж рддреНрдпрд╕рдкрдЫрд┐...
' the CBool рдкреНрд░рдХрд╛рд░реНрдпрд▓рд╛рдИ рддрд▓ рджрд┐рдПрдХреЛрдорд╛ рд▓рд╛рдЧреВ рдЧрд░реНрджрдЫ:
рдпрджрд┐ CBool(Instr(sText, "рд░"))рддреНрдпрд╕рдкрдЫрд┐
MsgBox "рддрдкрд╛рдИрдБрд▓реЗ рдкреНрд░рд╡рд┐рд╖реНрдЯрд┐ рдЧрд░реЗрдХреЛ рд╡рд╛рдХреНрдпрдорд╛ рд╢рдмреНрдж ┬╗рд░┬л рдЙрдкрд╕реНрдерд┐рдд рд╣реБрдиреНрдЫ!"
EndIf
End Sub