Discounted

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;