by Stephen Blaising (3 Submissions)
Category: Internet/HTML
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Wed 13th December 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This simple function will return a Long number when provided with an Internet address. This is very useful if you use or plan to use the
Dim sFirst As String
Dim sSecond As String
Dim sThird As String
Dim sForth As String
Dim sAddress() As String
'create an array by splitting the address by "."
sAddress = Split(Trim(sIP), ".")
'Get the hex of the number
sFirst = Hex$(CLng(sAddress(0)))
'make a 8-bit number by placing any 0's in front of the returned hex
sFirst = String$(2 - Len(sFirst), "0") & sFirst
'repeat
sSecond = Hex$(CLng(sAddress(1)))
sSecond = String$(2 - Len(sSecond), "0") & sSecond
sThird = Hex$(CLng(sAddress(2)))
sThird = String$(2 - Len(sThird), "0") & sThird
sForth = Hex$(CLng(sAddress(3)))
sForth = String$(2 - Len(sForth), "0") & sForth
MakeLongOfInternetAddress = CLng("&H" & sFirst & sSecond & sThird & sForth)
End Function
No comments have been posted about This simple function will return a Long number when provided with an Internet address. This is very. Why not be the first to post a comment about This simple function will return a Long number when provided with an Internet address. This is very.