如何将子例程值分配给访问VBA中的变量

Question

我在Module1中有以下程序：

public sub Evaluate(Salary as double)
    Dim Overtimesalary as Double
    Overtimesalary = salary * 1.5
End Sub

现在，我正在为我的表单单击按钮事件调用此过程来计算加班工资并从表单中获取文本框值的输入值，代码为

当我尝试执行下面的代码时，我收到“编译错误：预期的函数或变量”：

Private sub cmd_Calculate()
    Dim Test as Double
    test = Evaluate(txt.salary.value)
    MsgBox Test
End Sub

Answer 1

将子程序转换为函数，并将值作为函数值返回。

public Function Evaluate(Salary as double)
    Evaluate = salary * 1.5
End Sub

这将运行该过程，执行计算，然后将函数中指定的值返回给调用子例程。

那就是说，我假设这是你正在做的事情的简化版本 - 如果你所做的只是将值乘以1.5，你就可以这样做主子程序！