易语言时间对比例程

.版本 2 .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .子程序 _按钮1_被单击 编辑框1.内容 ＝ 到文本 (增减时间 (到时间 (编辑框1.内容), 到整数 (组合框1.内容), 到整数 (编辑框2.内容))) .子程序 _时钟1_周期事件 编辑框5.内容 ＝ 到文本 (“本地时间为：” ＋ 到文本 (取现行时间 ())) .子程序 _按钮3_被单击 .局部变量 到期时间, 日期时间型 .局部变量 当前时间, 日期时间型 .局部变量 时间对比, 整数型 当前时间 ＝ 到时间 (到文本 (取现行时间 ())) 到期时间 ＝ 到时间 (编辑框1.内容) 时间对比 ＝ 取时间间隔 (到期时间, 当前时间, #秒) .如果 (时间对比 ＞ 0) 信息框 (“没有到期，还剩余：” ＋ 到文本 (时间对比) ＋ “秒”, 0, ) .否则 信息框 (“已过期.已过期：” ＋ 到文本 (时间对比) ＋ “秒”, 0, ) .如果结束