Very Computer

by **Jay Franci** » Thu, 06 Mar 1997 04:00:00

Tell me why I get an overflow error using this code:

Private Sub Command1_Click()
Dim Entry As Double
Dim Result As Double
Entry = Val(Text1.Text)
Result = Entry / (1000 * 1000)
End Sub

But no overflow error using this code:
Private Sub Command1_Click()
Dim Entry As Double
Dim Result As Double
Entry = Val(Text1.Text)
Result = Entry / (1000000)
End Sub

Thanks for taking your time to read this.
--
Jay Francis
Nebraska Game and Parks Commission
2200 North 33rd
Lincoln, Nebraska 68503

(402)471-5589

by **Joe Garri** » Tue, 11 Mar 1997 04:00:00

>Tell me why I get an overflow error using this code:

>Private Sub Command1_Click()
>Dim Entry As Double
>Dim Result As Double
>Entry = Val(Text1.Text)
>Result = Entry / (1000 * 1000)
>End Sub

I'd guess that VB is interpreting the two 1000's as integers and
thus attempting to do integer math on them. You could do:
Result = Entry / (CDbl(1000) * CDbl(1000))
...might help.

Joe

Never underestimate the power of a WAG.

http://www.citilink.com/~jgarrick/vbasic/

Very Computer

Overflow error

Overflow error

Overflow error