CBool Function

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

བརྡ་འཕྲོད་

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

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

པུའུ་འར་

ཁུགས་གྲངས་

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

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

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

དཔེ་གཞི་

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