怎样在窗体上实时显示当前时间？

来源：百度知道 编辑：UC知道 时间：2024/07/06 21:44:25
格式：??时??分??秒???毫秒
一定要显示出毫秒，谢谢！！
或者说用format()函数，怎样显示出当前时间的毫秒值？

谢谢！！！

加个timer控件，设interval为1
Private Declare Sub GetLocalTime 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 Type

Private Function CurrentTime() As String
Dim SYSTEMTIME As SYSTEMTIME
GetLocalTime SYSTEMTIME
CurrentTime = SYSTEMTIME.wYear & "/" & SYSTEMTIME.wMonth & "/" & SYSTEMTIME.wDay & " " & SYSTEMTIME.wHour & ":" & SYSTEMTIME.wMinute & ":" & SYSTEMTIME.wSecond & "." & SYSTEMTIME.wMilliseconds
End Function

Private Sub Timer1_Timer()
Me.Caption = CurrentTime
End Sub