[JavaScript] 纯文本查看 复制代码
.版本 2
.子程序 ID, 文本型
.局部变量 时间戳, 长整数型
.局部变量 随机数, 整数型
.局部变量 高位, 长整数型
.局部变量 结果, 长整数型
时间戳 ＝ 到长整数(取时间戳()) ' 获取毫秒级时间戳
随机数 ＝ 取随机数(2147483646, 2147483647) ' 修正后的随机范围
高位 ＝ 时间戳 × 到长整数(18446744073709551616) ' 左移64位 (相当于×2^64)
结果 ＝ 高位 ＋ 随机数
返回 到进制(结果, 36) ' 需要自定义进制转换函数
.子程序 取时间戳, 长整数型
.局部变量 系统时间, 系统时间
.局部变量 时间1, 日期时间型
.局部变量 时间2, 日期时间型
GetLocalTime(系统时间)
时间1 ＝ 到时间(系统时间)
时间2 ＝ 到时间("1970-01-01 00:00:00")
返回 (时间1 - 时间2) × 1000 ' 转换为毫秒
' 需要自行实现到进制()函数，或使用以下简化版本：
.子程序 到进制, 文本型
.参数 数值, 长整数型
.参数 基数, 整数型
.局部变量 字符表, 文本型
.局部变量 结果, 文本型
字符表 ＝ "0123456789abcdefghijklmnopqrstuvwxyz"
.判断循环首 (数值 ＞ 0)
结果 ＝ 取文本中间(字符表, (数值 ％ 基数) ＋ 1, 1) ＋ 结果
数值 ＝ 数值 ÷ 基数
.判断循环尾()
返回 结果
