Function irg(i)
i = Format(i, "000.00")
p = Right(i, 4)
If i > 15000 Then
If i > 15000 And i < 22510 Then
irg = (i - p - 15000) / 5
End If
If i >= 22510 And i < 28760 Then
irg = ((i - p - 22500) * 0.12) + 1500
End If
If i >= 28760 And i < 30010 Then
irg = ((i - p - 28750) / 5) + 2250
End If
If i >= 30010 Then
irg = ((i - p - 30000) / 10 * 3) + 2500
End If
End If
End Function