Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Private Function FirstWord7913(W1 As String, W2 As String) As Long
If LenB(W1) = 0 Then
FirstWord7913 = 0
Exit Function
End If
If LenB(W2) = 0 Then
FirstWord7913 = 0
Exit Function
End If
Dim ST1 As Byte
Dim ST2 As Byte
ST1 = LCase$(W1)
ST2 = LCase$(W2)
If LenB(ST1) = LenB(ST2) Then
If InStrB(1, ST1, ST2, vbBinaryCompare) Then
FirstWord7913 = 3
Exit Function
End If
End If
Dim B1() As Byte
Dim B2() As Byte
B1 = ST1
B2 = ST2
Dim X As Long
If UBound(B1) > UBound(B2) Then
For X = 1 To UBound(B2) Step 2
If B1(X) < B2(X) Then
FirstWord7913 = 1
Exit Function
ElseIf B1(X) > B2(X) Then
FirstWord7913 = 2
Exit Function
End If
Next
FirstWord7913 = 2
Exit Function
Else
For X = 1 To UBound(B1) Step 2
If B1(X) < B2(X) Then
FirstWord7913 = 1
Exit Function
ElseIf B1(X) > B2(X) Then
FirstWord7913 = 2
Exit Function
End If
Next
FirstWord7913 = 1
Exit Function
End If
End Function
Me.Line (0, Y)-(Me.ScaleWidth, Y), GRISCita de: theghost_te en 4 Marzo 2011, 16:10 PM
¡ lee bien ciego !.