Runtime Error 6: OverFlow, in vb6 code execution time

Question

I am getting Runtime error 6 Overflow when iam executing my vb6 application. i am getting this error on this line.

Sections("Section5").Controls("lblcap").Caption = Format(((lTotOperMins - KPIDown) / lTotOperMins) * 100, "#0.00")

the values lTotOperMins=0 , KPIDown=0 , and Data Types as Long what is wrong with this code. Suggest me, i am not familiar to VB6.

Not sure why you're getting an overflow error, but the problem is lTotOperMins = 0. You cannot divide by 0. — jac
– jac, Commented May 8, 2014 at 4:06
Yes,But what is the solution when i need to pass that values ? — user3463529
– user3463529, Commented May 8, 2014 at 4:09
If lTotOperMins = 0 then Sections("Section5").Controls("lblcap").Caption = "0"? — jac
– jac, Commented May 8, 2014 at 4:17

Daniel W. Elkins · Accepted Answer · 2014-05-08 04:43:32Z

As jac said, it's because you're not checking first for a division by zero. I know that seems misleading because you're not getting that error, you're getting an Overflow.

As to why you're getting that instead of a division by zero is not something I'm awake enough to think deeply about, but simply checking first fixes the overflow. Here is an example resulting in an overflow followed by a working example with no errors:

Edit:### see very bottom showing how dividing TWO zeros results in an overflow, if one number is not 0 then it becomes a division by 0 error. Code at bottom.

Overflow error:

Image showing where overflow is occurring (can't upload, not enough reputation):

Click to view the image

Private Sub Form_Load()
  Dim lTotOperMins As Long, KPIDown As Long
  Dim lonDifference As Long

  lTotOperMins = 0
  KPIDown = 0

  ' Prevent / by 0
  lonDifference = lTotOperMins - KPIDown

  'If 0 = lonDifference Then
    'Label1.Caption = Format(0, "#0.00")
  'Else
    Label1.Caption = Format(((lonDifference) / lTotOperMins) * 100, "#0.00")
  'End If

End Sub

Working example:

Private Sub Form_Load()
  Dim lTotOperMins As Long, KPIDown As Long
  Dim lonDifference As Long

  lTotOperMins = 0
  KPIDown = 0

  ' Prevent / by 0
  lonDifference = lTotOperMins - KPIDown

  If 0 = lonDifference Then
    Label1.Caption = "0.00"
  Else
    Label1.Caption = Format(((lonDifference) / lTotOperMins) * 100, "#0.00")
  End If

End Sub

Dividing two zeros results in overflow error

Private Sub Form_Load()
  Dim a As Long, b As Long

  a = 0
  b = 0

  Debug.Print a / b
End Sub

Collectives™ on Stack Overflow

Runtime Error 6: OverFlow, in vb6 code execution time

1 Answer 1

Edit:### see very bottom showing how dividing TWO zeros results in an overflow, if one number is not 0 then it becomes a division by 0 error. Code at bottom.

Overflow error:

Working example:

Dividing two zeros results in overflow error

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Edit:### see very bottom showing how dividing TWO zeros results in an overflow, if one number is not 0 then it becomes a division by 0 error. Code at bottom.

Overflow error:

Working example:

Dividing two zeros results in overflow error

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related