将Vba代码转换成Php代码,将这个Excel公式转换成VBA代码（函数）-CSDN博客

将这个Excel公式转换成VBA代码(函数)

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

=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)

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

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

正确答案： 263

我试图让它工作两天，然后我用大约一百种不同的方法重新input，而且都没有工作。该代码可能适用于一个单元格，但不能正确计算其他单元格。或者根本不起作用。这是我之前做的一个例子(函数的名字是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

注意：一切正常，我遇到的问题只是翻译实际的公式，所以它会给我正确的答案。请帮忙！我一直盯着这么长时间，我可能看不到一个明显的解决scheme。

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

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

像这样的东西，也许有可能使用IIF来缩短它的接触，也许可以更有效地使用(nSpend / 365) ，稍后再看看。我还没有正确testing。

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