Excel VBA更改传递给函数的参数

Question

说我有一个带有两个Date参数的函数。 然后，我需要更改其中之一（例如，我需要更改其月份）。 是将它重新分配给变量然后进行更改的唯一方法，还是可以通过其参数名称引用它来更改它？

Function test(date1 As Date, date2 As Date, change As Boolean)
   If change=True Then
         date1 = DateSerial(year(date1), 10, day(date1))   'would it change date1's month or not?
   End If

   test=date1
End Function

Answer 1

尽管没有什么阻止您这样做的，但是通常也认为不更改输入是一种最佳做法-这些参数被视为过程中的变量一样对待。 简而言之，简单的功能就可以解决。 但是，如果您拥有更长，更复杂的功能，并且坚持不更改输入，那么代码将变得更加易于维护。

假设您从用户那里获得了一个日期，但是您想回到最后一个对帐单日期，该日期始终是上个月的最后一天。 您可以像这样操纵参数

Public Function LastStatementAmount(ByVal inputDate As Date) As Double

    Dim Return_ As Double

    inputDate = DateSerial(Year(inputDate), Month(inputDate), 0)

    'do calculations here

    LastStatementAmount = Return_

End Function

那行得通。 但是更好的方法是更改​​变量名称以反映对值所做的更改

Public Function LastStatementAmount(ByVal inputDate As Date) As Double

    Dim Return_ As Double
    Dim stmtDate As Date

    stmtDate = DateSerial(Year(inputDate), Month(inputDate), 0)

    'do calculations here

    LastStatementAmount = Return_

End Function

如果这是一个较大的函数，则最好查看stmtDate并知道您已经修改了输入日期。

如注释中所述，不更改输入参数的另一个原因是，如果您未指定传递机制，则默认情况下该参数为ByRef，并且如果调用过程期望该值不变，您可能会破坏代码。 您应该始终指定ByVal或ByRef，以便清楚您的代码意图。

Answer 2

在代码中，可以将Date1和Date2用作变量，因此可以更改它们的值。 变量Date1和Date2在函数语句中声明，因此它们的作用域与函数完全无关。 因此，担心更改输入的错误被UDF所误导-Date1和Date2在其他任何地方都不存在。 但是，如果您在另一个例程中使用它，那么您确实可能会冒险，因此您可以按值声明它们

函数测试（ByVal Date1作为日期，ByVal Date2作为日期，更改为布尔值）