This is the opposite of the appreciate function. You could always use negative interest with the appreciation formula and get the same result but this is more elegant.
Depreciate (amount;percent;iterations)
Let (
depreciation = ( amount * percent ) / 100 ;
If (
iterations > 0 ; Depreciate ( amount - depreciation ; percent ; iterations - 1 ) ; amount
) // end If
) // end Let