Overflow on a Long

[ccsalway]

I'm getting an overflow on "CLng(octects(0)) * 16777216" but Longs support much larger numbers I thought?

Public Function to_number(ByVal sInput As String) As Long
   On Error Resume Next
   
    sDelim = "."
    octects = Split(sInput, sDelim)
    to_number = CLng(octects(0)) * 16777216
    to_number = to_number + CLng(octects(1)) * 65536
    to_number = to_number + CLng(octects(2)) * 256
    to_number = to_number + CLng(octects(3))
    
    If Err.Number <> 0 Then
        MsgBox Err.Description
    End If
End Function

Sub test_to_number()
    Debug.Print to_number("192.168.0.1")
End Sub

 

[davesexcel]

CLng(octects(0)) * 16777216

16777216 x 128 would be the max

I believe long max is 2,147,486,647

 

[ccsalway]

So I see... LongLong doesn't see to work on my MacBook

Long (Long integer)	4 bytes	-2,147,483,648 to 2,147,483,647
LongLong (LongLong integer)	8 bytes	-9,223,372,036,854,775,808 to 9,223,372,036,854,775,807 Valid on 64-bit platforms only.

 

[ccsalway]

Microsoft Excel:
Version: 16.40
Obtained from: Identified Developer
Last Modified: 12/08/2020, 11:43
Signed by: Developer ID Application: Microsoft Corporation (UBF8T346G9), Developer ID Certification Authority, Apple Root CA
Location: /Applications/Microsoft Excel.app
Kind: 64-bit

 

[ccsalway]

I had to convert to octects to CLngLng. Now it works. Thanks

 

[jmacleary]

The error you are getting is the result of the first calculation. 192*16777216 is trying to set to_number to 3,221,225,472 which is larger than the maximum long size of 2,147,483,647. Off the top of my head I can't think of a way of handling it - but it begs the question as to why you are wanting to convert what looks like an IP address to a VERY large number.

​