StrComp Function
āĻĻā§āĻāĻāĻŋ āϏā§āĻā§āϰāĻŋāĻ āϤā§āϞāύāĻž āĻāϰāĻž āĻšā§ āĻāĻŦāĻ āϤā§āϞāύāĻžāϰ āĻĢāϞāĻžāĻĢāϞ āĻĒā§āϰāĻĻāϰā§āĻļāύāĻāĻžāϰ⧠āĻāĻāĻāĻŋ āĻāύāĻāĻŋāĻāĻžāϰ āĻŽāĻžāύ āĻĒā§āϰāĻĻāĻžāύ āĻāϰā§āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
StrComp (Text1 As String, Text2 As String[, Compare])
āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:
Integer
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
Text1: āϝ⧠āĻā§āύ āϏā§āĻā§āϰāĻŋāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ
Text2: āϝ⧠āĻā§āύ āϏā§āĻā§āϰāĻŋāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ
āϤā§āϞāύāĻž: āĻāĻ āĻāĻā§āĻāĻŋāĻ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰāĻāĻŋ āϤā§āϞāύāĻž āĻĒāĻĻā§āϧāϤāĻŋ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰā§āĨ¤ āϝāĻĻāĻŋ āϤā§āϞāύāĻž = 1 āĻšāϝāĻŧ āϤāĻžāĻšāϞ⧠āώā§āĻā§āϰāĻŋāĻ āϤā§āϞāύāĻž āĻ āĻā§āώāϰā§āϰ āĻāĻžāĻāĻĻ āύāĻŋāϰā§āĻāϰāĻļā§āϞāĨ¤ āϝāĻĻāĻŋ āϤā§āϞāύāĻž = 0 āĻšāϝāĻŧ āϤāĻžāĻšāϞ⧠āĻŦā§ āĻšāĻžāϤā§āϰ āĻ āĻā§āώāϰ āĻāĻŦāĻ āĻā§āĻ āĻšāĻžāϤā§āϰ āĻ āĻā§āώāϰā§āϰ āĻŽāϧā§āϝ⧠āĻā§āύ⧠āĻĒāĻžāϰā§āĻĨāĻā§āϝ āĻšā§ āύāĻžāĨ¤
āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ
-
If Text1 < Text2 the function returns -1
-
If Text1 = Text2 the function returns 0
-
If Text1 > Text2 the function returns 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