时间对比

遗忘1

该怎么弄是最准确的     就是设定到期时间    然后取到的网络时间 大于 到期时间   就提示到期   该是什么格式   比如2011年12月2日   这样的  用到数值 到整数 来对比会准确吗

hdstu

[e].版本 2[/e]

时间很准确的，如果感觉我的代码可以 记得加分哟。。


.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 S, 整数型
.局部变量 注册时间, 文本型
注册时间 ＝ 取中间文本 (到文本 (HTTP读文件 (“http://hi.baidu.com/hbhdls/blog/ ... c974376159f35c.html”)), “时间到”, “止”)
输出调试文本 (注册时间)
S ＝ 取时间间隔 (到时间 (注册时间), 取现行时间 (), 5)
.判断开始 (S ＞ 0)
    信息框 (“到期时间为：” ＋ 到文本 (到时间 (注册时间)), 0, )
.默认
    信息框 (“产品授权到期！”, 0, )
    载入 (窗口1, _启动窗口, 真)
.判断结束

.子程序 取中间文本, 文本型, 公开
.参数 要取的文本, 文本型
.参数 首文本, 文本型
.参数 尾文本, 文本型
.局部变量 首位置, 整数型
.局部变量 末位置, 整数型
首位置 ＝ 寻找文本 (要取的文本, 首文本, , 假)
末位置 ＝ 寻找文本 (要取的文本, 尾文本, 首位置, 假)
返回 (取文本中间 (要取的文本, 首位置 ＋ 取文本长度 (首文本), 末位置 － 取文本长度 (尾文本) － 首位置 － 取文本长度 (首文本) ＋ 2))

孤独爱恋

易语言不是有一个时间比较么，直接比较时间的

孤独爱恋

用取时间间隔()

    调用格式： 〈双精度小数型〉 取时间间隔 （日期时间型 时间1，日期时间型 时间2，整数型 取间隔部分） - 系统核心支持库->时间操作
    英文名称：TimeDiff
    返回一个数值，表示“时间1”减去“时间2”之后的间隔数目。注意：每个星期以星期天为第一天。本命令为初级命令。
    参数<1>的名称为“时间1”，类型为“日期时间型（date）”。
    参数<2>的名称为“时间2”，类型为“日期时间型（date）”。
    参数<3>的名称为“取间隔部分”，类型为“整数型（int）”。参数值指定取时间间隔的单位，可以为以下常量： 1、#年份； 2、#季度； 3、#月份； 4、#周； 5、#日； 6、#小时； 7、#分钟； 8、#秒。

    操作系统需求： Windows、Linux

浪客剑心

不错，学到了。