---
url: >-
  /statelake/scripting-reference/functions-and-procedures/accounting-functions/discounted.md
---

# 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.

```pascal
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;
```