Public Declare Function Calc_C Lib "RealSteps.dll" Alias "fnCalc_C" ( _
ByVal srcFileName As String, _
ByRef vLines As Long, _
ByRef vRSteps As Long, _
ByRef vComment As Long) As LongPublic Sub CalcFromCheckForm(fName As String)
Dim mStepCnt As Long
Dim mStepReal As Long
Dim mStepComm As Long
Dim mCommRate As Single
Dim mKibo As Long If Calc_C(fName, mStepCnt, mStepReal, mStepComm) <> 0 Then
MsgBox mStepCnt
MsgBox mStepReal
MsgBox mStepComm
End If
End Sub
有什么问题么?
ByVal srcFileName As String, _
ByRef vLines As Long, _
ByRef vRSteps As Long, _
ByRef vComment As Long) As LongPublic Sub CalcFromCheckForm(fName As String)
Dim mStepCnt As Long
Dim mStepReal As Long
Dim mStepComm As Long
Dim mCommRate As Single
Dim mKibo As Long If Calc_C(fName, mStepCnt, mStepReal, mStepComm) <> 0 Then
MsgBox mStepCnt
MsgBox mStepReal
MsgBox mStepComm
End If
End Sub
有什么问题么?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货