Validar IP

Gracias a Jaime, tenemos una nueva versión para validar una dirección IP.

Private Function ValidarIP(ByVal aIP As String) As Boolean
    Dim temp As Object
    Dim i As Integer
    On Error GoTo mException

    temp = Split(aIP, ".")
    ValidarIP = True
    For i = 0 To 3
        If Not IsNumeric(temp(i)) Or Val(temp(i)) < 0 Or Val(temp(i)) > 256 Then
            ValidarIP = False
        End If
    Next i
    Exit Function
eption:
    Err.Clear()
    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