如何将一长整数形态的IP地址变为带点的十进制IP地址？

Question

Excerpt from msdn:inet_ntoa
The Windows Sockets inet_ntoa function converts an (Ipv4) Internet network address into a string in Internet standard dotted format.

Answer 1

Function Inet_To_String(lNum As Long)
  Dim temp As Long
  Dim result As String
  temp = lNum
  result = Str(temp Mod 256)
  temp = Int(temp / 256)
  For i = 2 To 4
    result = Str(temp Mod 256) & "." & result
    temp = Int(temp / 256)
  Next
  Inet_To_String = result
End Function