如何实现时间转时间戳:- Import "K7.lua"
- Dim 需转换时间="2022-06-30 17:32:20"
- Dim 时间 =Replace(Replace(Replace( 需转换时间," ",""),"-",""),":","")'也可写网络时间GetNetworkTime()
- Dim 时间转时间戳= K7.DateTimeToNumTimes(时间)
- TracePrint 时间转时间戳
- TracePrint time()'输出当前时间戳
- TracePrint DateTime.Format("%Y-%m-%d %H:%M:%S",时间转时间戳)'时间戳转时间
- Traceprint DateTime.Format("%Y-%m-%d %H:%M:%S",时间转时间戳-(5*24*60*60))'计算时间差 例:时间减去5天
复制代码 K7.Lua源码[下载后放入txt,然后修改尾缀txt为Lua即可]- function QMPlugin.DateTimeToNumTimes(srcDateTime) '收录代码
- --从日期字符串中截取出年月日时分秒
- local Y = string.sub(srcDateTime,1,4)
- local M = string.sub(srcDateTime,5,6)
- local D = string.sub(srcDateTime,7,8)
- local H = string.sub(srcDateTime,9,10)
- local MM = string.sub(srcDateTime,11,12)
- local SS = string.sub(srcDateTime,13,14)
- --把日期时间字符串转换成对应的日期时间
- local dt1 = {year=Y, month=M, day=D, hour=H,min=MM,sec=SS}
- --这里返回 转化成时间数值(就是这一行代码)
- return os.time(dt1)
- end
复制代码 时间对比[即指定时间运行]Dim 指定时间="17:04:00"
Dim 指定时间戳,现在时间戳
Import "zm.luae" //导入插件,只需执行一次
zm.Init //初始化插件,只需执行一次
指定时间戳=int(zm.Timestamp( Date() &" "&指定时间 ))
TracePrint 指定时间戳
Do
现在时间戳 = Time()
TracePrint "时间还差"&指定时间戳-现在时间戳&"秒"
If 现在时间戳 >= 指定时间戳 Then
TracePrint "时间到"
'具体操作写这里
Exit Do
End If
Delay 1000
Loop