如何使用参数调用函数，从函数返回并分配返回给变量的内容？

Question

这就是我的尝试：

从模块调用该函数：

LastWorkingDay = IsBusinessDay(Yesterday)

功能：

Public Function IsBusinessDay(Yesterday As Variant) As Date

...

InterestingVariable = #20/02/2014#

End Function

我想返回InterestingVariable并将其分配给LastWorkingDay。 VBA中没有return语句，所以你如何决定你想要返回什么。或者，如何调用函数来返回函数中计算的特定变量在我的情况下，它将“InterestingVariable”。

Answer 1

VBA中的

return是函数名称和= <return value>

所以例如

Public Function MyFunction() as String
    MyFunction = "returned from MyFunction"
End Function

所以MsgBox MyFunction会返回从MyFunction返回的String

Answer 2

将此行添加到您的功能

IsBusinessDay = InterestingVariable