kirimrsonlineheader

Option Explicit

Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type

Private Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long
Private Declare Function LocalFileTimeToFileTime Lib "kernel32" (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long
Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
Private Declare Function SystemTimeToFileTime Lib "kernel32" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long
Dim Interval As Integer
 Dim req As WinHttp.WinHttpRequest
    Dim strSQL As String
    Dim rs As ADODB.Recordset
    Dim jml As Integer
    Dim dbconn As ADODB.Connection
    Dim strUser, strPassword As String
    Dim hasil As String
    Dim url As String
    Dim NamaRuangan As String
    Dim statcovid As String
    Dim jmlruang As String
    Dim statKirim As Boolean
    Dim TotalKirim As Integer
    Dim iPost As Integer