첨부 소스 코드는 나눔고딕코딩 폰트를 사용합니다.
728x90
반응형
728x170
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
728x90
반응형
그리드형(광고전용)
Posted by icodebroker
TAG ,

댓글을 달아 주세요