时间戳与时间判断

mengmegn5201

开始时间 12:24:46
现在时间1723004634455
怎么判断现在时间与 开始时间相差多少秒
比如相差还有30秒的时候就提醒

浅黑

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
定时时间	长整数型
倒计时	长整数型

定时时间 ＝ 到长整数 (时间_到时间戳 (到时间 (时间_到文本 (, 1, 1) ＋ “ 12:32:00”)))
循环判断首 ()
倒计时 ＝ 定时时间 － 到长整数 (时间_到时间戳 ())
如果真 (倒计时 ＞ 0 且 倒计时 ≤ 30000 且 倒计时 ％ 1000 ＝ 0)
调试输出 (到文本 (倒计时 ÷ 1000) ＋ “秒后开始！”)
延迟 (1)

如果真 (到长整数 (时间_到时间戳 ()) ＞ 定时时间)
调试输出 (“任务开始”)
跳出循环 ()

循环判断尾 (真)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 定时时间, 长整数型<br /> .局部变量 倒计时, 长整数型<br /> <br /> <br /> 定时时间 ＝ 到长整数 (时间_到时间戳 (到时间 (时间_到文本 (, 1, 1) ＋ “ 12:32:00”)))<br /> <br /> .循环判断首 ()<br /> <br />     倒计时 ＝ 定时时间 － 到长整数 (时间_到时间戳 ())<br /> <br />     .如果真 (倒计时 ＞ 0 且 倒计时 ≤ 30000 且 倒计时 ％ 1000 ＝ 0)<br />         调试输出 (到文本 (倒计时 ÷ 1000) ＋ “秒后开始！”)<br />         延迟 (1)<br />     .如果真结束<br /> <br />     .如果真 (到长整数 (时间_到时间戳 ()) ＞ 定时时间)<br />         调试输出 (“任务开始”)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .循环判断尾 (真)

笨来无一悟

现在时间完全可以用本机的时间就可以了 软件打开的第一件事就是校对时间 矫正之后 直接取本机的时间做对比就可以了 不需要对比网页的返回时间戳

LEOONL

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
间隔秒数	整数型

间隔秒数 ＝ 取时间间隔 (到时间 (“2000-1-1 ” ＋ “12:24:46”), 到时间 (“2000-1-1 ” ＋ 时间_时间戳转文本3 (“1723004634455”, 1, 3)), 8)
调试输出 (间隔秒数)
如果真 (间隔秒数 ＜ 30)
调试输出 (“1”)

子程序名	返回值类型	公开	备 注
时间_时间戳转文本3	文本型		把一个13位的时间戳，如：1325252169718 转成 2011-12-30 21:36:09
参数名	类 型	参考	可空	数组	备 注
时间戳	文本型
输出格式	整数型				可空。0=N年N月N日 N时N分N秒  1=年-月-日 时:分:秒
返回类型	整数型				可空。留空为全部，1=只取年月日，2=取月日，3=只取时分秒，4=时分，5=分秒，6=月日时分

变量名	类 型	静态	数组	备 注
VBscript	对象
局_文本	文本型
局_数组	文本型		0
局_时间	日期时间型

