如何用excel VBA获得当前时间（毫秒级别！）

如何用excel VBA获得当前时间（毫秒级别！）

(2013-11-21 19:52:01)

转载▼

百度了一天都没有百度到这个问题，后来在新浪知识人爱问中，找到了答案，并实验一下，果然很好，并道出了时间格式转换为数字格式的原理。

jvv_vvj这位网友很牛。

以下是代码,稍微修改了一点

Sub ttt()
Cells(1,1).Select
tt = Timer
h = Int(tt / 3600)
m = Int((tt - 3600 * h) / 60)
s = Int(tt - h * 3600 - m * 60)
ss = Left(tt - Int(tt), 4)
Selection.NumberFormatLocal = "hh:mm:ss.000"
Selection.Value = h & ":" & m & ":" & s & ss
End Sub

首先用tt变量Timer函数获得当前系统时间，储存在tt里的时间是用数字表示的时间，用tt除以3600得到的数的整数部分是当前的小时h，用tt减去当前的小时*3600再除以60得到数字的分钟。以此类推。

最后得到毫秒级别的时间h & ":" & m & ":" & s & ss 就写在了A1单元格中。