First, do yourself a favour and don't give objects meaningless names like Field13, but something meaningful like Quantity.
To return the gross discounted price of a quantity of items sold where a 50% discount on the listed unit price applies to the quantity in excess of 5 sold an expression would be:
IIf(Quantity <= 5,UnitPrice*Quantity,(UnitPrice*5)+((Quantity-5)*UnitPrice/2))
Or as a function:
Public Function DiscountedPrice(UnitPrice As Currency, Quantity As Integer) As Currency
If Quantity <= 5 Then
DiscountedPrice = UnitPrice * Quantity
Else
DiscountedPrice = (UnitPrice * 5) + ((Quantity - 5) * UnitPrice / 2)
End If
End Function
Ken Sheridan, Stafford, England