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