动态链接库 Declare Function
C++里动态链接库函数头文件为:
IMPORT_TYPE void _stdcall PT2H97(double P,double T,double & H,int & Range);
Option Explicit
Declare Function PT2H97 Lib "WASPCN.DLL" (ByVal P As Double, ByVal T As Double, H As Double, R As Double) As Double
Sub shuizhengqi()
Dim result As Double
Dim hh As Double
Dim rr As Double
result = PT2H97(0.1, 100, hh, rr)
End Sub