关于易语言时间对比的一个BUG（附测试源码）

yqdyqzdstrm

在开发过程中，可能会遇到分钟数对比的要求，比如日志记录中时间是 2022/10/10 12:30  ，要检查结果是不是 2022/10/10 12:30 写入的，实际过程中返回假的机率太高了。这种现象应该与某一些高级编程中双精度小数型的0与0对比，结果返回假原理可能一样。可以使用“到时间戳”的方式解决，希望能给到大家一些帮助。

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
局_时间	日期时间型
时间1	日期时间型
时间2	日期时间型

计次循环首 (30, )
局_时间 ＝ 取现行时间 ()
时间1 ＝ 增减时间 (局_时间, #秒, 取秒 (局_时间) × -1)  ' 精确到分钟
' 2022-09-11 23:34
' 调试输出 (取年份 (局_时间), 取月份 (局_时间), 取日 (局_时间), 取小时 (局_时间), 取分钟 (局_时间))
' 调试输出 (到文本 (取年份 (局_时间)) ＋ “/” ＋ 到文本 (取月份 (局_时间)) ＋ “/” ＋ 到文本 (取日 (局_时间)) ＋ “/” ＋ 到文本 (取小时 (局_时间)) ＋ “/” ＋ 到文本 (取分钟 (局_时间)))
时间2 ＝ 到时间 (到文本 (取年份 (局_时间)) ＋ “/” ＋ 到文本 (取月份 (局_时间)) ＋ “/” ＋ 到文本 (取日 (局_时间)) ＋ “/” ＋ 到文本 (取小时 (局_时间)) ＋ “/” ＋ 到文本 (取分钟 (局_时间)))
调试输出 (时间1, 时间2, 时间1 ＝ 时间2, 时间1 ＞ 时间2, 时间1 ＜ 时间2, 取时间间隔 (时间1, 时间2, #分钟 ), 取时间间隔 (时间1, 时间2, #秒 ))
判断 (时间1 ＝ 时间2)  ' 、、、、、、、、、、、、、、、、这个有BUG
' 调试输出 (“精确分钟数对比一样”)
调试输出 (“精确分钟数对比不一样，严重BUG”)

延时 (500)
' 调试输出 (时间1, 时间2, 时间1 ＝ 时间2, 时间1 ＞ 时间2, 时间1 ＜ 时间2, 时间_到时间戳 (时间1, , ), 时间_到时间戳 (时间2, , ), 取时间间隔 (时间1, 时间2, #分钟), 取时间间隔 (时间1, 时间2, #秒))
. ' 如果真 (时间_到时间戳 (时间1, , ) ＝ 时间_到时间戳 (时间2, , ))  ' 这个对比是成功的
' 调试输出 (“到时间戳对比是成功的”)

计次循环尾 ()
返回 (0)  ' 可以根据您的需要返回任意数值

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 局_时间, 日期时间型<br /> .局部变量 时间1, 日期时间型<br /> .局部变量 时间2, 日期时间型<br /> <br /> .计次循环首 (30, )<br />     局_时间 ＝ 取现行时间 ()<br />     时间1 ＝ 增减时间 (局_时间, #秒, 取秒 (局_时间) × -1)  ' 精确到分钟<br />     ' 2022-09-11 23:34<br />     ' 调试输出 (取年份 (局_时间), 取月份 (局_时间), 取日 (局_时间), 取小时 (局_时间), 取分钟 (局_时间))<br />     ' 调试输出 (到文本 (取年份 (局_时间)) ＋ “/” ＋ 到文本 (取月份 (局_时间)) ＋ “/” ＋ 到文本 (取日 (局_时间)) ＋ “/” ＋ 到文本 (取小时 (局_时间)) ＋ “/” ＋ 到文本 (取分钟 (局_时间)))<br />     时间2 ＝ 到时间 (到文本 (取年份 (局_时间)) ＋ “/” ＋ 到文本 (取月份 (局_时间)) ＋ “/” ＋ 到文本 (取日 (局_时间)) ＋ “/” ＋ 到文本 (取小时 (局_时间)) ＋ “/” ＋ 到文本 (取分钟 (局_时间)))<br />     调试输出 (时间1, 时间2, 时间1 ＝ 时间2, 时间1 ＞ 时间2, 时间1 ＜ 时间2, 取时间间隔 (时间1, 时间2, #分钟), 取时间间隔 (时间1, 时间2, #秒))<br />     .判断开始 (时间1 ＝ 时间2)  ' 、、、、、、、、、、、、、、、、这个有BUG<br />         ' 调试输出 (“精确分钟数对比一样”)<br />     .默认<br />         调试输出 (“精确分钟数对比不一样，严重BUG”)<br />     .判断结束<br /> <br />     延时 (500)<br /> <br /> <br /> <br /> <br /> <br />     ' 调试输出 (时间1, 时间2, 时间1 ＝ 时间2, 时间1 ＞ 时间2, 时间1 ＜ 时间2, 时间_到时间戳 (时间1, , ), 时间_到时间戳 (时间2, , ), 取时间间隔 (时间1, 时间2, #分钟), 取时间间隔 (时间1, 时间2, #秒))<br />     .' 如果真 (时间_到时间戳 (时间1, , ) ＝ 时间_到时间戳 (时间2, , ))  ' 这个对比是成功的<br />         ' 调试输出 (“到时间戳对比是成功的”)<br />     .如果真结束<br /> <br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> 返回 (0)  ' 可以根据您的需要返回任意数值

陽陽陽

我一般都是通过时间戳进行对比

boomsa

感谢lz 新技能get

Orzlee

不看不知道，一看吓一跳。谢谢楼主分享

菜鸟编号007

好人一生平安