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

Please support us!