Pseudo-code

[iainsteel]

I was hoping one of you may help me with this question:

If the median price of an apple is defined as the closest price to the price of a banana. Meaning:
Banana price is 2.2
Range of apples prices:
1
2
3
4
5
6
7

Hence in this case the answer is 2
How I write a function that would return the median apple from that list? And also how do I define the variable define the variable type you would use to accomplish this task.
I am hoping that someone can write just pseudo-code for this function.
Thanks in advance for your reply!

 

[Andrew Poulsom]

Did you try?

=MEDIAN(A1:A7)

 

[WinteE]

You can get the answer with

=VLOOKUP(ROUND(2.2,0),Range aplle prices,1,0)

 

[MickG]

Try this:-

Function Apple(Rng As Range, Price As Long) As Long
Dim Dn As Range
For Each Dn In rng
If Round(Dn) = Round(Price) Then
    Apple = Dn
    Exit For
End If
Next Dn
End Function

Regards Mick

 

[jasonb75]

Try this:-

Function Apple(Rng As Range, Price As Long) As Long
Dim Dn As Range
For Each Dn In rng
If Round(Dn) = Round(Price) Then
    Apple = Dn
    Exit For
End If
Next Dn
End Function

Regards Mick

Maybe you should declare the variables as Double, not as Long.

 

[iainsteel]

Thank you all for your response. MickG Thank you for your post!! That in particular was what I was looking for.

 

[MickG]

Yes, that makes sense, or may be "single"
Mick