VB´«µÝ²ÎÊý¸ødll

DllÊÇÓÃVCдµÄ£¬ Æ亯ÊýÔ­ÐÍΪ£º
extern  "C" BOOL PASCAL EXPORT StarConventionCheck(LPVOID strarTime,LPVOID overtime,BOOL isTimeFlag )

ÎÒÓÃVB´«²ÎÊýÊÇÕâÃÇ´«µÄ£º
Public Declare Function StarConventionCheck Lib "NetInf.dll" (StartTime As String, EndTime As String, ByVal isTimeFlag As Integer) As Long

Private Sub cmdCheckComHis_Click()
    Dim Return_RevComm As Long
    Dim hwnd_lng As Long
    Dim StartTime As SYSTEMTIME
    Dim EndTime As SYSTEMTIME
    Dim Byte_BeginTime(64) As Byte
    Dim Byte_EndTime(64) As Byte
    Dim FileTime_BeginTime As FILETIME
    Dim FileTime_EndTime As FILETIME
   
    With StartTime
        .wYear = CheckBeginData.Year
        .wMonth = CheckBeginData.Month
        .wDay = CheckBeginData.Day
       
        .wHour = 0
        .wMinute = 0
        .wSecond = 0
        .wMilliseconds = 0
    End With
   
    With EndTime
        .wYear = CheckEndData.Year
        .wMonth = CheckEndData.Month