.版本 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))