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