VBA Function Decimal back to IP 3

[gjandrews35]

PHV
has a great function to convert an IP to its decimal equivalent.

Public Function ip2num(ip)
Dim i, a, n
a = Split(ip, ".")
n = CDbl(0)
For i = 0 To UBound(a)
  n = n * 256 + a(i)
Next i
ip2num = n
End Function

Works like a charm, now I am looking for a similar function
to convert a decimal to an IP address.

ip2num("127.0.0.1")=2130706433

So I am looking for...
num2ip(2130706433)=127.0.0.1

 

[macropod]

You could use something like:

Public Function num2ip(MyNum)
num2ip = Val("&H" & Mid(Hex(MyNum), 1, 2)) & "." & Val("&H" & Mid(Hex(MyNum), 3, 2)) _
     & "." & Val("&H" & Mid(Hex(MyNum), 5, 2)) & "." & Val("&H" & Mid(Hex(MyNum), 7, 2))
End Function

Sub TestIt()
    MsgBox num2ip(InputBox("Number to Convert"))
End Sub

Cheers

 

[mharroff]

How about this?

Public Function Dec2IP(myNum)
    Dec2IP = (Int(myNum / 256 ^ 3) & "." & Int((myNum Mod (256 ^ 3)) / (256 ^ 2)) & "." & Int(((myNum Mod 256 ^ 3) Mod 256 ^ 2) / 256) & "." & Int((((myNum Mod 256 ^ 3) Mod 256 ^ 2) Mod 256)))
End Function

 

[macropod]

Hi,

Code revision follows - the original didn't correctly convert IP addresses where the first vlaue was < 16.

Public Function num2ip(MyNum)
Offset = 8 - Len(Hex(MyNum))
num2ip = Val("&H" & Mid(Hex(MyNum), 1, 2 - Offset)) & "." & Val("&H" & Mid(Hex(MyNum), 3 - Offset, 2)) _
     & "." & Val("&H" & Mid(Hex(MyNum), 5 - Offset, 2)) & "." & Val("&H" & Mid(Hex(MyNum), 7 - Offset, 2))
End Function

Cheers
PS: I posted this earlier, but it's not showing up!

 

[PHV]

Public Function num2ip
Dim s, i, p, z
z = Int(n / 256)
s = Right("00000" & Hex(z), 6)
For i = 1 To 5 Step 2
p = p & Val("&h" & Mid(s, i, 2)) & "."
Next i
num2ip = p & Val("&h" & Hex(n - 256 * z))
End Function

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[strongm]

Both solutions have a problem if MyNum > &7FFFFFFF

here's an alternative:

[blue]Private Type DottedQuad
    Quad0 As Byte
    Quad1 As Byte
    Quad2 As Byte
    Quad3 As Byte
End Type

Private Type DecimalQuad
    QuadAll As Currency
End Type

Private Function num2ip(ByVal lNum As Double) As String
    Dim Dotted As DottedQuad
    Dim Proxie As DecimalQuad
    
    Proxie.QuadAll = lNum / 10000
    LSet Dotted = Proxie
    With Dotted
        num2ip = .Quad3 & "." & .Quad2 & "." & .Quad1 & "." & .Quad0
    End With
End Function[/blue]

 

[PHV]

With my posted version:
? num2ip(&H7FFFFFFF)
127.255.255.255

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[TonyJollans]

Nice, Mike. Star from me.

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at VBAExpress[