设置时间的问题

fml224

如图中所示，每当我点击“设定”按钮后超级列表框内都会计算出设定的时间－现在时间（最好设置成每一秒都会变化的），当时间到时间就会执行，比如：关机。  只要是有帮助的都加分，如果采纳会另送50精币做为答谢！


时间.rar (6.58 KB, 下载次数: 12)

2013-9-7 10:15 上传

点击文件名下载附件

sunchun10

代码只是在你的基础上加上功能代码。简单测试能用。
sunchun10.rar (80.61 KB, 下载次数: 10)

2013-9-7 19:23 上传

点击文件名下载附件

守護俄們D小幸福

这个以前写过，我翻翻看

守護俄們D小幸福

不整了，好久没算术了，整不明白了，先给你个参考的吧，逆向就能得出你想要的效果
，我在算算，现在写的一个东西也要用到这个
[e]
.版本 2

.子程序 时间_增加, 文本型, , 时间格式   XX：XX：XX
.参数 待加的时间, 文本型, , 格式： XX：XX：XX
.参数 加时间_单位分钟, 整数型
.局部变量 要加的秒, 整数型
.局部变量 要加的时分秒, 文本型
.局部变量 加小时, 文本型
.局部变量 加分钟, 文本型
.局部变量 加秒, 文本型
.局部变量 局_时, 整数型
.局部变量 局_分, 整数型
.局部变量 局_秒, 整数型
.局部变量 最终_时, 文本型
.局部变量 最终_分, 文本型
.局部变量 最终_秒, 文本型
.局部变量 最终_时分秒, 文本型
.局部变量 a, 整数型

要加的秒 ＝ 加时间_单位分钟 × 60
要加的时分秒 ＝ 时间_秒转换时分秒 (要加的秒)
' —————————————————————
小时 ＝ 取文本左边 (待加的时间, 2)
加小时 ＝ 取文本左边 (要加的时分秒, 2)
局_时 ＝ 到整数 (小时) ＋ 到整数 (加小时)
' ——————————————————————————————
分钟 ＝ 文本_取出中间文本 (待加的时间, “：”, “：”, 2, 真)
加分钟 ＝ 文本_取出中间文本 (要加的时分秒, “：”, “：”, 2, 真)
局_分 ＝ 到整数 (分钟) ＋ 到整数 (加分钟)
' ——————————————————————————————
秒 ＝ 取文本右边 (待加的时间, 2)
加秒 ＝ 取文本右边 (要加的时分秒, 2)
局_秒 ＝ 到整数 (秒) ＋ 到整数 (加秒)
' ——————————————————————————————
.计次循环首 (取整 (局_秒 ÷ 60), a)
    .如果真 (局_秒 ≥ 60)
        局_秒 ＝ 局_秒 － 60
        局_分 ＝ 局_分 ＋ 1
    .如果真结束

.计次循环尾 ()
.如果真 (局_分 ≥ 60)
    局_分 ＝ 局_分 － 60
    局_时 ＝ 局_时 ＋ 1
.如果真结束

.如果真 (局_时 ≥ 24)
    局_时 ＝ 局_时 － 24
.如果真结束
' ——————————————————————————————
.如果 (局_时 ＜ 10)
    最终_时 ＝ “0” ＋ 到文本 (局_时)
.否则
    最终_时 ＝ 到文本 (局_时)
.如果结束
.如果 (局_分 ＜ 10)
    最终_分 ＝ “0” ＋ 到文本 (局_分)
.否则
    最终_分 ＝ 到文本 (局_分)
.如果结束
.如果 (局_秒 ＜ 10)
    最终_秒 ＝ “0” ＋ 到文本 (局_秒)
.否则
    最终_秒 ＝ 到文本 (局_秒)
.如果结束
' ——————————————————————————————
最终_时分秒 ＝ 最终_时 ＋ “：” ＋ 最终_分 ＋ “：” ＋ 最终_秒
' ——————————————————————————————
返回 (最终_时分秒)
[/e]

守護俄們D小幸福

搞定了计算当天的，应该够你这个用了
继续计算隔天的时间
[e]

.版本 2
.支持库 spec

.子程序 时间_取到期时间, 整数型, , 返回时间单位:秒:时间格式 1973/11/15 12:30:25:注:到期时间必须大于当前时间,否则将运算失败
.参数 当前时间, 文本型
.参数 到期时间, 文本型
.局部变量 局_返回秒, 整数型
.局部变量 局_当前时间, 文本型, , "0"
.局部变量 局_到期时间, 文本型, , "0"
.局部变量 当前时分秒, 文本型, , "0"
.局部变量 当前时, 整数型
.局部变量 当前分, 整数型
.局部变量 当前秒, 整数型
.局部变量 当前总秒, 整数型
.局部变量 到期时分秒, 文本型, , "0"
.局部变量 到期时, 整数型
.局部变量 到期分, 整数型
.局部变量 到期秒, 整数型
.局部变量 到期总秒, 整数型

' 1973-11-15-12:30:25
局_当前时间 ＝ 分割文本 (当前时间, “ ”, )
局_到期时间 ＝ 分割文本 (到期时间, “ ”, )
.判断开始 (局_当前时间 [1] ＝ 局_到期时间 [1])
    当前时分秒 ＝ 分割文本 (局_当前时间 [2], “:”, )
    当前时 ＝ 到整数 (当前时分秒 [1])
    当前分 ＝ 到整数 (当前时分秒 [2])
    当前秒 ＝ 到整数 (当前时分秒 [3])
    当前总秒 ＝ 当前时 × 60 × 60 ＋ 当前分 × 60 ＋ 当前秒
    调试输出 (当前总秒)
    到期时分秒 ＝ 分割文本 (局_到期时间 [2], “:”, )
    到期时 ＝ 到整数 (到期时分秒 [1])
    到期分 ＝ 到整数 (到期时分秒 [2])
    到期秒 ＝ 到整数 (到期时分秒 [3])
    到期总秒 ＝ 到期时 × 60 × 60 ＋ 到期分 × 60 ＋ 到期秒
    调试输出 (到期总秒)
    局_返回秒 ＝ 到期总秒 － 当前总秒

.默认

.判断结束



返回 (局_返回秒)
[/e]

守護俄們D小幸福

改好了，lz采纳吧

补充内容 (2013-9-7 12:11):
时间差，剩余时间，剩余时间为0就执行，应该是这样的 吧

守護俄們D小幸福

我許誰一世諾言 发表于 2013-9-7 12:08
改好了，lz采纳吧

补充内容 (2013-9-7 12:11):

还有什么问题

紅顏じ亦沉淪ジ

做事了做事了。回个帖完事 了

紅顏じ亦沉淪ジ

想法不错。超下来过几天写一个去

紅顏じ亦沉淪ジ

除了rmb奖励以外都不收