Module
Contents
Index 🔎︎

# CBool Function

ཡིག་རྟགས་ཕྲེང་བ་གཤིབ་སྡུར་རམ་གྲངས་ཀའི་གཤིབ་སྡུར་གྱི་འབྲས་བུ་པོ་ལེན་མཚོན་ཚུལ་བརྗེ་དསྒྱུར་བྱེད་ ཡང་ན་གྲངས་ཀ་རྐྱང་པའི་མཚོན་ཚུལ་པོ་ལེན་མཚོན་ཚུལ་ལ་བརྗེ་བསྒྱུར་བྱེད།

## བརྡ་འཕྲོད་

    CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) or CBool (Number)

## ཕྱིར་ལོག་ཐང་

པུའུ་འར་

## ཁུགས་གྲངས་

Expression1 Expression2 སྡུར་བ་བྱ་དགོས་པའི་ཡིག་རྟགས་ཕྲེང་བའམ་གྲངས་ཀའི་མཚོན་ཚུལ། གལ་ཏེ་མཚོན་ཚུལ་ཟླ་སྒྲིལ་བྱས་ན་ CBool རྟེན་གྲངས་ Trueཕྱིར་ལོག་བྱེད་ དེ་མིན་ན་ Falseཕྱིར་ལོག་བྱེད།

Number བརྗེ་བསྒྱུར་བྱ་དགོས་པའི་གྲངས་ཀའི་མཚོན་ཚུལ་གང་རུང་། གལ་ཏེ་མཚོན་ཚུལ་ 0དང་མཚུངས་ན་ Falseཕྱིར་ལོག་བྱེད་ དེ་མིན་ན་ Trueཕྱིར་ལོག་བྱེད།

གཤམ་གསལ་གྱི་དཔེ་གཞི་ནི་ CBool རྟེན་གྲངས་ཀྱིས་ Instr རྟེན་གྲངས་ཕྱིར་ལོག་གི་ཐང་འགྲོལ་བར་བྱེད་པར་སྤྱོད། རྟེན་གྲངས་ཀྱིས་སྤྱོད་པོས་ནང་བཅུག་བྱས་པའི་རྗོད་པའི་ནང་ "and"ཚུད་ཡོད་མིན་བརྟག་དཔྱད་བྱེད།

## Error codes:

5 ནུས་མེད་ཀྱི་བརྒྱུད་རིམ་འཁོར་སྤྱོད་

## དཔེ་གཞི་

    Sub ExampleCBool

    Dim sText As String

        sText = InputBox("Please enter a short sentence:")

        REM རྗོད་པའི་ནང་ "and"ཡོད་མེད་ཀྱི་ཚོད་ལྟ་ར་སྤྲོད་བྱེད།

        REM གཤམ་གསལ་གྱི་བཀའ་ཚིག་ཕྲེང་བེད་སྤྱད་མེད་

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

        REM གཤམ་གྱི་ཐབས་ཚུལ་གཞིར་བཟུང་ CBool རྟེན་གྲངས་བེད་སྤྱོད་

        If CBool(Instr(sText, "and")) Then

            MsgBox "ཁྱེད་ཀྱིས་ནང་འཇུག་བྱས་པའི་རྗོད་པའི་ནང་ "and"！"ཐོན་

        EndIf

    End Sub