Similar to TaxExclusive, Discounted takes aValue and applies a discount at the rate specified by aDiscPC.

The parameter aDiscPC is given as a percentage only, and must be a value between 0 and 100 - eg 25.0 is 25%.

Declaration:    Function Discounted( aValue, aDiscPC : Extended) : Extended

An example of its use follows.

Procedure OnMapEvent(var Value:variant);
begin
Value := Discounted(100.00,25); // returns 75
Value := Discounted(-546.75,15); // returns -464.7375
Value := Discounted(546.75,15); // returns 464.7375
Value := Discounted(75.45,15); // returns 64.1325
end;