CBool Function

ΠŸΡ€Π΅ΠΎΠ±Ρ€Π°Π·ΡƒΠ΅Ρ‚ Ρ€Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚ сравнСния строк ΠΈΠ»ΠΈ чисСл Π² Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ Ρ‚ΠΈΠΏΠ° Boolean. Π’ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Ρ‚Π°ΠΊΠΆΠ΅ ΠΏΡ€Π΅ΠΎΠ±Ρ€Π°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ числового выраТСния Π² Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ Ρ‚ΠΈΠΏΠ° Boolean.

Бинтаксис

CBool (Π’Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅1 {= | <> | < | > | <= | >=} Π’Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅2) ΠΈΠ»ΠΈ CBool (Число)

Π’ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅ΠΌΠΎΠ΅ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅:

Bool

ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹:

Π’Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅1, Π’Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅2. Π‘Ρ‚Ρ€ΠΎΠΊΠΈ ΠΈΠ»ΠΈ числа, ΠΏΠΎΠ΄Π»Π΅ΠΆΠ°Ρ‰ΠΈΠ΅ ΡΡ€Π°Π²Π½Π΅Π½ΠΈΡŽ. Если эти выраТСния ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡŽΡ‚, функция CBool Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ True, ΠΈΠ½Π°Ρ‡Π΅ возвращаСтся False.

Число. Π›ΡŽΠ±ΠΎΠ΅ числовоС Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ для прСобразования. Если это Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ Ρ€Π°Π²Π½ΠΎ 0, возвращаСтся False, Π² ΠΏΡ€ΠΎΡ‚ΠΈΠ²Π½ΠΎΠΌ случаС возвращаСтся True.

Π’ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰Π΅ΠΌ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ функция CBool для ΠΎΡ†Π΅Π½ΠΊΠΈ значСния, Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅ΠΌΠΎΠ³ΠΎ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠ΅ΠΉ Instr. Π­Ρ‚Π° функция провСряСт, имССтся Π»ΠΈ союз "ΠΈ" Π² ΠΏΡ€Π΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΈ, Π²Π²Π΅Π΄Π΅Π½Π½ΠΎΠΌ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Π΅ΠΌ.

Error codes:

5 ΠΠ΅ΠΏΡ€Π°Π²ΠΈΠ»ΡŒΠ½Ρ‹ΠΉ Π²Ρ‹Π·ΠΎΠ² ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹

ΠŸΡ€ΠΈΠΌΠ΅Ρ€:

Sub ExampleCBool

Dim sText As String

    sText = InputBox("ΠŸΠΎΠΆΠ°Π»ΡƒΠΉΡΡ‚Π°, Π²Π²Π΅Π΄ΠΈΡ‚Π΅ ΠΊΠΎΡ€ΠΎΡ‚ΠΊΠΎΠ΅ ΠΏΡ€Π΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅:")

    REM Π˜ΡΡ‚ΠΈΠ½Π½ΠΎ, Ссли союз "ΠΈ" Π΅ΡΡ‚ΡŒ Π² этом ΠΏΡ€Π΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΈ.

    REM ВмСсто ΠΊΠΎΠΌΠ°Π½Π΄Π½ΠΎΠΉ строки

    REM If Instr(Input, "ΠΈ")<>0 Then...

    REM функция CBool ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΌ ΠΎΠ±Ρ€Π°Π·ΠΎΠΌ:

    If CBool(Instr(sText, "ΠΈ")) Then

        MsgBox "Боюз Β»ΠΈΒ« Π΅ΡΡ‚ΡŒ Π² ΠΏΡ€Π΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΈ, ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ Π²Ρ‹ Π²Π²Π΅Π»ΠΈ!"

    EndIf

End Sub