dBfast - Quien es el más pequeño ?

Hola,

Necesito saber sin saber previamente que valor tiene una variable numerica qual es la que contiene el valor mas pequeño, Ej.

A = 223
B = 113
C = 321
D = 250

Ahora biene lo bueno es resultado debe ser 1, 2 , 3 o 4 dependiendo del orden que estan situadas las variables, que en este ejemplo estan con letras A, b, c, d

Es decir, no necesito saber si la B es la más pequeña, lo que necesito saber es que la variable situada en segunda posición 2 es la variable con el valor más pequeño, por eso necesito como Return que la función me de 2

Muchas gracias,
Ramon

FUNCTION Cual_es_la_mas_pequena( A, B, C,D )
LOCAL aVars := Array( 4 )
LOCAL nPos := 0
LOCAL i
LOCAL n_menor := 999999

aVars[ 1 ] := A
aVars[ 2 ] := B
aVars[ 3 ] := C
aVars[ 4 ] := D

FOR i := 1 TO Len( aVars )
if aVars[ i ] < n_menor
nPos := i
endif

NEXT

RETURN( nPos )

Gracias Fernando por tu ayuda, lo pondre en practica.

Ramon