时间_到时间戳 取回2000年及之前的时间出错~

静等花落

时间_到时间戳 取回2000年及之前的时间出错~


2000/04/10/00:00:00正确的时间戳是 955296000
但是程序返回了 9552960000  最后多了一位0
调试发现是程序逻辑错误，

源代码

  

子程序名	返回值类型	公开	备 注
时间_到时间戳	文本型		把指定日期时间转换为10位或13位时间戳,默认生成13位时间戳。13位：1325252169718，10位：1325252169
参数名	类 型	参考	可空	数组	备 注
参_时间	日期时间型				可为空，默认为现行时间
参_十位时间戳	逻辑型				本参数为真时，将生成10位时间戳返回

变量名	类 型	静态	数组	备 注
局_时间	精易_时间
返回值	文本型
毫秒数	文本型
时间a	文本型

参_时间 ＝ 选择 (是否为空 (参_时间), 取现行时间 (), 参_时间)
VariantTimeToSystemTime (参_时间, 局_时间)
毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (局_时间.毫)), “0”) ＋ 到文本 (局_时间.毫)
时间a ＝ 到文本 (取时间间隔 (参_时间, 到时间 (“1970-01-01 08:00:00”), #秒 ))
返回 (选择 (参_十位时间戳, 取文本左边 (时间a ＋ 毫秒数, 10), 时间a ＋ 毫秒数))

.版本 2<br /> <br /> .子程序 时间_到时间戳, 文本型, 公开, 把指定日期时间转换为10位或13位时间戳,默认生成13位时间戳。13位：1325252169718，10位：1325252169<br /> .参数 参_时间, 日期时间型, 可空, 可为空，默认为现行时间<br /> .参数 参_十位时间戳, 逻辑型, 可空, 本参数为真时，将生成10位时间戳返回<br /> .局部变量 局_时间, 精易_时间<br /> .局部变量 返回值, 文本型<br /> .局部变量 毫秒数, 文本型<br /> .局部变量 时间a, 文本型<br /> <br /> 参_时间 ＝ 选择 (是否为空 (参_时间), 取现行时间 (), 参_时间)<br /> VariantTimeToSystemTime (参_时间, 局_时间)<br /> 毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (局_时间.毫)), “0”) ＋ 到文本 (局_时间.毫)<br /> 时间a ＝ 到文本 (取时间间隔 (参_时间, 到时间 (“1970-01-01 08:00:00”), #秒))<br /> 返回 (选择 (参_十位时间戳, 取文本左边 (时间a ＋ 毫秒数, 10), 时间a ＋ 毫秒数))

不足10位的时间戳未被考虑
应该改成

  

子程序名	返回值类型	公开	备 注
时间_到时间戳	文本型		把指定日期时间转换为10位或13位时间戳,默认生成13位时间戳。13位：1325252169718，10位：1325252169
参数名	类 型	参考	可空	数组	备 注
参_时间	日期时间型				可为空，默认为现行时间
参_十位时间戳	逻辑型				本参数为真时，将生成10位时间戳返回

变量名	类 型	静态	数组	备 注
局_时间	精易_时间
返回值	文本型
毫秒数	文本型
时间a	文本型

参_时间 ＝ 选择 (是否为空 (参_时间), 取现行时间 (), 参_时间)
VariantTimeToSystemTime (参_时间, 局_时间)
毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (局_时间.毫)), “0”) ＋ 到文本 (局_时间.毫)
时间a ＝ 到文本 (取时间间隔 (参_时间, 到时间 (“1970-01-01 08:00:00”), #秒 ))
返回 (选择 (参_十位时间戳, 时间a, 时间a ＋ 毫秒数))

.版本 2<br /> <br /> .子程序 时间_到时间戳, 文本型, 公开, 把指定日期时间转换为10位或13位时间戳,默认生成13位时间戳。13位：1325252169718，10位：1325252169<br /> .参数 参_时间, 日期时间型, 可空, 可为空，默认为现行时间<br /> .参数 参_十位时间戳, 逻辑型, 可空, 本参数为真时，将生成10位时间戳返回<br /> .局部变量 局_时间, 精易_时间<br /> .局部变量 返回值, 文本型<br /> .局部变量 毫秒数, 文本型<br /> .局部变量 时间a, 文本型<br /> <br /> 参_时间 ＝ 选择 (是否为空 (参_时间), 取现行时间 (), 参_时间)<br /> VariantTimeToSystemTime (参_时间, 局_时间)<br /> 毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (局_时间.毫)), “0”) ＋ 到文本 (局_时间.毫)<br /> 时间a ＝ 到文本 (取时间间隔 (参_时间, 到时间 (“1970-01-01 08:00:00”), #秒))<br /> 返回 (选择 (参_十位时间戳, 时间a, 时间a ＋ 毫秒数))

御风软件

本命令存在的目的就是取十位，或者13位的。并非你说的逻辑错误。

boxxie

如果是真地，那介个BUG很严重了

静等花落

发现整个时间戳的逻辑好想都有错误，

时间_取现行时间戳 模块下的居然有不足十位是在末尾加0，