Large number

[ramsee]

Hi ,

I am getting an error when I try to do a calculation similar to this in VBA :

if 15,859,698,666,321 mod 258,256,639 = 0 then x = 0.

Getting a message as Stack Overflow. would be grateful to anyhelp from you guys. I am sorry if this has been answered before or sounds silly.

-RAM

 

[baitmaster]

what type of variable have you declared your number as?

Stack overflow is because a value is exceeding the maximum size for its data type

try declaring it as a double

 

[SydneyGeek]

How have you declared x or the other number variables? They should be a Double in this situation. Also, you didn't use commas in the number you typed did you?

Denis

 

[ramsee]

Hello Denis,

No I didnt type the Commas, and I tied with data types double and even with currency but to no success. 600851475143 : this is the exact number i tried.

Regards
Ram.

 

[baitmaster]

please post your code

 

[Andrew Poulsom]

The Mod function won't work with numbers larger than a long integer. You'll have to write your own function for doubles.

 

[Sektor]

Strangely enough, but following code gives error:

[COLOR="Blue"]Sub[/COLOR] Overflow()
    MsgBox 15859698666321# [COLOR="Blue"]Mod[/COLOR] 2
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[Sektor]

Yes, digits that more than long generate error:

[COLOR="Blue"]Sub[/COLOR] Overflow()
    [COLOR="Blue"]Dim[/COLOR] d#
    d = 3000000000
    MsgBox TypeName(d)
    MsgBox d [COLOR="Blue"]Mod[/COLOR] 2
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[Andrew Poulsom]

Strangely enough, but following code gives error:

[COLOR=blue]Sub[/COLOR] Overflow()
    MsgBox 15859698666321# [COLOR=blue]Mod[/COLOR] 2
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

That's because the Mod function is trying to convert 15859698666321 to a long integer and can't.

 

[ramsee]

Thanks Andrew for the Solution , I would try to work my problem with a function as you recommended.

@Baitmaster: Sorry I accidentally closed the workbook without saving so I lost the code .