Convert StringIP Address to LongIP Address   
 
Converts a string ip address ("192.168.0.1") to a Long number (3232235521). One of the reasons to do this would be to store IP addresses in databases. Numbers greatly reduce the size required to store this information.

Inputs: asNewIP - String IP address ("192.168.0.1") to convert to a number.

Returns: Returns a Long Integer representing the IP address (3232235521)

Assumes: This function assumes that your IP address has 4 integers delimited by decimals and that the numbers range from 0 to 255.

    Function CLngIP(ByVal asNewIP)
        Dim lnResults
        Dim lnIndex
        Dim lnIpAry
        ' Split the IP address using the dot as a delimiter
        lnIpAry = Split(asNewIP, ".", 4)
        ' Loop through Each number In the IP address
        For lnIndex = 0 To 3
            
            ' If we are Not working With the last number...
            If Not lnIndex = 3 Then
                
                ' Convert the number To a value range that can be parsed from the others
                lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))
            
            End If
            
            ' Add the number To the results
            lnResults = lnResults + lnIpAry(lnIndex)
        
        Next
        ' If storing number within an Access Database,
        ' The variable Type "Long" ranges from -2147483648 To 2147483647
        ' You will need To subtract 2147483648 from the number
        ' before querying the database.
        
        ' lnResults = lnResults - 2147483648
        ' Return the results
        CLngIP = lnResults
    End Function


My3C's
perrychicker
It's easy... it's a PSACAKE!
Back | Tell A Friend | Search this Site
1998 - 2014 psacake.com
Version 3.23

Send me One Million FREE Guaranteed Visitors