我怎样才能子程序值赋给变量访问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，你可以在主子程序中做到这一点！