谁告诉我怎么获取系统时间啊!

Question

Private Sub Form_Load()
    MsgBox Now
End Sub

Answer 1

也可用API  getsystemtime 函数。

Answer 2

MsgBox Date & vbCrLf & Time

Answer 3

我知道有getsystemtime这个函数,但是不知道怎么调用!

Answer 4

module
 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 Type
 
Declare Sub GetSystemTime Lib "kernel32.dll" (lpSystemTime As SYSTEMTIME)form
Public Sub GetTime()
 Dim st As SYSTEMTIME
 GetSystemTime st
 Debug.Print "Year - " & st.wYear
 Debug.Print "Month - " & st.wMonth
 Debug.Print "DayOfWeek - " & st.wDayOfWeek
 Debug.Print "Day - " & st.wDay
 Debug.Print "Hour - " & st.wHour
 Debug.Print "Minute - " & st.wMinute
 Debug.Print "Second - " & st.wSecond
 Debug.Print "Milliseconds - " & st.wMilliseconds
End Sub

Answer 5

还是用now或date函数吧。
GetSystemTime 取到的时间格式是GMT 的，与北京时间相差8个小时！

Answer 6

用GetLocalTime()就与北京时间一样了。

Answer 7

API:
GetLocalTime函数得到本地时间
GetSystemTime函数得到系统时间

Answer 8

now
date
time等等，看要什么样格式了