@79137913: No creo que esa versión sea demasiado rápida
Por que divides entre 2?
Si no hubieses elegido esos numeros todo seria mas fácil
Código [Seleccionar]
LenB(W1) / 2 = 0
Por que divides entre 2?
Código (vb) [Seleccionar]
Option Explicit
Sub Main()
Debug.Print kCompare("rana", "")
Debug.Print kCompare("hola", "holas")
Debug.Print kCompare("bienvenido", "bienvenida")
Debug.Print kCompare("Ejemplo", "eJempLIficar")
Debug.Print kCompare("igual", "igual")
Debug.Print kCompare("PALABRA", "palabra")
End Sub
Public Static Function kCompare(ByRef s1 As String, ByRef s2 As String) As Long
Dim b() As Long
If (LenB(s1) <> 0) And (LenB(s2) <> 0) Then
If (Not Not b) = False Then
ReDim b(-1 To 1)
b(-1) = 1
b(1) = 2
b(0) = 3
End If
kCompare = b(StrComp(s1, s2, vbTextCompare))
End If
End Function
Si no hubieses elegido esos numeros todo seria mas fácil