Code:
FUNCTION CalcMatch(A1 AS STRING, B1 AS STRING) AS STRING LOCAL cA1,cB1,cMatch AS CURRENCY cA1 = VAL(A1) : cB1 = VAL(B1) 'matching scenarios ladder up IF cB1 / cA1 <= 0.03# THEN '1st matching scenario FUNCTION = B1 EXIT FUNCTION END IF IF cB1 / cA1 <= 0.05# THEN '2nd matching scenario cMatch = cA1 * 0.03# + cA1*(cB1/cA1-0.03#) * 0.5# FUNCTION = FORMAT$(cMatch,"#####.00") EXIT FUNCTION END IF cMatch = cA1 * 0.04# '3rd matching scenario FUNCTION = FORMAT$(cMatch,"#####.00") END FUNCTION
Comment