代码如下:
Function GetMiniTime() As String
Dim Tss As Single, HM As Integer, SS As Integer, MM As Integer, HH As Integer
Tss = Timer() * 1000
HM = Tss Mod 1000 '得到毫秒
Tss = Tss \ 1000 '总秒数
HH = Tss \ 3600 '得到小时
Tss = Tss Mod 3600 '总分钟数
MM = Tss \ 60 '得到分钟
SS = Tss Mod 60 '得到秒
GetMiniTime = Format(HH, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "000")
End Function
测试:
Private Sub Form_Load()
Me.Caption = GetMiniTime
End Sub