vba - 为 MS Access 查询创建公共函数

Question

大家好，我需要一些帮助来制作一个函数来返回工资查询中的值。以下是我目前的设计。

Table Name: Tax
Fields: EffDate(mm/dd/yyyy), Allowance, HSurcharge, NISAllowance, TaxRate.

In the order above this is the current records:
1.  9/1/2016,  60000,  8.25,  70%,  25%
2.  1/1/2017,  72000,  8.25,  70%,  25%

Query Name: Payroll
Fields: EmpName, PeriodEnd, Gross, NIS, HSurcharge, PAYE, NetPay

Expected Results as per the order above:
John Doe,  31/3/18,  7000,  70.40,  8.25,  201,  6720.35
Mary Doe,  31/12/16,  7000,  70.40,  8.25,  487,  6434.35

问题是试图制作一个表达式或一个函数来计算 PAYE。Paye = (Gross-(Allowance/12)-(NIS*NISAllowance))*TaxRate

但 PeriodEnd 必须与 EffDate 匹配。例如：

9/1/2016 Allowance = $60,000
1/1/2017 Allowance = $72,000 

Paye for 31/12/16 = (Gross-(60000/12)-(NIS*NISAllowance))*TaxRate = 201.
Paye for 31/3/18 = (Gross-(72000/12)-(NIS*NISAllowance))*TaxRate = 487.

因此，2017 年 1 月 1 日之前的任何总工资将使用 60000 津贴，2017 年 1 月 1 日或之后的任何总工资将使用 72000 津贴。

标签： vbams-access