[VB6] 시스템 시간을 밀리초(Millisecond)까지 가져오기

 

시스템 시간을 밀리초(Millisecond)까지 가져오기

---

포스팅 개요

우리가 흔히 밀리세컨드라고 부르는 이 밀리초는 VB 기본 함수로는 표현이 어렵습니다. 시간을 표현하는 대표적인 함수인 Now 함수도 밀리초를 가져오지 않습니다. 따라서 오늘 포스팅에서는 내장 함수가 아닌 DLL 프로시저를 선언하여 밀리초를 가져오는 예제 코드를 작성하도록 하겠습니다.

 

• 다른 사이트의 예제를 보면 Timer 내장 함수를 이용한 코드도 있습니다.
• 'Right(Format(Timer, "#.000 "), 4)'와 같은 방법인데 개인적으로는 사용하지 않는 편입니다.

 

---

예제 소스 코드

 

• 디자인 및 참고할 주요 컨트롤
  Textbox : Text1
  Timer : Timer1 (Interval은 100)

밀리초 표기 샘플 디자인

 

• 디자인을 완성한 폼으로 예제 코드를 작성

Option Explicit

'밀리초를 가져오기 위한 선언부
Private Declare Sub GetLocalTime Lib "kernel32.dll" (lpSystemTime As SYSTEMTIME)

Private Type SYSTEMTIME
    Year As Integer
    Month As Integer
    DayOfWeek As Integer
    Day As Integer
    Hour As Integer
    Minute As Integer
    Second As Integer
    Millisecond As Integer
End Type

Private Sub Timer1_Timer()

    Dim pSYSTEMTIME As SYSTEMTIME
    
    GetLocalTime pSYSTEMTIME
    
    '타이머가 돌면서 시스템 시간 표기
    Text1.Text = Format(Now, "ttttt") & " " & Format(pSYSTEMTIME.Millisecond, "000")

End Sub

---

실행 결과

 

• 예제를 참고하여 작성한 샘플

밀리초가 표기되는 샘플

밀리초가 표기되는 샘플의 구동 화면