Convert LongIP Address to StringIP Address

This function converts a Long Number (3232235521) into an IP Address ("192.168.0.1"). Why would you want to do this? Click here.

Inputs: anNewIP - IP Address as a Long Number (no dots)

Returns: Returns the string representation of an IP Address ("192.168.0.1")

Function CStrIP(ByVal anNewIP)
         Dim lsResults        ' Results To be returned
         Dim lnTemp            ' Temporary value being parsed
         Dim lnIndex            ' Position of number being parsed
         ' If pulling number from an Access Database,
         ' The variable Type "Long" ranges from -2147483648 To 2147483647
         ' You will first need To add 2147483648 to the number to parse correctly.
         ' anNewIP = anNewIP + 2147483648
         ' Parse highest numbers first
         For lnIndex = 3 To 0 Step -1
         
             ' Parse the current value For this position
             lnTemp = Int(anNewIP / (256 ^ lnIndex))
             
             ' Append the number To the final results delimited by a dot
             lsResults = lsResults & lnTemp & "."
             
             ' Remove the number that we just parsed
             anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex))
             
         Next
         
         ' Cut off last dot
         lsResults = Left(lsResults, Len(lsResults) - 1)
         
         ' Return the results
         CStrIP = lsResults
         
     End Function


Convert LongIP Address to StringIP Address ip asp


Back To Top
© 1998 - 2024 psacake.com
Version 7.21 | Advertise on this site