[心得分享]----如何获取13位时间戳、时间如何精确到毫秒

按键精灵小Q

按键精灵官方账号

2022-05-18 16:36:31

文章作者：瑞祥幽冥狼

本帖主题:如何获取13位时间戳、时间如何精确到毫秒

10位、13位时间戳说明：

10位时间戳：精度为秒，生成的时间戳就是10位的

13位时间戳：精度为毫秒，生成的时间戳就是13位的

缺点:{按键2014无自带时间戳命令、手机按键返回10位时间戳}

缺点1:指定时间判断无法精确到毫秒

If CDate(Time) = CDate("08:00:00") Then 'Time、Lib.网络.获取网络时间()等只能精确到秒

TracePrint "时间到做事!"

'需要的操作

Exit Do

End If

Delay 1000

Loop

'原收录的精确到毫秒做法

定时="00:09:00.200"

TracePrint Time

If CDate(Time) = CDate(split(定时, ".")(0)) Then '这里"00:09:00"的秒00并不能确保刚刚好

Delay split(定时, ".")(1)'通过延时200自我安慰

TracePrint split(定时, ".")(1)

TracePrint "时间到做事!"

Exit Do

End If

Delay 1000

Loop

缺点2:在post中很多时候需要13位时间戳

PC如何返回10位时间戳:

Function 毫秒级时间戳()

毫秒级时间戳= (DateDiff("s","1970/1/1 00:00:00",Now())*1000)+(Round((timer() - Int(timer()))*1000,0))-T1

End Function

Function 时间转时间戳(时间)

时间转时间戳=DateDiff("s","1970/01/01 00:00:00",时间)

End Function

Function 时间戳转时间(时间戳)

时间戳转时间= DateAdd("s",时间戳,"1970/01/01 00:00:00")

End Function

PC如何返回13位时间戳:

淘宝时间接口 = "http://api.m.taobao.com/rest/api3.do?api=mtop.common.getTimestamp"

网络源文件 = Lib.网络.获得网页源文件_增强版(淘宝时间接口,"utf-8")

时间 = split( Split(网络源文件, "t" & chr(34) & ":" & chr(34))(1),chr(34))(0)

TracePrint 时间

PC如何精确到毫秒定时：{理论可行}
淘宝时间接口 = "http://api.m.taobao.com/rest/api3.do?api=mtop.common.getTimestamp"'如果是抢购别的可考虑使用那个网站的api时间接口更加高概率抢中
指定时间="17:42:30:400"
Do
网络源文件 = Lib.网络.获得网页源文件_增强版(淘宝时间接口,"utf-8")
时间 = split(Split(网络源文件, "t" & chr(34) & ":" & chr(34))(1), chr(34))(0)
TracePrint 时间
NewDate = DateAdd("s",Mid( 时间,1,len(时间)-3), "1970/01/01 00:00:00")
NewDate = DateAdd("h",8, NewDate)
网络时间 =Split(NewDate, " ")(1)
现在时间 = 网络时间 & "," & Mid(时间, len(时间) - 2, 3)
TracePrint 现在时间
If Lib.算法.提取字串符中所有数字(现在时间) \ 1 >= Lib.算法.提取字串符中所有数字(指定时间) \ 1 Then
TracePrint "时间到"
End If

Delay 1000'这里延迟越小越精确
Loop