Revisión de la función Validar IP realizada por Fabián Leandro Arce Jofré

Revisión de la función realizada por Fabián Leandro Arce Jofré. Es una versión más reducida y más fácil de seguir.

Function ValidarIP(ByVal IPaValidar As String) As Boolean
    On Error GoTo Error_ValidarIP
    Dim ByteIP As String, FinValidar As Boolean, cIP As Integer, cIPBis As Integer
    
    If Not IsNumeric(IPaValidar) Then Exit Function
    ValidarIP = True
    cIP = 1
    FinValidar = False
    Do
        cIPBis = InStr(cIP, IPaValidar, ".")
        If cIPBis = 0 Then
            cIPBis = Len(IPaValidar) + 1
            FinValidar = True
        End If
        
        ' Le restamos la posicion inicial para obtener el número
        ByteIP = Mid(IPaValidar, cIP, cIPBis - cIP)
        If ByteIP < 0 Or ByteIP > 256 Then ValidarIP = False
        cIP = cIPBis + 1
    Loop Until FinValidar
Exit Function
Error_ValidarIP:
    ValidarIP = False
End Function
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s