바이낸스API 적용을 위한 서버시간 찾기 - VBA

바이낸스는 검증 방법 중 TimeStamp가 존재합니다.

 

그렇기 때문에 바이낸스의 서버시간을 알 수 있어야 합니다.

 

TimeStamp값을 바이낸스의 서버시간으로 적용해야만 합니다.

 

예전에 오토 핫키로 서버시간을 찾아서 적용하는 프로그램을 만들었는데 엑셀도 동일하게 했습니다.

 

해당 서버를 "get" 했을 때 getResponseHeader에 Date가 존재합니다.

 

이것이 결국 해당 서버의 시간이 됩니다.

 

하지만 저희에게 필요한 것은 Date 타입이지 String 타입이 아닙니다.

 

Date 타입과 String 타입의 차이는 아주 큰 차이가 있습니다.

Date 타입은 시간 계산이 가능합니다.

Sub ServerTimeGet()


Set WH = CreateObject("winhttp.winhttprequest.5.1")


WH.Open "get", "https://api.binance.com"


WH.Send


WH.WaitForResponse


ServerTimeGet = ChangeDate(WH.GetResponseHeader("Date"))


End Sub

이렇게 하여 결괏값으로 시간을 받을 수 있습니다.

Fri, 07 May 2021 21:02:52 GMT

앞서 이야기했던것 처럼 이제 이것을 Date 타입으로 변경해야 합니다.

 

저는 파싱해서 Date 타입에 집어넣었습니다. 그러면 Date 타입으로 변경됩니다.

 

제가 사용한 파싱 방법은 아래와 동일합니다.

 

Function ChangeDate(HeaderTime) As Date



ChangeDate = Mid(HeaderTime, 6, InStr(HeaderTime, "GMT") - 7)



End Function

ㅊ