如何获得带毫秒的当前时间？

zhenliang 2004-07-29 06:21:48

如何获得带毫秒的当前时间？

...全文

489 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

wwqna 2004-07-31

打赏
举报

我以为楼要的毫秒级的中断，而不是要获得系统当前的时间，

sssss342072(乘凉的狙击手) ：
呵呵几十毫秒不够吗？楼上话里带刺啊啥意思？
一码是一码快讲下函数
这位大哥也说得太严重了，绝无那种意思了。

用法很简单了。
dim i as long
i=GetTickCount()

wwqna 2004-07-31

打赏
举报

不好意思，是我看错了标题！

mxfeng 2004-07-29

打赏
举报

楼上经典

northwolves 2004-07-29

打赏
举报

Private Sub Command1_Click()
MsgBox "当前时间：" & vbCrLf & Now & ":" & Format((Timer - Int(Timer)) * 1000, "000.00")
End Sub

northwolves 2004-07-29

打赏
举报

Private Declare Sub GetSystemTime 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 Sub Command1_Click()
Dim lpSystemTime As SYSTEMTIME
GetSystemTime lpSystemTime
MsgBox "当前时间：" & vbCrLf & Now & ":" & Format(lpSystemTime.wMilliseconds, "000")
End Sub

hhjjhjhj 2004-07-29

打赏
举报

谁说Timer只精确到小数点后两位？？
Dim t As Double
t = Timer
MsgBox CStr(t)

sssss342072 2004-07-29

打赏
举报

呵呵几十毫秒不够吗？楼上话里带刺啊啥意思？
一码是一码快讲下函数

sssss342072 2004-07-29

打赏
举报

对不起楼上我不知道GetTickCount这个函数，希望你给我讲讲怎摸应用谢谢~~

你说：
Timer一点用都没有,最多只能行几十毫秒！
你可以调试一下好不好，我说取两位是说取两位够了，你去调一下，变量定义为DOUBLE，你看小数点后面能精确到几位。多试几下，因为有可能正好干上后面全0的状况，最少精确小数后面8位以上。
利用更简单的方法当然好了，我顶下楼上讲解

wwqna 2004-07-29