易语言 我要做一个一天只能用两次的软件

用了两个编辑框 编辑框1 是查看当前时间 编辑框2在窗口关闭时保存当前时间如：2015年4月25日 12:02:37 他会保存成txt 当应用再次打开 编辑框2 提取保存的时间015年4月25日 12:02:37 编辑框1则继续显示当前时间如：2015年4月25日 12:10:48 我先做的软件是 如果 两个编辑框 的 日期 相差 ≥1天 则 此程序能用 如果小于一天则提示无法使用

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 文本, 文本型
.局部变量 时间数值, 长整数型
.局部变量 年, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型

文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\配置.txt”))
文本 ＝ 解密 (文本)
年 ＝ 到文本 (取年份 (取现行时间 ()))
月 ＝ 到文本 (取月份 (取现行时间 ()))
日 ＝ 到文本 (取日 (取现行时间 ()))
.如果真 (取文本长度 (月) ＝ 1)
月 ＝ “0” ＋ 月
.如果真结束
.如果真 (取文本长度 (日) ＝ 1)
日 ＝ “0” ＋ 日
.如果真结束
时间数值 ＝ 到长整数 (年 ＋ 月 ＋ 日) × 1000000
.判断开始 (时间数值 ＞ 到长整数 (文本))
文本 ＝ 到文本 (时间数值)
文本 ＝ 加密 (文本)
写到文件 (取运行目录 () ＋ “\配置.txt”, 到字节集 (文本))
.判断 (时间数值 ＝ 到长整数 (文本))
文本 ＝ 到文本 (到长整数 (时间数值 ＋ 235959))
文本 ＝ 加密 (文本)
写到文件 (取运行目录 () ＋ “\配置.txt”, 到字节集 (文本))
.默认
结束 ()
.判断结束
时钟1.时钟周期 ＝ 1000

.子程序 加密, 文本型
.参数 初始文本, 文本型
.局部变量 文本容器, 文本型
.局部变量 文本内容, 文本型

文本容器 ＝ 到全角 (初始文本)
文本内容 ＝ 取文本左边 (文本容器, 1)
返回 (取文本右边 (文本容器, 取文本长度 (文本容器) － 1) ＋ 文本内容)

.子程序 解密, 文本型
.参数 初始文本, 文本型
.局部变量 文本容器, 文本型
.局部变量 文本内容, 文本型

文本内容 ＝ 取文本右边 (初始文本, 1)
文本容器 ＝ 文本内容 ＋ 取文本左边 (初始文本, 取文本长度 (初始文本) － 1)
返回 (到半角 (文本容器))

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

编辑框1.内容 ＝ 时间到文本 (取现行时间 (), )

乌龙寺编程技术站 vc2008.com

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息