[源码分享]----安卓时间转时间戳及时间对比

[按键精灵小Q]

作者：瑞祥幽冥狼

 

如何实现时间转时间戳:

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

原文地址：http://bbs.anjian.com/showtopic-700895-1.aspx

[CSDN-Ada助手]

您可以前往 CSDN问答-编程语言 发布问题, 以便更快地解决您的疑问