Function not dividing properly. Please Help!

[3PhaseMacroMan]

Hello,

I have a function that scans a data set looking for the row index where
two consecutive values in the specified column have a % difference of
40%. It recently came to my attention that Excel was rounding the cell
values to the nearest whole integer. This should not occur, since I
have declared the variables as Longs. Here is the code:

Dim i As Integer
Dim j As Integer
Dim data1 As Long
Dim data2 As Long

Do While i <= (lastrow - 1) And flag3_1 = 0
data1 = outputPage.Cells(i, 13).Value
data2 = outputPage.Cells(i - 1, 13).Value
If Abs((data1 - data2) / data1) >= 0.4 Then[/B]
Location3_1 = i
X3_1Start = Location3_1 - 10
X3_1End = Location3_1 + 49
flag3_1 = 1
Else: i = i + 1
End If
Loop
*******************

data1 is read in as 0 when the actual value is 0.258558005094528.
data2 is read in as 1 when the actual value is 0.778554022312164.

How can I keep this from happening so I don't receive anymore division
by 0 errors??

Thanks!

 

[Bob Phillips]

Longs are Long Integers, so they would. Type the variables as Double.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"3PhaseMacroMan"

 

[Toppers]

Hi,
Long is an INTEGER declaration - change data1/2 to DOUBLE