计算在线时长问题

fengyewl

.版本 2
.支持库 spec
.子程序 计算在线时长, , , 客户进入在线时长
.参数 启动时间, 整数型, , 客户进入时记录的取启动时间
.局部变量 合计计算, 整数型
.局部变量 局部_结果, 文本型
.局部变量 反回时间, 小数型
合计计算 ＝ 取启动时间 () － 启动时间
.判断开始 (合计计算 ＜ 1000)
    局部_结果 ＝ 数值到格式文本 (合计计算 ÷ 1000, 1, 假) ＋ “毫秒”
.判断 (合计计算 ＜ 10000)
    局部_结果 ＝ 数值到格式文本 (合计计算 ÷ 1000 ÷ 60, 5, 假) ＋ “秒”
.判断 (合计计算 ＜ 100000)
    局部_结果 ＝ 数值到格式文本 (合计计算 ÷ 1000, 2, 假) ＋ “分钟”
.判断 (合计计算 ＜ 1000000)
    局部_结果 ＝ 数值到格式文本 (合计计算 ÷ 1000, 2, 假) ＋ “小时”
.默认
.判断结束
调试输出 (局部_结果)



补充内容 (2017-1-22 20:32):
我需要的是 在线时长显示 毫秒
如果大于    毫秒  显示多少秒
如果大于   秒    显示 多少分钟，
如果大于   分钟  显示多少小时，
如果大于   小时  显示多少天

让老衲来

s.zip (1.24 KB, 下载次数: 10)

2017-1-22 21:24 上传

点击文件名下载附件   写了一下，我估计你应该是要这种效果吧

.版本 2
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行

计算在线时长 (取启动时间 () － 1000 × 60 × 60 × 24)
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 计算在线时长, , , 客户进入在线时长
.参数 启动时间, 整数型, , 客户进入时记录的取启动时间
.局部变量 合计计算, 整数型
.局部变量 局部_结果, 文本型
.局部变量 反回时间, 小数型
.局部变量 秒, 整数型
.局部变量 分, 整数型
.局部变量 时, 整数型
.局部变量 天, 整数型

合计计算 ＝ 取启动时间 () － 启动时间
秒 ＝ 1000
分 ＝ 秒 × 60
时 ＝ 分 × 60
天 ＝ 时 × 24

.判断开始 (合计计算 ＜ 秒)
    局部_结果 ＝ 数值到格式文本 (合计计算, 1, 假) ＋ “毫秒”
.判断 (合计计算 ≥ 秒 且 合计计算 ＜ 分)
    局部_结果 ＝ 数值到格式文本 (合计计算 ÷ 秒, 5, 假) ＋ “秒”
.判断 (合计计算 ≥ 分 且 合计计算 ＜ 时)
    局部_结果 ＝ 数值到格式文本 (合计计算 ÷ 分, 2, 假) ＋ “分钟”
.判断 (合计计算 ≥ 时 且 合计计算 ＜ 天)
    局部_结果 ＝ 数值到格式文本 (合计计算 ÷ 时, 2, 假) ＋ “小时”
.默认
    局部_结果 ＝ 数值到格式文本 (合计计算 ÷ 天, 2, 假) ＋ “天”
.判断结束

调试输出 (局部_结果)

桔子老板

启动时间  现时间  取时间间隔不就行了？

fengyewl

420169574 发表于 2017-1-22 20:28
启动时间  现时间  取时间间隔不就行了？

我需要的是 在线时长显示 毫秒
如果大于    毫秒  显示多少秒
如果大于   秒    显示 多少分钟，
如果大于   分钟  显示多少小时，
如果大于   小时  显示多少天

hanyuhang1995

把判断改成如果真试试

小石子

启动的时候取一下时间戳， 关闭的时候 在取一下时间戳 ，计算一下 就能得到毫秒  转换一下就是时间了，不用弄线程一直循环

fengyewl

让老衲来 发表于 2017-1-22 21:24
写了一下，我估计你应该是要这种效果吧

.版本 2

你用这个看看，时间还隔10几分钟不知道什么原因


计算在线时长(取时间间隔 (到时间 (“2017年1月21日21时19分00秒”), 到时间 (“2017年1月21日11时0分00秒”), #秒))


.版本 2
.支持库 spec

.子程序 计算在线时长, 文本型, , 客户进入在线时长
.参数 启动时间, 整数型, , 客户进入时记录的取启动时间
.局部变量 局部_结果, 文本型

调试输出 (启动时间)
.判断开始 (启动时间 ＜ 60)
    局部_结果 ＝ 数值到格式文本 (启动时间, 0, 假) ＋ “秒”
.判断 (启动时间 ＜ 60 × 60)
    局部_结果 ＝ 数值到格式文本 (启动时间 ÷ 60, 2, 假) ＋ “分钟”
.判断 (启动时间 ＜ 60 × 60 × 60)
    局部_结果 ＝ 数值到格式文本 (启动时间 ÷ 60 ÷ 60, 2, 假) ＋ “小时”
.判断 (启动时间 ＜ 60 × 60 × 60 × 24)
    局部_结果 ＝ 数值到格式文本 (启动时间 ÷ 60 ÷ 60 ÷ 24, 2, 假) ＋ “天”
.默认
    局部_结果 ＝ 数值到格式文本 (启动时间 ÷ 60 ÷ 60 ÷ 24 ÷ 30, 0, 假) ＋ “月”
.判断结束
调试输出 (局部_结果)
返回 (局部_结果)

让老衲来

fengyewl 发表于 2017-1-22 22:23
你用这个看看，时间还隔10几分钟不知道什么原因

正在进行名称连接...
正在统计需要编译的子程序
正在编译...
正在生成主程序入口代码
程序代码编译成功
正在封装易格式目的代码
开始运行被调试程序
* 37140
* “10.32小时”
被调试易程序运行完毕   
-----

时间很准确，没有相差10，几分钟啊，，你是怎么说它相差十几分钟？

fengyewl

让老衲来 发表于 2017-1-22 23:05
正在进行名称连接...
正在统计需要编译的子程序
正在编译...

我就是这个代码就相隔，难道是版本问题？

让老衲来

fengyewl 发表于 2017-1-23 01:41
我就是这个代码就相隔，难道是版本问题？

我用的5.6版 结果准确