VB6.0 取 毫秒級 時間戳

　　如題：先加載API

　　要點：毫秒級時間戳只是在秒級時間戳后面多了當前時間得三位毫秒數。

　　代碼：

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

Public Function GetUnixTime_ms() As String

　　GetUnixTime_ms= DateDiff("s", "1970-1-1 0:0:0", DateAdd("h", -8, Now)) & Right(timeGetTime, 3)
End Function