大家帮看，我的两个函数，哪个更好些呀，一个是前期绑定，一个是后期绑定？
大家帮看，我的两个函数，哪个更好些呀，一个是前期绑定，一个是后期绑定？ ---------------------------------
两个函数的功能都是接收一个字符串，然后返回这个字符串的值。当然了，这个字符串是一个计算公式。
一个用前期绑定，一个是后期绑定，
我的这两个函数写在模块中，供窗体中代码调用，具有通用性，就是不知哪种更好，效率更好些，更合理些。
'该函数使用的是前期绑定
Function result(ByVal X1 As String) As Double
On Error GoTo err
Dim obj As New MSScriptControl.ScriptControl
obj.Language = "vbscript"
result = Round(obj.Eval(X1), 2)
Set obj = Nothing
Exit Function
err:
MsgBox err.Description
End Function
'该函数使用的是后期绑定
Function result2(ByVal X1 As String) As Double
On Error GoTo err
Dim obj As Object
Set obj = CreateObject("MSScriptControl.ScriptControl")
obj.Language = "vbscript"
result2 = Round(obj.Eval(X1), 2)
Set obj = Nothing
Exit Function
err:
MsgBox err.Description
End Function
[[it] 本帖最后由 ggyy66 于 2008-2-20 21:01 编辑 [/it]]
