VB6.0 获取时间毫秒级精度的问题

[XBoy410]

本人近期在将时间转成UTC时间戳过程中，发现VB获的毫秒级时间，很简单，但不知道网上的代码为什么搞得那么复杂？

在此将代码贴出来，以供大家参考，欢迎大家指点，是否有不足的地方。



Private Sub Command1_Click()

'功能：将当前的时间，转成UTC时间戳

'注意：UTC时间是从1970/01/01 00:00:00 开始计算的

'举例：2018.10.09 11:15:31.224 --> 1539054931224

Dim uDay As Double
Dim uMillisecond As Double

uDay = Date - CDate("1970/01/01")
uMillisecond = (uDay * 24 - 8) * 3600 '北京时间，需要减去8小时差
uMillisecond = (uMillisecond + Timer) * 1000

Text1 = Now
Text2 = uMillisecond


End Sub

[weixin_44440332]

TNND，看了豁然开朗~~~~

[有虞先生]

VB时间戳？厉害了！