将此 Excel 公式翻译成 VBA 代码（函数）

Question

这是我试图转换为 VBA 代码的 Excel 中的公式：

=IFERROR(IF(effDate>curDate,0,IF((curDate-effDate+1)>nDays,nDays*(nSpend/365),((nSpend/365)*(curDate-effDate+1))-IF((curDate-effDate+1)-nDays>0,nSpend/365,0))),0)

为了检查工作目的，这里是每个变量的值：

effDate: 1/1/17 (dimmed as value)
curDate: 3/31/17 (dimmed as value)
nDays: 60
nSpend: 1600

正确答案：263

我试着让它工作了两天，我用大约一百种不同的方式重新输入，但没有一个工作。该代码可能适用于一个单元格，但无法正确计算其他单元格。或者它根本不起作用。这是我之前所做的示例之一（函数名称是 APFcst）：

If effDate > curDate then
APFcst = 0 
Exit Function 
End if

If (curDate - effDate + 1) > nDays then
APFcst = nDays * (nSpend / 365) 
Else
val1 = (nSpend / 365) * (curDate - effDatea + 1)
end if 

if (curDate - effDate + 1) - nDays > 0 then
val2 = nSpend / 365
else
val2 = 0
end if

APFcst = val1 - val2
Exit Function 
End if 

注意：一切都变暗了，我遇到的问题只是翻译实际的公式，所以它会给我正确的答案。 请帮忙！我已经盯着这个看很久了，我可能看不到明显的解决方案。

Answer 1

在注意到公式中的最后一个IF 检查是多余的之后，下面是对公式的简化：

Function xAPFcst(effDate, curDate, nSpend, nDays) As double
  xAPFcst = IIf(effDate > curDate, 0, (nSpend / 365) * Application.Min(nDays, curDate - effDate + 1))
End function

Answer 2

像这样的东西，也许可以使用 IIF 缩短一点，也许，看看使用 (nSpend / 365) 更有效一点，我稍后再看看。我还没有正确测试。

Function formula_test(dtCurrentDate As Date, dtEffectiveDate As Date, nDays As Long, nSpend As Double) As Double

On Error GoTo eHandle

If dtEffectiveDate > dtCurrentDate Then
    formula_test = 0
Else
    If ((dtCurrentDate - dtEffectiveDate) + 1) > nDays Then
        formula_test = nDays * (nSpend / 365)
    Else
        formula_test = ((nSpend / 365) * (dtCurrentDate - dtEffectiveDate + 1))
        If (dtCurrentDate - dtCurrentDate + 1) - nDays > 0 Then
            formula_test = formula_test - nSpend / 365
        End If
    End If
End If

Exit Function

eHandle:
        formula_test = 0

End Function