| 1234567891011121314151617181920212223242526272829 |
- .版本 2
- .程序集 来自精易模块, , , 用于加速编译和导出文本
- .子程序 时间_取现行时间戳1, 长整数型, 公开, 生成一个10位或者13位的现行时间戳
- .参数 精确到毫秒, 逻辑型, 可空, 默认为假 精确到秒10位数 精确到毫秒13位数
- .局部变量 ret, 长整数型
- ' https://bbs.125.la/forum.php?mod=viewthread&tid=14649396
- GetSystemTimeAsFileTime (取指针地址_长整数型 (ret))
- ret ＝ FileTimeToUnixTime (ret)
- .如果 (精确到毫秒)
- ret ＝ ret ÷ 10000
- .否则
- ret ＝ ret ÷ 10000000
- .如果结束
- 返回 (ret)
- .子程序 FileTimeToUnixTime, 长整数型
- .参数 FlieTime, 长整数型
- .局部变量 ll, 长整数型
- ll ＝ FlieTime － 1.16444736e+017
- 返回 (ll)
- .子程序 取指针地址_长整数型, 整数型, 公开
- .参数 欲取地址的数据, 长整数型, 参考
- 返回 (lstrcpyn_长整数型 (欲取地址的数据, 欲取地址的数据, 0))
|
