精易论坛

标题: 开机时间/运行时长 优化版 [打印本页]

---

作者: yppy988    时间: 2019-3-19 19:55
标题: 开机时间/运行时长 优化版


之前发布的有BUG  如果本地系统时间错误 开机时间也会错误  所以这次改为取网络API时间 @haishifu  对代码的优化

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
开机时间	文本型
运行时长	文本型

开机时间 (开机时间, 运行时长)
调试输出 (开机时间, 运行时长)

子程序名	返回值类型	公开	备 注
开机时间
参数名	类 型	参考	可空	数组	备 注
开机时间	文本型
运行时长	文本型

变量名	类 型	静态	数组	备 注
秒数	整数型
分钟	整数型
小时	整数型
天	整数型
时间	日期时间型

秒数 ＝ 取启动时间 () ＼ 1000
时间 ＝ 现在时间 ()
开机时间 ＝ 时间到文本 (增减时间 (时间, 8, －秒数), 1)
天 ＝ 秒数 ＼ 86400
秒数 ＝ 秒数 － 86400 × 天
小时 ＝ 秒数 ＼ 3600
秒数 ＝ 秒数 － 3600 × 小时
分钟 ＝ 秒数 ＼ 60
秒数 ＝ 秒数 － 60 × 分钟
运行时长 ＝ 到文本 (天) ＋ “天” ＋ 到文本 (小时) ＋ “小时” ＋ 到文本 (分钟) ＋ “分钟” ＋ 到文本 (秒数) ＋ “秒”

子程序名	返回值类型	公开	备 注
现在时间	日期时间型

变量名	类 型	静态	数组	备 注
时间	文本型
L1	整数型
L2	整数型

如果 (是否与互联网连接 () ＝ 真)
时间 ＝ 到文本 (HTTP读文件 (“http://quan.suning.com/getSysTime.do”))
L1 ＝ 寻找文本 (时间, #引号 ＋ “:” ＋ #引号, , 假) ＋ 3
L2 ＝ 寻找文本 (时间, #引号, L1, 假)
返回 (到时间 (取文本中间 (时间, L1, L2 － L1)))

返回 (取现行时间 ())

i支持库列表	支持库注释
spec	特殊功能支持库
eAPI	应用接口支持库
internet	互联网支持库

.版本 2<br /> .支持库 spec<br /> .支持库 eAPI<br /> .支持库 internet<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 开机时间, 文本型<br /> .局部变量 运行时长, 文本型<br /> <br /> 开机时间 (开机时间, 运行时长)<br /> 调试输出 (开机时间, 运行时长)<br /> <br /> <br /> .子程序 开机时间<br /> .参数 开机时间, 文本型, 可空<br /> .参数 运行时长, 文本型, 可空<br /> .局部变量 秒数, 整数型<br /> .局部变量 分钟, 整数型<br /> .局部变量 小时, 整数型<br /> .局部变量 天, 整数型<br /> .局部变量 时间, 日期时间型<br /> <br /> 秒数 ＝ 取启动时间 () ＼ 1000<br /> <br /> 时间 ＝ 现在时间 ()<br /> <br /> 开机时间 ＝ 时间到文本 (增减时间 (时间, 8, －秒数), 1)<br /> <br /> 天 ＝ 秒数 ＼ 86400<br /> 秒数 ＝ 秒数 － 86400 × 天<br /> 小时 ＝ 秒数 ＼ 3600<br /> 秒数 ＝ 秒数 － 3600 × 小时<br /> 分钟 ＝ 秒数 ＼ 60<br /> 秒数 ＝ 秒数 － 60 × 分钟<br /> <br /> 运行时长 ＝ 到文本 (天) ＋ “天” ＋ 到文本 (小时) ＋ “小时” ＋ 到文本 (分钟) ＋ “分钟” ＋ 到文本 (秒数) ＋ “秒”<br /> <br /> .子程序 现在时间, 日期时间型<br /> .局部变量 时间, 文本型<br /> .局部变量 L1, 整数型<br /> .局部变量 L2, 整数型<br /> <br /> <br /> .如果 (是否与互联网连接 () ＝ 真)<br />     时间 ＝ 到文本 (HTTP读文件 (“http://quan.suning.com/getSysTime.do”))<br />     L1 ＝ 寻找文本 (时间, #引号 ＋ “:” ＋ #引号, , 假) ＋ 3<br />     L2 ＝ 寻找文本 (时间, #引号, L1, 假)<br />     返回 (到时间 (取文本中间 (时间, L1, L2 － L1)))<br /> <br /> .否则<br />     返回 (取现行时间 ())

---

作者: 已注销184143    时间: 2019-3-19 19:59
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: 黄毛    时间: 2019-3-19 20:58
7837373783

---

作者: 汉族    时间: 2019-3-19 21:43
看到在线时间接口了  先收藏

---

作者: q838210720    时间: 2019-3-20 19:13
苏宁的时间

---

作者: 外星星人    时间: 2019-3-21 10:55
支持支持分享。。。

---

作者: 情若能以控    时间: 2019-3-21 12:12
顶起来！！！~~

---

作者: kyo9766    时间: 2019-3-21 15:05
感谢大佬直接甩源码，感谢分享

---

作者: FlyMX    时间: 2019-3-22 12:45
坚持开源。感谢分享

---

作者: 完美孤儿    时间: 2019-3-23 00:19
那个网址是苏宁的时间？

---

作者: sostemp    时间: 2019-3-26 14:50
是否与互联网连接 () 这个，如果没网时，你会发现程序会卡死几秒的。

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4