如何获取系统时间？

Question

Msgbox "现在时间：" & Time()设置时间
Time="09:00"

Answer 1

Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End TypePrivate Sub Command1_Click()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    '[email protected]
    Dim SysTime As SYSTEMTIME
    'Set the graphical mode to persistent
    Me.AutoRedraw = True
    'Get the system time
    GetSystemTime SysTime
    'Print it to the form
    Print Timer
    Print SysTime.wMilliseconds
End Sub