VBA Calculation mystery

[ErikJan]

Maybe I'm getting to old for this... This is my immediate Window in the Excel 2010 VBE. Three numbers: P1=31.53, P2=31.46, P3=31.39
I take the average from P1 and P3 (see above): 31.46 (makes sense).
Then I subtract P2 to get... zero....

P1, P2, P3 are defined as Double. If I define "Av13_2_Dist" as Double too and calculate this:

Av13_2_Dist = Abs((P1 + P3) / 2 - P2)

The outcome is still zero. This always worked fine when I used ranges as input to P1, P2 and P3. Now I move them into a (variant) array first... could that be the cause here? And what can I do about this then? Copy the Variant array into a Double array first?? (the array has to be variant to be able to 'receive' a range)

2013-02-13 13_20_38-Microsoft Visual Basic for Applications - Data Spike Remover _ Standalone testin.png

[HansV]

Er, what is the problem exactly?

[ErikJan]

Deeper than I thought... my brain's not working. Looks like an error in my algorithm and not in Excel I think. I'll re-check and if you don't hear back... ignore me