StrComp Function
ααααααααβααααβα’ααααβααΈα αα·αβαααα‘ααβαααααβα ααα½αβαααβαα½α αααβααααΆαβα²ααβααααααβααβααΆαβααααααααΒ α
ααΆαααβααααααα α
StrComp (Text1 As String, Text2 As String[, Compare])
αααααβαααα‘αα α
α ααα½αβααα
αααΆαααΆαααααα α
Text1 α ααααααβααααβα’ααααβααΆβαα½α
Text2 α ααααααβααααβα’ααααβααΆβαα½α
αααααβαααβ α αααΆαααΆααααααβααααα βββα α·αααβααα αααααβαα·ααΈααΆαααααβααααααααΒ α ααααα·αβααΎ 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