첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

■ 현재 시간을 밀리초까지 구하기

----------------------------------------------------------------------------------------------------

Public 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

 

Public Declare Sub GetLocalTime Lib "kernel32" (pSYSTEMTIME As SYSTEMTIME)

 

Private Sub cmdTest_Click()

 

    Dim pSYSTEMTIME As SYSTEMTIME

        

    GetLocalTime pSYSTEMTIME

    

    MsgBox pSYSTEMTIME.Hour & ":" & pSYSTEMTIME.Minute & ":" & pSYSTEMTIME.Second & "." & pSYSTEMTIME.Millisecond

 

End Sub

----------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요