[vb6.0/vba] [vb6.0/vba] 인터넷(서버) 접속시 쿠키를 이용한 서버 시간을 확인하는 함수
하나를하더라도최선을
2020-01-08 15:44
7,334
0
본문
(날짜 + 시간)+컴퓨터 시간 정확히 맞추는법<br>아래는 인터넷 접속시 돌아오는 쿠키값을 이용하는 방법입니다.
Public Function mDate() As Date
Dim T As String
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", "http://www.naver.com/" '// << URL은 아무 URL이나 됩니다.
.Send
.WaitForResponse: DoEvents
T = .GetAllResponseHeaders
End With
T = Split(Split(T, "Date: ")(1), " GMT")(0)
T = Split(T, ", ")(1)
mDate = DateValue(Split(T, " ")(0) & "," & Split(T, " ")(1) & "," & Split(T, " ")(2))
mDate = mDate + TimeValue(Split(T, " ")(UBound(Split(T, " ")))) + TimeSerial(9, 0, 0) '// GMT는 9시간 느림
End Function
댓글목록0