avg(3,5)
? MyAvg("3,5,7") DIMENSION aAvg[3] aAvg[1] = 3 aAvg[2] = 5 aAvg[3] = 9 ? MyAvg(@aAvg) FUNCTION MyAvg(eValues) LOCAL lnRetVal[1], lcArr[1] CREATE CURSOR cAvg (cField N (16,3)) IF TYPE("eValues[1]") == "N" && Aray is passed FOR EACH oVal IN eValues INSERT INTO cAvg VALUES (oVal) NEXT ELSE ALINES(lcArr,eValues,.t.,[,]) FOR EACH oVal IN lcArr INSERT INTO cAvg VALUES (VAL(oVal)) NEXT ENDIF AVERAGE cField TO ARRAY lnRetVal RETURN lnRetVal[1]