取时间间隔() 返回结果整数溢出为负数咋办？

千狐

调试输出 (取时间间隔 (取现行时间 (), 时间2, #秒))当变量时间2未赋值 或 时间间隔超过100年也就是时间2低于1900年取到的#秒会变成负数： -330872100

尝试  调试输出 (到长整数（取时间间隔 (取现行时间 (), 时间2, #秒))  ‘无效

问：如何 让 取时间间隔（）返回  长整数  与 大数文本型  ？

亮蓝色的风

自定义一个取时间间隔的函数吧，用大数计算，想返回啥自己改就行

阿杰大大

建议:把时间转换成时间戳,然后用时间戳进行加减就方便多了.

千狐

阿杰大大 发表于 2025-8-11 18:48
建议:把时间转换成时间戳,然后用时间戳进行加减就方便多了.

转成时间戳后 那咋转回 #天 #秒  毕竟我是要做判断的 如果真（取时间间隔（时间1，时间2，#秒）> 10）

萧楚楠

已经溢出了，纵然到整数也没用哇兄弟（最大值2147483647），给你个源码你参考试试

  

子程序名	返回值类型	公开	备 注
时间戳到时间	文本型		1731612467===>2024年11月15日3时27分47秒
参数名	类 型	参考	可空	数组	备 注
时间戳	长整数型				十位十三位都行
是否精确到毫秒	逻辑型				真=十三位（毫秒） 假=十位（秒）  默认为假

变量名	类 型	静态	数组	备 注
文本	文本型
Time	日期时间型
差	长整数型
ii	双精度小数型
i	整数型
次数	整数型
t	长整数型
毫秒	文本型

文本 ＝ 取文本左边 (到文本 (时间戳), 10)
t ＝ 到长整数 (文本)
Time ＝ [1970年1月1日8时]
ii ＝ t ÷ 2147483647
判断 (ii ＞ 1)
次数 ＝ _向上取整 (ii)
差 ＝ t ％ 2147483647
计次循环首 (次数, i)
如果真 (i ＝ 次数)
Time ＝ 增减时间 (Time, #秒, 差)
跳出循环 ()
Time ＝ 增减时间 (Time, #秒, 2147483647)
计次循环尾 ()
Time ＝ 增减时间 (Time, #秒, t)
判断 (是否精确到毫秒)
判断 (时间戳 ＞ 999999999999)  ' 是否十三位
毫秒 ＝ 取文本右边 (到文本 (时间戳), 3)
返回 (到文本 (Time) ＋ 毫秒 ＋ “毫秒”)
返回 (到文本 (Time) ＋ “000” ＋ “毫秒”)
返回 (到文本 (Time))

.版本 2<br /> <br /> .子程序 时间戳到时间, 文本型, 公开, 1731612467===>2024年11月15日3时27分47秒<br /> .参数 时间戳, 长整数型, , 十位十三位都行<br /> .参数 是否精确到毫秒, 逻辑型, 可空, 真=十三位（毫秒） 假=十位（秒）  默认为假<br /> .局部变量 文本, 文本型<br /> .局部变量 Time, 日期时间型<br /> .局部变量 差, 长整数型<br /> .局部变量 ii, 双精度小数型<br /> .局部变量 i, 整数型<br /> .局部变量 次数, 整数型<br /> .局部变量 t, 长整数型<br /> .局部变量 毫秒, 文本型<br /> <br /> 文本 ＝ 取文本左边 (到文本 (时间戳), 10)<br /> t ＝ 到长整数 (文本)<br /> Time ＝ [1970年1月1日8时]<br /> ii ＝ t ÷ 2147483647<br /> .判断开始 (ii ＞ 1)<br />     次数 ＝ _向上取整 (ii)<br />     差 ＝ t ％ 2147483647<br />     .计次循环首 (次数, i)<br />         .如果真 (i ＝ 次数)<br />             Time ＝ 增减时间 (Time, #秒, 差)<br />             跳出循环 ()<br />         .如果真结束<br />         Time ＝ 增减时间 (Time, #秒, 2147483647)<br />     .计次循环尾 ()<br /> .默认<br />     Time ＝ 增减时间 (Time, #秒, t)<br /> .判断结束<br /> .判断开始 (是否精确到毫秒)<br />     .判断开始 (时间戳 ＞ 999999999999)  ' 是否十三位<br />         毫秒 ＝ 取文本右边 (到文本 (时间戳), 3)<br />         返回 (到文本 (Time) ＋ 毫秒 ＋ “毫秒”)<br />     .默认<br />         返回 (到文本 (Time) ＋ “000” ＋ “毫秒”)<br />     .判断结束<br /> <br /> .默认<br />     返回 (到文本 (Time))<br /> .判断结束

千狐

千狐 发表于 2025-8-11 18:51
转成时间戳后 那咋转回 #天 #秒  毕竟我是要做判断的 如果真（取时间间隔（时间1，时间2，#秒）> 10） ...

转成时间戳后 那咋转回 #天 #秒  毕竟我是要做判断的 如果真（取时间间隔（时间1，时间2，#分钟）> 10）

b0y

转换为10位时间戳  相减结果是秒   根据秒数转换天

亮蓝色的风

先判断下年份行不行？

  

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

调试输出 (时间判断 (取现行时间 (), 时间2))

子程序名	返回值类型	公开	备 注
时间判断	整数型
参数名	类 型	参考	可空	数组	备 注
时间1	日期时间型
时间2	日期时间型

如果 (取时间间隔 (时间1, 时间2, #年份 ) ≥ 100)
返回 (-1)
返回 (取时间间隔 (时间1, 时间2, #秒 ))

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 时间2, 日期时间型<br /> <br /> <br /> 调试输出 (时间判断 (取现行时间 (), 时间2))<br /> <br /> <br /> .子程序 时间判断, 整数型<br /> .参数 时间1, 日期时间型, 可空<br /> .参数 时间2, 日期时间型, 可空<br /> <br /> .如果 (取时间间隔 (时间1, 时间2, #年份) ≥ 100)<br />     返回 (-1)<br /> .否则<br />     返回 (取时间间隔 (时间1, 时间2, #秒))

阿杰大大

千狐 发表于 2025-8-11 18:51
转成时间戳后 那咋转回 #天 #秒  毕竟我是要做判断的 如果真（取时间间隔（时间1，时间2，#秒）> 10） ...

转换为时间戳后,比如你先判断到期时间是多少天,假设你是10位时间戳(秒),然后一天是86400秒,一除,你就知道多少天了(整数部分),如果你想获得几天几小时,几分钟这样的话,那就根据上一计算单位求余后得到剩余秒数,如3000和86400(天秒数)求余,得到剩余结果在和小时进行计算,计算完再根据小时的秒数进行求余,然后再继续往下得.

cunanhai

  

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

变量名	类 型	静态	数组	备 注
时间间隔	长整数型

时间间隔 ＝ 到长整数 (时间_取现行时间戳 (真)) － 到长整数 (时间_到时间戳 (到时间 (“1825年8月11日19时1分35秒”), 真, ))
调试输出 (时间间隔)
返回 (0)  ' 可以根据您的需要返回任意数值

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 时间间隔, 长整数型<br /> <br /> <br /> 时间间隔 ＝ 到长整数 (时间_取现行时间戳 (真)) － 到长整数 (时间_到时间戳 (到时间 (“1825年8月11日19时1分35秒”), 真, ))<br /> 调试输出 (时间间隔)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值