易语言时间对比例程

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击

编辑框1.内容 ＝ 到文本 (增减时间 (到时间 (编辑框1.内容), 到整数 (组合框1.内容), 到整数 (编辑框2.内容)))

.子程序 _时钟1_周期事件

编辑框5.内容 ＝ 到文本 (“本地时间为：” ＋ 到文本 (取现行时间 ()))

.子程序 _按钮3_被单击
.局部变量 到期时间, 日期时间型
.局部变量 当前时间, 日期时间型
.局部变量 时间对比, 整数型

当前时间 ＝ 到时间 (到文本 (取现行时间 ()))
到期时间 ＝ 到时间 (编辑框1.内容)
时间对比 ＝ 取时间间隔 (到期时间, 当前时间, #秒)
.如果 (时间对比 ＞ 0)
    信息框 (“没有到期，还剩余：” ＋ 到文本 (时间对比) ＋ “秒”, 0, )
.否则
    信息框 (“已过期.已过期：” ＋ 到文本 (时间对比) ＋ “秒”, 0, )
.如果结束

@搁浅的爱