时间戳问题

莫离

今天我在抓包的时候，无意间发现了11位数的时间戳时间：1368145625140     
请问这个11位数的时间戳怎么用易语言实现转换啊         



补充内容 (2013-5-10 09:49):
错了错了，是是三位数

宇智波·晓易

新建 易程序 (4).rar (1021 Bytes, 下载次数: 31)

2013-5-10 09:56 上传

点击文件名下载附件

默默`

取随机数

已注销192553

[e]
.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击

调试输出 (时间_北京转格林威治 (取现行时间 (), 真, ))
[/e]

补充内容 (2013-5-10 09:59):
用到精益模块

莫离

默者 发表于 2013-5-10 09:58
[e]
.版本 2
.支持库 spec

我不想用模块

已注销192553

莫离 发表于 2013-5-10 10:01
我不想用模块

如果我没记错的话，精易模块已经开源了

云落羽

不想用模块。很有志气。

莫离

默者 发表于 2013-5-10 10:03
如果我没记错的话，精易模块已经开源了

是开源了，但是里面的源码太多了，函数都是一个套一个的，你根本看不懂

Azrael°

[e]
.版本 2

.子程序 取时间戳, 文本型, 公开, 将时间类型值转到长整型的标准UNIX使用的格林威治时间戳记
.局部变量 初始时间, 日期时间型
.局部变量 时间值, 日期时间型, , , 要转换的时间值

时间值 ＝ 取现行时间 ()
初始时间 ＝ 到时间 (“1970-01-01 08:00:00”)
置随机数种子 ()
返回 (到文本 (取时间间隔 (时间值, 初始时间, #秒) × 1000 ＋ 取随机数 (0, 999)))[/e]

Xiao白

如果是在线程里使用，请自己加上 加载COM

[e]
.版本 2

.子程序 时间_取现行时间戳, 文本型, 公开, 生成一个13位的现行时间戳。如：1325252169718
.局部变量 VBscript, 对象
.局部变量 结果, 文本型

VBscript.创建 (“ScriptControl”, )
VBscript.写属性 (“Language”, “JScript”)
VBscript.数值方法 (“ExecuteStatement”, “function time(){return new Date().getTime()}”)
结果 ＝ VBscript.通用方法 (“Run”, “time”, ).取文本 ()
返回 (结果)
[/e]