Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Function IP2Long(IP) 'ipv4-only
- Dim i, IP_l, parts
- 'Validation + splitting
- On Error Resume Next
- parts = Split(IP, ".")
- If CDbl(Replace(IP, ".", "")) = 0 Or Err Or UBound(parts) <> 3 Then Exit Function
- On Error Goto 0
- 'Calc
- IP_l = 0
- For i = 0 to 3
- IP_l = IP_l + 256^(3-i)*CInt(parts(i))
- Next 'i
- 'Return result
- IP2Long = IP_l
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement