请教这种18位的时间戳是怎么生成的

winxsj

首先先排除精易模块的    时间_十八位时间戳转北京   这种 十八位 133284601803860086 ，好像是基于纳秒的时间戳
求把时间转为 这种18位的长整数

大司命

  

子程序名	返回值类型	公开	备 注
VariantTimeToLdap	文本型		2013-12-03 08:40:57 => 130305048570000000
参数名	类 型	参考	可空	数组	备 注
vTime	日期时间型

变量名	类 型	静态	数组	备 注
li	长整数型

li ＝ 到长整数 (VariantTimeToQuadPart (vTime) － VariantTimeToQuadPart ([1601年1月1日8时]))
返回 (到文本 (li))

.版本 2<br /> .子程序 VariantTimeToLdap, 文本型, 公开, 2013-12-03 08:40:57 => 130305048570000000<br /> .参数 vTime, 日期时间型<br /> .局部变量 li, 长整数型<br /> li ＝ 到长整数 (VariantTimeToQuadPart (vTime) － VariantTimeToQuadPart ([1601年1月1日8时]))<br /> 返回 (到文本 (li))

这是后面版本才会有的~

qcby

调试输出 (时间_取随机时间戳 ()) 这个吧

winxsj

大司命 发表于 2023-5-13 23:21
[e=5].版本 2
.子程序 VariantTimeToLdap, 文本型, 公开, 2013-12-03 08:40:57 => 130305048570000000
.参 ...

后面咋全是00000

大司命

  

子程序名	返回值类型	公开	备 注
LdapToVariantTime	文本型		130305048577611542 => 2013-12-03 08:40:57
参数名	类 型	参考	可空	数组	备 注
Ldap时间戳	长整数型

变量名	类 型	静态	数组	备 注
li	长整数型
vTime	日期时间型

li ＝ 到长整数 (VariantTimeToQuadPart ([1601年1月1日8时]) ＋ Ldap时间戳)
vTime ＝ QuadPartToVariantTime (li)
返回 (时间_到文本 (vTime, 1, , 2))

.版本 2<br /> .子程序 LdapToVariantTime, 文本型, 公开, 130305048577611542 => 2013-12-03 08:40:57<br /> .参数 Ldap时间戳, 长整数型<br /> .局部变量 li, 长整数型<br /> .局部变量 vTime, 日期时间型<br /> li ＝ 到长整数 (VariantTimeToQuadPart ([1601年1月1日8时]) ＋ Ldap时间戳)<br /> vTime ＝ QuadPartToVariantTime (li)<br /> 返回 (时间_到文本 (vTime, 1, , 2))

配对的也一起给你吧！反正都是迟早的事~

  

输出调试文本 (LdapToVariantTime (到长整数 (“133284601803860086 ”)))

输出调试文本 (LdapToVariantTime (到长整数 (“133284601803860086 ”)))