关于时间戳动物问题

迷途小徉

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框1.内容 ＝ 时间_到时间戳 (到时间 (“2050年12月31日0时0分0秒”))

子程序名	返回值类型	公开	备 注
_按钮2_被单击

编辑框2.内容 ＝ 时间_时间戳转文本 (编辑框1.内容)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框1.内容 ＝ 时间_到时间戳 (到时间 (“2050年12月31日0时0分0秒”))<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 编辑框2.内容 ＝ 时间_时间戳转文本 (编辑框1.内容)

这里时间戳好像超出计算显示了，变成负数了，怎么解决？？因为负数到时返回时间不对

black0216

你可以去了解一下时间戳到了2038年就溢出问题

遗失的眼泪

10位时间戳最大代表时间是2038年，你需要转成13位时间戳

小苏0826

遗失的眼泪 发表于 2025-5-4 22:02
10位时间戳最大代表时间是2038年，你需要转成13位时间戳

13位不是多了个毫秒吗

cunanhai

AI是个好东西啊

  

子程序名	返回值类型	公开	备 注
计算时间戳	长整数型
参数名	类 型	参考	可空	数组	备 注
目标时间	日期时间型

变量名	类 型	静态	数组	备 注
年	整数型
月	整数型
日	整数型
时	整数型
分	整数型
秒	整数型
总天数	长整数型
闰年数	整数型
年内天数	整数型
月份天数	整数型		12
i	整数型
当前年	整数型

' 分解目标时间到年、月、日、时、分、秒
年 ＝ 取年份 (目标时间)
月 ＝ 取月份 (目标时间)
日 ＝ 取日 (目标时间)
时 ＝ 取小时 (目标时间)
分 ＝ 取分钟 (目标时间)
秒 ＝ 取秒 (目标时间)
' --- 计算总天数（从1970-01-01到目标时间的总天数）---
' 1. 计算1970到(年-1)年的闰年数
闰年数 ＝ 0
计次循环首 (年 － 1970, i)
当前年 ＝ 1970 ＋ i － 1
如果真 (当前年 ％ 4 ＝ 0 且 当前年 ％ 100 ≠ 0 或 当前年 ％ 400 ＝ 0)
闰年数 ＝ 闰年数 ＋ 1

计次循环尾 ()
' 2. 总天数 = 平年天数 + 闰年天数
总天数 ＝ (年 － 1970) × 365 ＋ 闰年数
' --- 计算目标年份内的天数（需减1天）---
如果真 (年 ％ 4 ＝ 0 且 年 ％ 100 ≠ 0 或 年 ％ 400 ＝ 0)
月份天数 [2] ＝ 29
月份天数 [2] ＝ 28

月份天数 [1] ＝ 31
月份天数 [3] ＝ 31
月份天数 [4] ＝ 30
月份天数 [5] ＝ 31
月份天数 [6] ＝ 30
月份天数 [7] ＝ 31
月份天数 [8] ＝ 31
月份天数 [9] ＝ 30
月份天数 [10] ＝ 31
月份天数 [11] ＝ 30
月份天数 [12] ＝ 31
年内天数 ＝ 0
计次循环首 (月 － 1, i)
年内天数 ＝ 年内天数 ＋ 月份天数 [i]
计次循环尾 ()
年内天数 ＝ 年内天数 ＋ 日
年内天数 ＝ 年内天数 － 1  ' 关键修正：减去1天
' 总天数 = 1970至(年-1)年的天数 + 目标年份内的天数
总天数 ＝ 总天数 ＋ 年内天数
' --- 计算最终时间戳 ---
返回 (总天数 × 86400 ＋ 时 × 3600 ＋ 分 × 60 ＋ 秒)

.版本 2<br /> <br /> .子程序 计算时间戳, 长整数型<br /> .参数 目标时间, 日期时间型<br /> .局部变量 年, 整数型<br /> .局部变量 月, 整数型<br /> .局部变量 日, 整数型<br /> .局部变量 时, 整数型<br /> .局部变量 分, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 总天数, 长整数型<br /> .局部变量 闰年数, 整数型<br /> .局部变量 年内天数, 整数型<br /> .局部变量 月份天数, 整数型, , "12"<br /> .局部变量 i, 整数型<br /> .局部变量 当前年, 整数型<br /> <br /> ' 分解目标时间到年、月、日、时、分、秒<br /> 年 ＝ 取年份 (目标时间)<br /> 月 ＝ 取月份 (目标时间)<br /> 日 ＝ 取日 (目标时间)<br /> 时 ＝ 取小时 (目标时间)<br /> 分 ＝ 取分钟 (目标时间)<br /> 秒 ＝ 取秒 (目标时间)<br /> <br /> ' --- 计算总天数（从1970-01-01到目标时间的总天数）---<br /> ' 1. 计算1970到(年-1)年的闰年数<br /> 闰年数 ＝ 0<br /> .计次循环首 (年 － 1970, i)<br />     当前年 ＝ 1970 ＋ i － 1<br />     .如果真 (当前年 ％ 4 ＝ 0 且 当前年 ％ 100 ≠ 0 或 当前年 ％ 400 ＝ 0)<br />         闰年数 ＝ 闰年数 ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 2. 总天数 = 平年天数 + 闰年天数<br /> 总天数 ＝ (年 － 1970) × 365 ＋ 闰年数<br /> <br /> ' --- 计算目标年份内的天数（需减1天）---<br /> .如果真 (年 ％ 4 ＝ 0 且 年 ％ 100 ≠ 0 或 年 ％ 400 ＝ 0)<br />     月份天数 [2] ＝ 29<br />     月份天数 [2] ＝ 28<br /> .如果真结束<br /> <br /> 月份天数 [1] ＝ 31<br /> 月份天数 [3] ＝ 31<br /> 月份天数 [4] ＝ 30<br /> 月份天数 [5] ＝ 31<br /> 月份天数 [6] ＝ 30<br /> 月份天数 [7] ＝ 31<br /> 月份天数 [8] ＝ 31<br /> 月份天数 [9] ＝ 30<br /> 月份天数 [10] ＝ 31<br /> 月份天数 [11] ＝ 30<br /> 月份天数 [12] ＝ 31<br /> <br /> 年内天数 ＝ 0<br /> .计次循环首 (月 － 1, i)<br />     年内天数 ＝ 年内天数 ＋ 月份天数 <i><br /> .计次循环尾 ()<br /> 年内天数 ＝ 年内天数 ＋ 日<br /> 年内天数 ＝ 年内天数 － 1  ' 关键修正：减去1天<br /> <br /> ' 总天数 = 1970至(年-1)年的天数 + 目标年份内的天数<br /> 总天数 ＝ 总天数 ＋ 年内天数<br /> <br /> ' --- 计算最终时间戳 ---<br /> 返回 (总天数 × 86400 ＋ 时 × 3600 ＋ 分 × 60 ＋ 秒)

b0y

https://125.confly.eu.org/forum.php?mod ... 26&pid=29531345