开机时间/运行时间 计算

yppy988

这代码为 计算开机时间和运行时间 不知道代码是否正确  请大家验证一下  如果正确  希望能添加进 精易模块  (不知道是否有类似代码  如果有就算了)

  

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

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

秒 ＝ 取启动时间 ()
如果真 (秒 ≥ 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 /> 返回 (开机时间)

yppy988

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

日月为易

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

谢谢~                                    

yppy988

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]

日月为易

什么问题，楼主解决了吗 我也想这块的解决方案

CsYuns

梵蒂冈梵蒂冈地方广泛广泛大概豆腐干反对

Tool

贼帅~                             

178826559

感觉这个问题是基础问题，即 数据的溢出问题。  整数型的数值范围是多少？？？ 说实话，我也记不得，只能翻书，难为情了。

gavinfly

学习学习，参考下

1015441689

66666666666666666666666666666666

flfkhn2

谢谢分享，围观一下。

7ian

调试输出 (增减时间 (取现行时间 (), #秒, －取启动时间 () ÷ 1000))