Private Declare Function Term_ReadRecord Lib "you.dll" (ByRef oNumber As Long, ByRef oTypeID As Byte, ByVal oCardName As Long, ByRef oDate As Date, ByRef oTime As Date) As Integer
调用时的代码: Dim oCardName(1024) As Byte Dim oNumber As Long, oTypeID As Byte, oDate As Date, oTime As Date Term_ReadRecord oNumber, oTypeID, VarPtr(oCardName(0)), oDate, oTime
Dim oNumber As Long, oTypeID As Byte, oDate As Date, oTime As Date
Term_ReadRecord oNumber, oTypeID, VarPtr(oCardName(0)), oDate, oTime
如果需要的话,我把代码给你