精易论坛

标题: 开机时间/运行时间 计算 [打印本页]

---

作者: yppy988    时间: 2019-3-18 17:33
标题: 开机时间/运行时间 计算
这代码为 计算开机时间和运行时间 不知道代码是否正确  请大家验证一下  如果正确  希望能添加进 精易模块  (不知道是否有类似代码  如果有就算了)

  

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

变量名	类 型	静态	数组	备 注
天	整数型
小时	整数型
分	整数型
秒	整数型
时间头部	文本型
开机时间	文本型

秒 ＝ 取启动时间 ()
如果真 (秒 ≥ 86400000)
天 ＝ 秒 ÷ 86400000
秒 ＝ 秒 － 天 × 86400000

小时 ＝ 秒 ÷ 3600000
秒 ＝ 秒 － 小时 × 3600000
分 ＝ 秒 ÷ 60000
秒 ＝ (秒 － 分 × 60000) ÷ 1000
运行时间 ＝ “运行时间为：” ＋ 到文本 (天) ＋ “天” ＋ 到文本 (小时) ＋ “时” ＋ 到文本 (分) ＋ “分” ＋ 到文本 (秒) ＋ “秒”
时间头部 ＝ 取文本左边 (到文本 (增减时间 (取现行时间 (), 5, 天 － 天 × 2)), 13)
小时 ＝ 取小时 (增减时间 (取现行时间 (), 6, 小时 － 小时 × 2))
分 ＝ 取分钟 (增减时间 (取现行时间 (), 7, 分 － 分 × 2))
秒 ＝ 取秒 (增减时间 (取现行时间 (), 8, 秒 － 秒 × 2))
开机时间 ＝ “开机时间为：” ＋ 时间头部 ＋ 到文本 (小时) ＋ “时” ＋ 到文本 (分) ＋ “分” ＋ 到文本 (秒) ＋ “秒”
返回 (开机时间)

.版本 2<br /> <br /> .子程序 时间计算, 文本型<br /> .参数 运行时间, 文本型, 可空, 返回共运行的时间<br /> .局部变量 天, 整数型<br /> .局部变量 小时, 整数型<br /> .局部变量 分, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 时间头部, 文本型<br /> .局部变量 开机时间, 文本型<br /> <br /> 秒 ＝ 取启动时间 ()<br /> <br /> .如果真 (秒 ≥ 86400000)<br />     天 ＝ 秒 ÷ 86400000<br />     秒 ＝ 秒 － 天 × 86400000<br /> .如果真结束<br /> <br /> 小时 ＝ 秒 ÷ 3600000<br /> <br /> 秒 ＝ 秒 － 小时 × 3600000<br /> <br /> 分 ＝ 秒 ÷ 60000<br /> <br /> 秒 ＝ (秒 － 分 × 60000) ÷ 1000<br /> <br /> 运行时间 ＝ “运行时间为：” ＋ 到文本 (天) ＋ “天” ＋ 到文本 (小时) ＋ “时” ＋ 到文本 (分) ＋ “分” ＋ 到文本 (秒) ＋ “秒”<br /> <br /> 时间头部 ＝ 取文本左边 (到文本 (增减时间 (取现行时间 (), 5, 天 － 天 × 2)), 13)<br /> <br /> 小时 ＝ 取小时 (增减时间 (取现行时间 (), 6, 小时 － 小时 × 2))<br /> <br /> 分 ＝ 取分钟 (增减时间 (取现行时间 (), 7, 分 － 分 × 2))<br /> <br /> 秒 ＝ 取秒 (增减时间 (取现行时间 (), 8, 秒 － 秒 × 2))<br /> <br /> 开机时间 ＝ “开机时间为：” ＋ 时间头部 ＋ 到文本 (小时) ＋ “时” ＋ 到文本 (分) ＋ “分” ＋ 到文本 (秒) ＋ “秒”<br /> 返回 (开机时间)

---

作者: jhai    时间: 2019-3-18 17:53
谢谢分享....

---

作者: yppy988    时间: 2019-3-18 18:09


有错误  修复中  不知道哪错了  头都想大了

---

作者: 7ian    时间: 2019-3-18 21:45
调试输出 (增减时间 (取现行时间 (), #秒, －取启动时间 () ÷ 1000))

---

作者: flfkhn2    时间: 2019-3-19 08:57
谢谢分享，围观一下。

---

作者: 1015441689    时间: 2019-3-19 09:12
66666666666666666666666666666666

---

作者: gavinfly    时间: 2019-3-19 14:46
学习学习，参考下

---

作者: 178826559    时间: 2019-3-19 19:01
感觉这个问题是基础问题，即 数据的溢出问题。  整数型的数值范围是多少？？？ 说实话，我也记不得，只能翻书，难为情了。

---

作者: Tool    时间: 2019-3-19 22:57
贼帅~                             

---

作者: CsYuns    时间: 2019-3-27 10:30
梵蒂冈梵蒂冈地方广泛广泛大概豆腐干反对

---

作者: 日月为易    时间: 2019-4-8 21:55
什么问题，楼主解决了吗 我也想这块的解决方案

---

作者: yppy988    时间: 2019-4-8 22:48

dw980972696 发表于 2019-4-8 21:55
什么问题，楼主解决了吗 我也想这块的解决方案

[e]
.版本 2
.支持库 spec
.支持库 internet

.子程序 __启动窗口_创建完毕
.局部变量 开机时间, 文本型
.局部变量 运行时长, 文本型

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

.子程序 开机时间
.参数 开机时间, 文本型, 可空
.参数 运行时长, 文本型, 可空
.局部变量 秒数, 整数型
.局部变量 分钟, 整数型
.局部变量 小时, 整数型
.局部变量 天, 整数型
.局部变量 时间, 日期时间型

秒数 ＝ 取启动时间 () ＼ 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)))

[/e]

---

作者: 日月为易    时间: 2019-4-9 15:39

yppy988 发表于 2019-4-8 22:48
[e]
.版本 2
.支持库 spec

谢谢~                                    

---

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

Powered by Discuz! X3.4