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

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

return在 VBA 中是 函数名 和 = <return value>
所以例如

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

所以 MsgBox MyFunction返回 String从 MyFunction 返回