• Home
 · 
• String Manipulation
 · 
• Convert long address to IP address

Convert long address to IP address

Converts a long address (2220112843) to it's IP address (203.59.84.132)

Returns
Example: Result = IPToString(2220112843#)

API Declarations
Type MyLong
Value As Long
End Type
Type MyIP
A As Byte
B As Byte
C As Byte
D As Byte
End Type


Rate Convert long address to IP address

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

Function IPToString(Value As Double) As String
  Dim l As MyLong
  Dim i As MyIP
  l.Value = DoubleToLong(Value)
  LSet i = l
  IPToString = i.A & "." & i.B & "." & i.C & "." & i.D
End Function
Function DoubleToLong(Value As Double) As Long
  If Value <= 2147483647 Then
    DoubleToLong = Value
  Else
    DoubleToLong = -(4294967296# - Value)
  End If
End Function