Runtime Overflow error in visual basic 6 code

Question

Following code of Visual Basic 6.0 - SP2 is giving Overflow error. Can somebody explain why?

Private Sub Form_Click()

  Dim Qty as Long

  Qty= 290 * 113       '' 112 is working fine

  MsgBox Qty

End Sub

GSerg · Accepted Answer · 2013-04-27 11:27:55Z

up vote 6 down vote accepted

113 gets typed as Byte.
290 gets typed as Integer because it won't fit into a byte.

The expression 290 * 113 consequently gets typed as Integer. An Integer can contain at most 32767, which is less than 290 * 113.

It therefore overflows upon multiplication, before the result is stored into a Long variable.

Explicitly type at least one of the numbers as Long:

Qty = 290& * 113

answered Apr 27 at 11:27

GSerg
24.9k32657

1

+1 Beat me to it, although I thought ! was the long type indicator. Been a while since VB6 though :) – Joachim Isaksson Apr 27 at 11:28

Thanks for quick response GSerg. I also found answer at vbcity.com/forums/t/42020.aspx. Anyway thanks a lot for your help! – user2326679 Apr 27 at 11:35

1

@JoachimIsaksson The ! suffix is for SINGLE 32 bit floating point variables. – MrSnrub Apr 27 at 13:25

@MrSnrub Yep, had to look it up though. That's what 12 years of not using it does to your memory :) – Joachim Isaksson Apr 27 at 13:37

1 Answer