易语言取本软件版本,易语言取电脑系统

是这样吗

”

* “开机秒数：” | 24087

* “系统时间：” | [2012年8月28日1时56分7秒]

* “开机用时：” | “06时41分27秒”

* “开机时间：” | [2012年8月27日19时14分40秒]

昨晚写的代码没保存，大概是这样，无非就是时间戳的加减

开机秒数=取启动时间（）/1000

系统时间=取现行时间（）

开机用时=时间_倒计时（开机秒数）

开机时间=时间_戳转日期（ 时间_戳转秒 (取现行时间 ()) - 开机秒数）

.版本 2

.子程序 时间_倒计时, 文本型, 公开, 返回总秒数据倒计时 00天00时00分00秒

.参数 倒计数值, 长整数型, , 单位：秒

.参数 单位, , 可空, 默认：#秒

.局部变量 秒, 文本型

.局部变量 分, 文本型

.局部变量 时, 文本型

.局部变量 天, 文本型

.局部变量 运行时间, 长整数型

.局部变量 str, 文本型

.判断开始 (单位 ＝ #小时)

倒计数值 ＝ 倒计数值 × 60 × 60

.判断 (单位 ＝ #分钟)

倒计数值 ＝ 倒计数值 × 60

.默认

单位 ＝ #秒

.判断结束

运行时间 ＝ 倒计数值

连续赋值 (“00”, 时, 分, 秒, 天)

.如果真 (运行时间 ＞ 0)

str ＝ “”

.如果真 (运行时间 ≥ 86400)

天 ＝ 到文本 (取整 (四舍五入 (运行时间 ÷ 86400, 2)))

运行时间 ＝ 运行时间 ％ 86400

str ＝ str ＋ 天 ＋ “天”

.如果真结束

.如果真 (运行时间 ≥ 3600)

时 ＝ 取文本右边 (“0000000” ＋ 到文本 (取整 (四舍五入 (运行时间 ÷ 3600, 2))), 2)

运行时间 ＝ 运行时间 ％ 3600

str ＝ str ＋ 时 ＋ “时”

.如果真结束

.如果真 (运行时间 ≥ 60)

分 ＝ 取文本右边 (“0000000” ＋ 到文本 (取整 (四舍五入 (运行时间 ÷ 60, 2))), 2)

运行时间 ＝ 运行时间 ％ 60

str ＝ str ＋ 分 ＋ “分”

.如果真结束

秒 ＝ 取文本右边 (“0000000” ＋ 到文本 (取整 (运行时间)), 2)

str ＝ str ＋ 秒 ＋ “秒”

.如果真结束

返回 (str)

.版本 2

.子程序 时间_戳转秒, 长整数型, 公开, 将时间类型值转到长整型的标准UNIX使用的格林威治时间戳记

.参数 时间值, 日期时间型, , 要转换的时间值

.参数 是否为秒, 逻辑型, 可空, 设置返回的时间戳记值单位 真：秒 假：毫秒 默认为真

.参数 是否为北京时间, 逻辑型, 可空, 默认为真

.局部变量 初始时间, 日期时间型

.如果真 (是否为空 (是否为北京时间))

是否为北京时间 ＝ 真

.如果真结束

.如果 (是否为北京时间)

初始时间 ＝ 到时间 (“1970-01-01 08:00:00”)

.否则

初始时间 ＝ 到时间 (“1970-01-01 00:00:00”)

.如果结束

.如果真 (是否为空 (是否为秒))

是否为秒 ＝ 真

.如果真结束

.如果 (是否为秒)

返回 (取时间间隔 (时间值, 初始时间, #秒))

.否则

返回 (取时间间隔 (时间值, 初始时间, #秒) × 1000)

.如果结束

返回 (取时间间隔 (时间值, 初始时间, #秒))

.版本 2

.子程序 时间_戳转日期, 日期时间型, 公开, 将标准UNIX使用的格林威治时间戳记转到易系统时间日期格式

.参数 时间戳记值, 长整数型, , 要转换的时间戳记值

.参数 是否为秒, 逻辑型, 可空, 时间戳记值单位 真：秒 假：毫秒 默认为真

.参数 是否为北京时间, 逻辑型, 可空, 默认为真，

.局部变量 初始时间, 日期时间型

.如果真 (是否为空 (是否为北京时间))

是否为北京时间 ＝ 真

.如果真结束

.如果 (是否为北京时间)

初始时间 ＝ 到时间 (“1970-01-01 08:00:00”)

.否则

初始时间 ＝ 到时间 (“1970-01-01 00:00:00”)

.如果结束

.如果真 (是否为空 (是否为秒))

是否为秒 ＝ 真

.如果真结束

.如果 (是否为秒)

返回 (增减时间 (初始时间, #秒, 时间戳记值))

.否则

返回 (增减时间 (初始时间, #秒, 时间戳记值 ÷ 1000))

.如果结束

返回 (增减时间 (初始时间, #秒, 时间戳记值))