Re: [RETO] Funcion Mid
Publicado: 25 Abr 2011, 16:58
Usando Left y Right >.<
Con strings pequeñas dura igual o menos que el mid original, pero con strings muy grandes, tarda bastante más que el original...
Saludos!
Con strings pequeñas dura igual o menos que el mid original, pero con strings muy grandes, tarda bastante más que el original...
Código: Seleccionar todo
Private Function sMid(sStr As String, sStart As Long, sLn As Long) As String
sMid = Left$(sStr, sStart + sLn - 1)
sMid = Right$(sMid, sLn)
End Function