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

Question

这就是我努力：

从模块调用函数：

LastWorkingDay = IsBusinessDay(Yesterday) 

功能：

Public Function IsBusinessDay(Yesterday As Variant) As Date 

... 

InterestingVariable = #20/02/2014# 

End Function 

我想回InterestingVariable并将其分配给LastWorkingDay。 VBA中没有返回语句，那么您如何决定要返回的内容。或者，你如何调用函数来返回函数中计算出的特定变量？在我的情况下，它将会是“InterestingVariable”。

Answer 1

在VBA return是函数名和= <return value>

因此，例如

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

所以MsgBox MyFunction返回String返回来自MyFunction

Answer 2

这一行添加到您的功能

IsBusinessDay = InterestingVariable