优化 时间_取现行时间戳 代码

御风软件

首先，很高兴，精易模块，又放出的最新版本的源码，然后根据更新，去看了下自己感兴趣的部分的源码

旧版 时间_取现行时间戳

  

子程序名	返回值类型	公开	备 注
时间_取现行时间戳	文本型		生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169
参数名	类 型	参考	可空	数组	备 注
是否取十位时间戳	逻辑型				本参数为真时，将生成10位时间戳返回

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

GetLocalTime (时间b)
毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (时间b.毫)), “0”) ＋ 到文本 (时间b.毫)
时间a ＝ 到文本 (取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒 ))
返回值 ＝ 时间a ＋ 毫秒数
' 返回值 ＝ 选择 (是否取十位时间戳, 取文本左边 (时间a ＋ 毫秒数, 10), 时间a ＋ 毫秒数)
判断 (是否取十位时间戳)
返回值 ＝ 取文本左边 (返回值, 10)
判断循环首 (取文本长度 (返回值) ＜ 10)
返回值 ＝ 返回值 ＋ “0”
判断循环尾 ()
返回 (返回值)


判断循环首 (取文本长度 (返回值) ＜ 13)
返回值 ＝ 返回值 ＋ “0”
判断循环尾 ()
返回 (返回值)

.版本 2<br /> <br /> .子程序 时间_取现行时间戳, 文本型, 公开, 生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169<br /> .参数 是否取十位时间戳, 逻辑型, 可空, 本参数为真时，将生成10位时间戳返回<br /> .局部变量 时间b, 精易_时间<br /> .局部变量 返回值, 文本型<br /> .局部变量 毫秒数, 文本型<br /> .局部变量 时间a, 文本型<br /> <br /> GetLocalTime (时间b)<br /> 毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (时间b.毫)), “0”) ＋ 到文本 (时间b.毫)<br /> 时间a ＝ 到文本 (取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒))<br /> 返回值 ＝ 时间a ＋ 毫秒数<br /> ' 返回值 ＝ 选择 (是否取十位时间戳, 取文本左边 (时间a ＋ 毫秒数, 10), 时间a ＋ 毫秒数)<br /> .判断开始 (是否取十位时间戳)<br />     返回值 ＝ 取文本左边 (返回值, 10)<br />     .判断循环首 (取文本长度 (返回值) ＜ 10)<br />         返回值 ＝ 返回值 ＋ “0”<br />     .判断循环尾 ()<br />     返回 (返回值)<br /> .默认<br /> <br />     .判断循环首 (取文本长度 (返回值) ＜ 13)<br />         返回值 ＝ 返回值 ＋ “0”<br />     .判断循环尾 ()<br />     返回 (返回值)

改进 时间_取现行时间戳

  

子程序名	返回值类型	公开	备 注
时间_取现行时间戳	文本型		生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169
参数名	类 型	参考	可空	数组	备 注
是否取十位时间戳	逻辑型				本参数为真时，将生成10位时间戳返回

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

GetLocalTime (时间b)
毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (时间b.毫)), “0”) ＋ 到文本 (时间b.毫)
时间a ＝ 到文本 (取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒 ))
返回值 ＝ 时间a ＋ 毫秒数
如果 (是否取十位时间戳)
返回值 ＝ 取文本左边 (返回值, 10)
返回值 ＝ 返回值 ＋ 取重复文本 (10 － 取文本长度 (返回值), “0”)
返回值 ＝ 返回值 ＋ 取重复文本 (13 － 取文本长度 (返回值), “0”)
返回 (返回值)

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

xiguasang

很不错  很好用

jingyi11023995

可以更简单点：

  

子程序名	返回值类型	公开	备 注
时间_取现行时间戳	文本型		生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169
参数名	类 型	参考	可空	数组	备 注
是否取十位时间戳	逻辑型				本参数为真时，将生成10位时间戳返回

变量名	类 型	静态	数组	备 注
毫秒数	文本型
间隔时间文本	文本型
返回值	文本型

置随机数种子 ()
毫秒数 ＝ 到文本 (取随机数 (10000, 90000))
间隔时间文本 ＝ 到文本 (取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒 )) ＋ 毫秒数
判断 (是否取十位时间戳)
返回值 ＝ 取文本左边 (间隔时间文本, 10)
返回值 ＝ 取文本左边 (间隔时间文本, 13)
' 调试输出 (返回值)
返回 (返回值)

.版本 2<br /> <br /> .子程序 时间_取现行时间戳, 文本型, 公开, 生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169<br /> .参数 是否取十位时间戳, 逻辑型, 可空, 本参数为真时，将生成10位时间戳返回<br /> .局部变量 毫秒数, 文本型<br /> .局部变量 间隔时间文本, 文本型<br /> .局部变量 返回值, 文本型<br /> <br /> 置随机数种子 ()<br /> 毫秒数 ＝ 到文本 (取随机数 (10000, 90000))<br /> 间隔时间文本 ＝ 到文本 (取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒)) ＋ 毫秒数<br /> .判断开始 (是否取十位时间戳)<br />     返回值 ＝ 取文本左边 (间隔时间文本, 10)<br /> .默认<br />     返回值 ＝ 取文本左边 (间隔时间文本, 13)<br /> .判断结束<br /> ' 调试输出 (返回值)<br /> 返回 (返回值)

项目部002

感谢反馈。已优化代码。