CoInitialize (0)
如果 (取文本长度 (时间戳) ＝ 10)
局_时间 ＝ 增减时间 (到时间 (“1970.01.01 08:00:00”), #秒, 到整数 (时间戳))
返回 (选择 (时间_取制式 () ＝ 0, 时间_格式化 (局_时间, “yyyy-MM-dd ”, “hh:mm:ss”, ), 时间_格式化 (局_时间, “yyyy-MM-dd ”, “HH:mm:ss”, )))
如果真 (VBscript.创建 (“ScriptControl”, ))
VBscript.写属性 (“Language”, “JScript”)
VBscript.数值方法 (“ExecuteStatement”, “function timea(){var d,s;d=new Date();d.setTime('” ＋ 时间戳 ＋ “');return(d);}”)
局_文本 ＝ VBscript.通用方法 (“Run”, “timea”, ).取文本 ()
VBscript.清除 ()
CoUninitialize ()
如果真 (取文本长度 (局_文本) ＞ 0)
局_数组 ＝ 分割文本 (局_文本, “ ”, )
如果真 (取数组成员数 (局_数组) ≥ 6)
判断 (局_数组 [2] ＝ “Jan”)
局_数组 [2] ＝ “1”
判断 (局_数组 [2] ＝ “Feb”)
局_数组 [2] ＝ “2”
判断 (局_数组 [2] ＝ “Mar”)
局_数组 [2] ＝ “3”
判断 (局_数组 [2] ＝ “Apr”)
局_数组 [2] ＝ “4”
判断 (局_数组 [2] ＝ “May”)
局_数组 [2] ＝ “5”
判断 (局_数组 [2] ＝ “Jun”)
局_数组 [2] ＝ “6”
判断 (局_数组 [2] ＝ “Jul”)
局_数组 [2] ＝ “7”
判断 (局_数组 [2] ＝ “Aug”)
局_数组 [2] ＝ “8”
判断 (局_数组 [2] ＝ “Sep”)
局_数组 [2] ＝ “9”
判断 (局_数组 [2] ＝ “Oct”)
局_数组 [2] ＝ “10”
判断 (局_数组 [2] ＝ “Nov”)
局_数组 [2] ＝ “11”
判断 (局_数组 [2] ＝ “Dec”)
局_数组 [2] ＝ “12”



如果真 (输出格式 ＝ 0)
如果真 (返回类型 ＝ 0)
返回 (局_数组 [6] ＋ “年” ＋ 局_数组 [2] ＋ “月” ＋ 局_数组 [3] ＋ “日” ＋ 文本_取左边 (局_数组 [4], “:”) ＋ “时” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “分” ＋ 文本_取右边 (局_数组 [4], “:”) ＋ “秒”)
如果真 (返回类型 ＝ 1)
返回 (局_数组 [6] ＋ “年” ＋ 局_数组 [2] ＋ “月” ＋ 局_数组 [3] ＋ “日”)
如果真 (返回类型 ＝ 2)
返回 (局_数组 [2] ＋ “月” ＋ 局_数组 [3] ＋ “日”)
如果真 (返回类型 ＝ 3)
返回 (文本_取左边 (局_数组 [4], “:”) ＋ “时” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “分” ＋ 文本_取右边 (局_数组 [4], “:”) ＋ “秒”)
如果真 (返回类型 ＝ 4)
返回 (文本_取左边 (局_数组 [4], “:”) ＋ “时” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “分”)
如果真 (返回类型 ＝ 5)
返回 (文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “分” ＋ 文本_取右边 (局_数组 [4], “:”) ＋ “秒”)
如果真 (返回类型 ＝ 6)
返回 (局_数组 [2] ＋ “月” ＋ 局_数组 [3] ＋ “日” ＋ 文本_取左边 (局_数组 [4], “:”) ＋ “时” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “分”)

如果真 (输出格式 ＝ 1)
如果真 (返回类型 ＝ 0)
返回 (局_数组 [6] ＋ “-” ＋ 局_数组 [2] ＋ “-” ＋ 局_数组 [3] ＋ “ ” ＋ 文本_取左边 (局_数组 [4], “:”) ＋ “:” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “:” ＋ 文本_取右边 (局_数组 [4], “:”))
如果真 (返回类型 ＝ 1)
返回 (局_数组 [6] ＋ “-” ＋ 局_数组 [2] ＋ “-” ＋ 局_数组 [3])
如果真 (返回类型 ＝ 2)
返回 (局_数组 [2] ＋ “-” ＋ 局_数组 [3])
如果真 (返回类型 ＝ 3)
返回 (文本_取左边 (局_数组 [4], “:”) ＋ “:” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “:” ＋ 文本_取右边 (局_数组 [4], “:”))
如果真 (返回类型 ＝ 4)
返回 (文本_取左边 (局_数组 [4], “:”) ＋ “:” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”))
如果真 (返回类型 ＝ 5)
返回 (文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “:” ＋ 文本_取右边 (局_数组 [4], “:”))
如果真 (返回类型 ＝ 6)
返回 (局_数组 [2] ＋ “-” ＋ 局_数组 [3] ＋ “ ” ＋ 文本_取左边 (局_数组 [4], “:”) ＋ “:” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”))





