CBool Function

Convierte una comparanza de cadenes o numbérica nuna espresión lóxica, o convierte una espresión numbérica simple nuna de tipu lóxicu.

Sintaxis:


CBool (Espresión1 {= | <> | < | > | <= | >=} Espresión2) o CBool (Númberu)

Valor de torna:

Lóxicu

Parámetros:

Espresión1, Espresión2: Cualquier cadena o espresión numbérica que deseye comparar. Si les espresiones coinciden, la función CBool devuelve'l valor True, en casu contrariu devuelvi False.

Númberu: Cualquier espresión numbérica que deseye convertir. Si la espresión ye igual a 0 devuélvese False, en casu contrariu devuélvese True.

L'exemplu siguiente usa la función CBool pa evaluar el valor que devuelve la función Instr. La función comprueba si la pallabra "y" topar na frase qu'introdució l'usuariu.

Error codes:

5 Llamada a procedimientu non válida

Exemplu:


Sub ExampleCBool
Dim sText As String
    sTestu = InputBox("Por favor, escriba una frase curtia:")
    ' Comprobar si la pallabra »and« apaez na frase.
    ' En llugar d'usar la llinia de comandos
    ' If Instr(Input, "and")<>0 Then...
    ' la función CBool aplicase de la forma siguiente:
    If CBool(Instr(sTestu, "y")) Then
        MsgBox "La pallabra "y" apaez na frase qu'acaba d'escribir"
    EndIf
End Sub

Please support us!