StrComp Function

་ཡིག་རྟགས་ཕྲེང་བ་གཉིས་གཤིབ་སྡུར་འབྲས་བུའི་ཚབ་བྱེད་ཅིག་གི་ཧྲིལ་གྲངས་ཐང་དུ་ཕྱིར་ལོག་པ།

བརྡ་འཕྲོད་

StrComp (Text1 As String, Text2 As String[, Compare])

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

ཧྲིལ་གྲངས་

ཞུགས་གྲངས་

Text1 ཡིག་རྟགས་ཕྲེང་བའི་མཚོན་ཚུལ་གང་རུང་ཞིག་

Text2 ཡིག་རྟགས་ཕྲེང་བའི་མཚོན་ཚུལ་གང་རུང་ཞིག་

Compare གཤིབ་སྡུར་ཐབས་ཀྱི་ཁུངས་གྲངས་བཀོད་སྒྲིག་སྤྱོད་པ།(གདེམས་རུང་)གལ་སྲིད་ Compare = 1ཡིན་ན་ཡིག་རྟགས་ཕྲེང་བའི་་གཤིབ་སྡུར་སྐབས་ཡིག་ཆེན་ཡིག་ཆུང་གི་ཁྱད་པར་མེད། གལ་སྲིད་ Compare = 0ཡིན་ན་ཡིག་ཆེན་ཡིག་ཆུང་གི་དབྱེ་བ་མེད།

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

• གལ་སྲིད་ Text1 < Text2 རྟེན་གྲངས་ -1ལ་

• གལ་སྲིད་ Text1 = Text2 རྟེན་གྲངས་ 0

• གལ་སྲིད་ Text1 > Text2 རྟེན་གྲངས་1ལ་ཕྱིར་ལོག

དཔེ་གཞི་

Sub ExampleStrComp
Dim iVar As Single
Dim sVar As String
    iVar = 123.123
    sVar = Str$(iVar)
    MsgBox strcomp(sVar , Str$(iVar),1)
End Sub