如何得到毫秒级时间串？

Question

Now不支持毫秒但可以用 format(Timer.".000")得到毫秒的数值。

Answer 1

DIM tim as doubletim=format(timer,".00")*100 '得到百分秒的数值,timer好像没有毫秒

Answer 2

用API！
Private Declare Function GetTickCount Lib "kernel32" () As Long
t = GetTickCount() mod 1000  单位：1/1000 秒

Answer 3

用API！
Private Declare Function GetTickCount Lib "kernel32" () As Long
t = GetTickCount() mod 1000  单位：1/1000 秒

Answer 4

感谢您使用微软产品。您可以用API函数GetSystemTime或GetLocalTime返回的SYSTEMTIME结构的参数获得系统日期和精确到毫秒的系统时间。
GetSystemTime返回UTC时间，GetLocalTime返回当地时间。
如下例：
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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 TypePrivate Sub Timer1_Timer()
    Dim s As String
    Dim sys As SYSTEMTIME
    
    GetSystemTime sys ‘或者 GetLocalTime syss= CStr(sys.wYear) + "," + CStr(sys.wMonth) + "," + CStr(sys.wDay) 
    Label1.Caption = s
    
  s1= CStr(sys.wHour) + ":" + CStr(sys.wMinute) + ":" + CStr(sys.wSecond) + ":" + CStr(sys.wMilliseconds)
‘ 或者s = Time$ + " : " + CStr(sys.wMilliseconds)    Label2.Caption = s1
    
End Sub详细信息请参考以下链接：
GetSystemTime
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/time_56p1.asp
GetLocalTime
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/time_7rj9.asp-  微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境，请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。

Answer 5

有这么麻烦吗?
?format(now,"HH:MM:SS:MS")

Answer 6

Private Declare Function GetTickCount Lib "kernel32" () As Long
用这个API就可以搞定！