바이낸스 API 적용을 위해 엑셀에서 Unix TimeStamp 만들기 - VBA

바이낸스 API는 인증 절차 중 Unix TimeStamp를 사용합니다.

 

바이낸스 API 문서를 찾아보니 timestamp=1499827319559

 

이렇게 적혀있었습니다.

 

TimeStamp라는 것은 1970년 1월 1일 00시 00분 00초부터 현재까지 시간 차이를 "초"로 표시

 

바이낸스 API 문서에는

All time and timestamp related fields are in milliseconds.

milliseconds로 적용 되어 있습니다.

 

milliseconds라고 하면 1000 = 1초가 됩니다.

 

즉 1499827319559 = 1499827319.559 초입니다.

 

엑셀 함수의 DateAdd 함수를 사용하면 2017년 07월 12일이 됩니다.

 

위와 같이 하면 TimeStamp를 시간으로 변경할 수 있습니다.

 

DateAdd를 통해서 1970년 01월 01일부터 해당 시간만큼 초로 더하는 VBA 코드입니다.

Sub Unix를시간으로()

Debug.Print DateAdd("s" , TimeStamp값 , "01/01/1970")

End sub

 

이제 반대로 시간을 TimeStamp로 변경할 것입니다.

 

DateDiff를 통해서 1970년 01월 01일부터 해당 시간만큼 차이를 초로 계산하는 VBA 코드입니다.

Sub 현재시간을Unix()

Debug.Print DateDiff("s", "01/01/1970" , now())

End sub

이건 초 단위입니다.

 

바이낸스 API에서 필요한 것은 1000 = 1초가 되는 값입니다.

 

그래서 여기에 * 1000을 적용할 예정입니다.

 

Function TimeStamp(ServerTime)

TimeStamp = DateDiff("s", "01/01/1970", ServerTime) * 1000

End Function

이렇게 바이낸스에서 사용되는 TimeStamp를 만들었습니다.