一个关于VB DLL的问题
tawe 2001-09-24 12:17:29 DLL:
Public Function calctime(ByVal sTimeStart As String, ByVal sTimeEnd As String) As Double
calctime = DateDiff("n", sTimeStart, sTimeEnd)
End Function
调用:
Dim objObject As New tw.TimeFunction
Private Sub Form_Load()
Label1.Caption = objObject.calctime("12/3/90", "12/4/90")
End Sub
当调用的这个程序生成.EXE调用DLL很正常,但把DLL改动成:
Public Function calctime(ByVal sTimeStart As String, ByVal sTimeEnd As String) As Double
calctime = DateDiff("n", sTimeStart, sTimeEnd)+10
End Function
再执行.EXE程序时报错???????
报错如下:
run-time error '430'
class does not support automation or does net support expected interface