返回 (“”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 间隔秒数, 整数型<br /> <br /> 间隔秒数 ＝ 取时间间隔 (到时间 (“2000-1-1 ” ＋ “12:24:46”), 到时间 (“2000-1-1 ” ＋ 时间_时间戳转文本3 (“1723004634455”, 1, 3)), 8)<br /> 调试输出 (间隔秒数)<br /> .如果真 (间隔秒数 ＜ 30)<br />     调试输出 (“1”)<br /> .如果真结束<br /> <br /> <br /> .子程序 时间_时间戳转文本3, 文本型, 公开, 把一个13位的时间戳，如：1325252169718 转成 2011-12-30 21:36:09<br /> .参数 时间戳, 文本型<br /> .参数 输出格式, 整数型, 可空, 可空。0=N年N月N日 N时N分N秒  1=年-月-日 时:分:秒<br /> .参数 返回类型, 整数型, 可空, 可空。留空为全部，1=只取年月日，2=取月日，3=只取时分秒，4=时分，5=分秒，6=月日时分<br /> .局部变量 VBscript, 对象<br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_数组, 文本型, , "0"<br /> .局部变量 局_时间, 日期时间型<br /> <br /> CoInitialize (0)<br /> .如果 (取文本长度 (时间戳) ＝ 10)<br />     局_时间 ＝ 增减时间 (到时间 (“1970.01.01 08:00:00”), #秒, 到整数 (时间戳))<br />     返回 (选择 (时间_取制式 () ＝ 0, 时间_格式化 (局_时间, “yyyy-MM-dd ”, “hh:mm:ss”, ), 时间_格式化 (局_时间, “yyyy-MM-dd ”, “HH:mm:ss”, )))<br /> .否则<br />     .如果真 (VBscript.创建 (“ScriptControl”, ))<br />         VBscript.写属性 (“Language”, “JScript”)<br />         VBscript.数值方法 (“ExecuteStatement”, “function timea(){var d,s;d=new Date();d.setTime('” ＋ 时间戳 ＋ “');return(d);}”)<br />         局_文本 ＝ VBscript.通用方法 (“Run”, “timea”, ).取文本 ()<br />         VBscript.清除 ()<br />         CoUninitialize ()<br />         .如果真 (取文本长度 (局_文本) ＞ 0)<br />             局_数组 ＝ 分割文本 (局_文本, “ ”, )<br />             .如果真 (取数组成员数 (局_数组) ≥ 6)<br />                 .判断开始 (局_数组 [2] ＝ “Jan”)<br />                     局_数组 [2] ＝ “1”<br />                 .判断 (局_数组 [2] ＝ “Feb”)<br />                     局_数组 [2] ＝ “2”<br />                 .判断 (局_数组 [2] ＝ “Mar”)<br />                     局_数组 [2] ＝ “3”<br />                 .判断 (局_数组 [2] ＝ “Apr”)<br />                     局_数组 [2] ＝ “4”<br />                 .判断 (局_数组 [2] ＝ “May”)<br />                     局_数组 [2] ＝ “5”<br />                 .判断 (局_数组 [2] ＝ “Jun”)<br />                     局_数组 [2] ＝ “6”<br />                 .判断 (局_数组 [2] ＝ “Jul”)<br />                     局_数组 [2] ＝ “7”<br />                 .判断 (局_数组 [2] ＝ “Aug”)<br />                     局_数组 [2] ＝ “8”<br />                 .判断 (局_数组 [2] ＝ “Sep”)<br />                     局_数组 [2] ＝ “9”<br />                 .判断 (局_数组 [2] ＝ “Oct”)<br />                     局_数组 [2] ＝ “10”<br />                 .判断 (局_数组 [2] ＝ “Nov”)<br />                     局_数组 [2] ＝ “11”<br />                 .判断 (局_数组 [2] ＝ “Dec”)<br />                     局_数组 [2] ＝ “12”<br />                 .默认<br /> <br />                 .判断结束<br /> <br />                 .如果真 (输出格式 ＝ 0)<br />                     .如果真 (返回类型 ＝ 0)<br />                         返回 (局_数组 [6] ＋ “年” ＋ 局_数组 [2] ＋ “月” ＋ 局_数组 [3] ＋ “日” ＋ 文本_取左边 (局_数组 [4], “:”) ＋ “时” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “分” ＋ 文本_取右边 (局_数组 [4], “:”) ＋ “秒”)<br />                     .如果真结束<br />                     .如果真 (返回类型 ＝ 1)<br />                         返回 (局_数组 [6] ＋ “年” ＋ 局_数组 [2] ＋ “月” ＋ 局_数组 [3] ＋ “日”)<br />                     .如果真结束<br />                     .如果真 (返回类型 ＝ 2)<br />                         返回 (局_数组 [2] ＋ “月” ＋ 局_数组 [3] ＋ “日”)<br />                     .如果真结束<br />                     .如果真 (返回类型 ＝ 3)<br />                         返回 (文本_取左边 (局_数组 [4], “:”) ＋ “时” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “分” ＋ 文本_取右边 (局_数组 [4], “:”) ＋ “秒”)<br />                     .如果真结束<br />                     .如果真 (返回类型 ＝ 4)<br />                         返回 (文本_取左边 (局_数组 [4], “:”) ＋ “时” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “分”)<br />                     .如果真结束<br />                     .如果真 (返回类型 ＝ 5)<br />                         返回 (文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “分” ＋ 文本_取右边 (局_数组 [4], “:”) ＋ “秒”)<br />                     .如果真结束<br />                     .如果真 (返回类型 ＝ 6)<br />                         返回 (局_数组 [2] ＋ “月” ＋ 局_数组 [3] ＋ “日” ＋ 文本_取左边 (局_数组 [4], “:”) ＋ “时” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “分”)<br />                     .如果真结束<br /> <br />                 .如果真结束<br />                 .如果真 (输出格式 ＝ 1)<br />                     .如果真 (返回类型 ＝ 0)<br />                         返回 (局_数组 [6] ＋ “-” ＋ 局_数组 [2] ＋ “-” ＋ 局_数组 [3] ＋ “ ” ＋ 文本_取左边 (局_数组 [4], “:”) ＋ “:” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “:” ＋ 文本_取右边 (局_数组 [4], “:”))<br />                     .如果真结束<br />                     .如果真 (返回类型 ＝ 1)<br />                         返回 (局_数组 [6] ＋ “-” ＋ 局_数组 [2] ＋ “-” ＋ 局_数组 [3])<br />                     .如果真结束<br />                     .如果真 (返回类型 ＝ 2)<br />                         返回 (局_数组 [2] ＋ “-” ＋ 局_数组 [3])<br />                     .如果真结束<br />                     .如果真 (返回类型 ＝ 3)<br />                         返回 (文本_取左边 (局_数组 [4], “:”) ＋ “:” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “:” ＋ 文本_取右边 (局_数组 [4], “:”))<br />                     .如果真结束<br />                     .如果真 (返回类型 ＝ 4)<br />                         返回 (文本_取左边 (局_数组 [4], “:”) ＋ “:” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”))<br />                     .如果真结束<br />                     .如果真 (返回类型 ＝ 5)<br />                         返回 (文本_取出中间文本 (局_数组 [4], “:”, “:”) ＋ “:” ＋ 文本_取右边 (局_数组 [4], “:”))<br />                     .如果真结束<br />                     .如果真 (返回类型 ＝ 6)<br />                         返回 (局_数组 [2] ＋ “-” ＋ 局_数组 [3] ＋ “ ” ＋ 文本_取左边 (局_数组 [4], “:”) ＋ “:” ＋ 文本_取出中间文本 (局_数组 [4], “:”, “:”))<br />                     .如果真结束<br /> <br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .如果结束<br /> 返回 (“”)