计时指定进程运行时间

shaokui123

比如上班运行excel办公，监控excel.exe这个进程从打开到下班关闭运行的时间，弹框显示或者程序界面显示都行。

KD飞飞

引用精易模块

  

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

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
现时间	日期时间型
启动时间	文本型

启动时间 ＝ 到文本 (进程_取进程启动时间 (进程_名取ID (“EXCEL.EXE”)))
调试输出 (启动时间)
如果 (启动时间 ≠ “”)
编辑框1.内容 ＝ 取文本左边 (启动时间, 4)
编辑框2.内容 ＝ 取文本中间 (启动时间, 5, 2)
编辑框3.内容 ＝ 取文本中间 (启动时间, 7, 2)
编辑框4.内容 ＝ 取文本中间 (启动时间, 9, 2)
编辑框5.内容 ＝ 取文本中间 (启动时间, 11, 2)
编辑框6.内容 ＝ 取文本中间 (启动时间, 13, 2)
现时间 ＝ 取现行时间 ()
编辑框12.内容 ＝ 到文本 (取年份 (现时间))
编辑框11.内容 ＝ 到文本 (取月份 (现时间))
编辑框10.内容 ＝ 到文本 (取日 (现时间))
编辑框9.内容 ＝ 到文本 (取小时 (现时间))
编辑框8.内容 ＝ 到文本 (取分钟 (现时间))
编辑框7.内容 ＝ 到文本 (取秒 (现时间))



编辑框12.内容 ＝ “”
编辑框11.内容 ＝ “”
编辑框10.内容 ＝ “”
编辑框9.内容 ＝ “”
编辑框8.内容 ＝ “”
编辑框7.内容 ＝ “”

编辑框18.内容 ＝ 到文本 (到数值 (编辑框1.内容) － 到数值 (编辑框12.内容))
编辑框17.内容 ＝ 到文本 (到数值 (编辑框2.内容) － 到数值 (编辑框11.内容))
编辑框16.内容 ＝ 到文本 (到数值 (编辑框3.内容) － 到数值 (编辑框10.内容))
编辑框15.内容 ＝ 到文本 (到数值 (编辑框4.内容) － 到数值 (编辑框9.内容))
编辑框14.内容 ＝ 到文本 (到数值 (编辑框5.内容) － 到数值 (编辑框8.内容))
编辑框13.内容 ＝ 到文本 (到数值 (编辑框6.内容) － 到数值 (编辑框7.内容))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 现时间, 日期时间型<br /> .局部变量 启动时间, 文本型<br /> <br /> 启动时间 ＝ 到文本 (进程_取进程启动时间 (进程_名取ID (“EXCEL.EXE”)))<br /> 调试输出 (启动时间)<br /> .如果 (启动时间 ≠ “”)<br />     编辑框1.内容 ＝ 取文本左边 (启动时间, 4)<br />     编辑框2.内容 ＝ 取文本中间 (启动时间, 5, 2)<br />     编辑框3.内容 ＝ 取文本中间 (启动时间, 7, 2)<br />     编辑框4.内容 ＝ 取文本中间 (启动时间, 9, 2)<br />     编辑框5.内容 ＝ 取文本中间 (启动时间, 11, 2)<br />     编辑框6.内容 ＝ 取文本中间 (启动时间, 13, 2)<br /> <br />     现时间 ＝ 取现行时间 ()<br />     编辑框12.内容 ＝ 到文本 (取年份 (现时间))<br />     编辑框11.内容 ＝ 到文本 (取月份 (现时间))<br />     编辑框10.内容 ＝ 到文本 (取日 (现时间))<br />     编辑框9.内容 ＝ 到文本 (取小时 (现时间))<br />     编辑框8.内容 ＝ 到文本 (取分钟 (现时间))<br />     编辑框7.内容 ＝ 到文本 (取秒 (现时间))<br /> <br /> .否则<br /> <br />     编辑框12.内容 ＝ “”<br />     编辑框11.内容 ＝ “”<br />     编辑框10.内容 ＝ “”<br />     编辑框9.内容 ＝ “”<br />     编辑框8.内容 ＝ “”<br />     编辑框7.内容 ＝ “”<br /> <br /> .如果结束<br /> <br /> <br /> 编辑框18.内容 ＝ 到文本 (到数值 (编辑框1.内容) － 到数值 (编辑框12.内容))<br /> 编辑框17.内容 ＝ 到文本 (到数值 (编辑框2.内容) － 到数值 (编辑框11.内容))<br /> 编辑框16.内容 ＝ 到文本 (到数值 (编辑框3.内容) － 到数值 (编辑框10.内容))<br /> 编辑框15.内容 ＝ 到文本 (到数值 (编辑框4.内容) － 到数值 (编辑框9.内容))<br /> 编辑框14.内容 ＝ 到文本 (到数值 (编辑框5.内容) － 到数值 (编辑框8.内容))<br /> 编辑框13.内容 ＝ 到文本 (到数值 (编辑框6.内容) － 到数值 (编辑框7.内容))

补充内容 (2025-5-14 14:10):
我这是2007版你自己看下你的版本进程名，不会写下载附件

KD飞飞

KD飞飞 发表于 2025-5-14 14:09
引用精易模块

[e=0].版本 2

数值这里要取绝对值，忘记写了 不然全天有加有减了

shaokui123

KD飞飞 发表于 2025-5-14 14:09
引用精易模块

[e=0].版本 2

不管excel.exe是否启动，已经使用这行的时间始终在变动

KD飞飞

shaokui123 发表于 2025-5-14 14:16
不管excel.exe是否启动，已经使用这行的时间始终在变动

这不是肯定的嘛。每秒都加1啊 现行时间-开启时间=使用了多久 那肯定是按秒计算的啊~

KD飞飞

加一行判断就可以了

  

如果 (进程_名取ID (“EXCEL.EXE”) ≠ 0)
启动时间 ＝ 到文本 (进程_取进程启动时间 (进程_名取ID (“EXCEL.EXE”)))


启动时间 ＝ “”

调试输出 (启动时间)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .如果 (进程_名取ID (“EXCEL.EXE”) ≠ 0)<br />     启动时间 ＝ 到文本 (进程_取进程启动时间 (进程_名取ID (“EXCEL.EXE”)))<br /> .否则<br /> <br />     启动时间 ＝ “”<br /> .如果结束<br /> <br /> <br /> 调试输出 (启动时间)

附件

shaokui123

KD飞飞 发表于 2025-5-14 14:21
加一行判断就可以了

[e=0].版本 2

这个当进程启动时开始计时
但是进程结束后， 变成这样，运行了多长时间看不出

KD飞飞

你是一点也不会写吗？
其实很简单的

  

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

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
现时间	日期时间型
启动时间	文本型

如果 (进程_名取ID (“EXCEL.EXE”) ≠ 0)
启动时间 ＝ 到文本 (进程_取进程启动时间 (进程_名取ID (“EXCEL.EXE”)))


启动时间 ＝ “”

调试输出 (启动时间)
如果 (启动时间 ≠ “”)
编辑框1.内容 ＝ 取文本左边 (启动时间, 4)
编辑框2.内容 ＝ 取文本中间 (启动时间, 5, 2)
编辑框3.内容 ＝ 取文本中间 (启动时间, 7, 2)
编辑框4.内容 ＝ 取文本中间 (启动时间, 9, 2)
编辑框5.内容 ＝ 取文本中间 (启动时间, 11, 2)
编辑框6.内容 ＝ 取文本中间 (启动时间, 13, 2)
现时间 ＝ 取现行时间 ()
编辑框12.内容 ＝ 到文本 (取年份 (现时间))
编辑框11.内容 ＝ 到文本 (取月份 (现时间))
编辑框10.内容 ＝ 到文本 (取日 (现时间))
编辑框9.内容 ＝ 到文本 (取小时 (现时间))
编辑框8.内容 ＝ 到文本 (取分钟 (现时间))
编辑框7.内容 ＝ 到文本 (取秒 (现时间))



编辑框12.内容 ＝ “”
编辑框11.内容 ＝ “”
编辑框10.内容 ＝ “”
编辑框9.内容 ＝ “”
编辑框8.内容 ＝ “”
编辑框7.内容 ＝ “”
编辑框6.内容 ＝ “”
编辑框5.内容 ＝ “”
编辑框4.内容 ＝ “”
编辑框3.内容 ＝ “”
编辑框2.内容 ＝ “”
编辑框1.内容 ＝ “”

编辑框18.内容 ＝ 到文本 (到数值 (编辑框1.内容) － 到数值 (编辑框12.内容))
编辑框17.内容 ＝ 到文本 (到数值 (编辑框2.内容) － 到数值 (编辑框11.内容))
编辑框16.内容 ＝ 到文本 (到数值 (编辑框3.内容) － 到数值 (编辑框10.内容))
编辑框15.内容 ＝ 到文本 (到数值 (编辑框4.内容) － 到数值 (编辑框9.内容))
编辑框14.内容 ＝ 到文本 (到数值 (编辑框5.内容) － 到数值 (编辑框8.内容))
编辑框13.内容 ＝ 到文本 (到数值 (编辑框6.内容) － 到数值 (编辑框7.内容))

子程序名	返回值类型	公开	备 注
_时钟2_周期事件

如果 (进程_名取ID (“EXCEL.EXE”) ≠ 0)
时钟1.时钟周期 ＝ 600


时钟1.时钟周期 ＝ 0
编辑框19.内容 ＝ 编辑框13.内容
编辑框20.内容 ＝ 编辑框14.内容
编辑框21.内容 ＝ 编辑框15.内容
编辑框22.内容 ＝ 编辑框16.内容
编辑框23.内容 ＝ 编辑框17.内容
编辑框24.内容 ＝ 编辑框18.内容

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 现时间, 日期时间型<br /> .局部变量 启动时间, 文本型<br /> <br /> .如果 (进程_名取ID (“EXCEL.EXE”) ≠ 0)<br />     启动时间 ＝ 到文本 (进程_取进程启动时间 (进程_名取ID (“EXCEL.EXE”)))<br /> .否则<br /> <br />     启动时间 ＝ “”<br /> .如果结束<br /> <br /> <br /> 调试输出 (启动时间)<br /> .如果 (启动时间 ≠ “”)<br />     编辑框1.内容 ＝ 取文本左边 (启动时间, 4)<br />     编辑框2.内容 ＝ 取文本中间 (启动时间, 5, 2)<br />     编辑框3.内容 ＝ 取文本中间 (启动时间, 7, 2)<br />     编辑框4.内容 ＝ 取文本中间 (启动时间, 9, 2)<br />     编辑框5.内容 ＝ 取文本中间 (启动时间, 11, 2)<br />     编辑框6.内容 ＝ 取文本中间 (启动时间, 13, 2)<br /> <br />     现时间 ＝ 取现行时间 ()<br />     编辑框12.内容 ＝ 到文本 (取年份 (现时间))<br />     编辑框11.内容 ＝ 到文本 (取月份 (现时间))<br />     编辑框10.内容 ＝ 到文本 (取日 (现时间))<br />     编辑框9.内容 ＝ 到文本 (取小时 (现时间))<br />     编辑框8.内容 ＝ 到文本 (取分钟 (现时间))<br />     编辑框7.内容 ＝ 到文本 (取秒 (现时间))<br /> <br /> .否则<br /> <br />     编辑框12.内容 ＝ “”<br />     编辑框11.内容 ＝ “”<br />     编辑框10.内容 ＝ “”<br />     编辑框9.内容 ＝ “”<br />     编辑框8.内容 ＝ “”<br />     编辑框7.内容 ＝ “”<br />     编辑框6.内容 ＝ “”<br />     编辑框5.内容 ＝ “”<br />     编辑框4.内容 ＝ “”<br />     编辑框3.内容 ＝ “”<br />     编辑框2.内容 ＝ “”<br />     编辑框1.内容 ＝ “”<br /> <br /> .如果结束<br /> <br /> <br /> 编辑框18.内容 ＝ 到文本 (到数值 (编辑框1.内容) － 到数值 (编辑框12.内容))<br /> 编辑框17.内容 ＝ 到文本 (到数值 (编辑框2.内容) － 到数值 (编辑框11.内容))<br /> 编辑框16.内容 ＝ 到文本 (到数值 (编辑框3.内容) － 到数值 (编辑框10.内容))<br /> 编辑框15.内容 ＝ 到文本 (到数值 (编辑框4.内容) － 到数值 (编辑框9.内容))<br /> 编辑框14.内容 ＝ 到文本 (到数值 (编辑框5.内容) － 到数值 (编辑框8.内容))<br /> 编辑框13.内容 ＝ 到文本 (到数值 (编辑框6.内容) － 到数值 (编辑框7.内容))<br /> <br /> .子程序 _时钟2_周期事件<br /> <br /> .如果 (进程_名取ID (“EXCEL.EXE”) ≠ 0)<br />     时钟1.时钟周期 ＝ 600<br /> .否则<br /> <br />     时钟1.时钟周期 ＝ 0<br /> <br />     编辑框19.内容 ＝ 编辑框13.内容<br />     编辑框20.内容 ＝ 编辑框14.内容<br />     编辑框21.内容 ＝ 编辑框15.内容<br />     编辑框22.内容 ＝ 编辑框16.内容<br />     编辑框23.内容 ＝ 编辑框17.内容<br />     编辑框24.内容 ＝ 编辑框18.内容<br /> .如果结束

shaokui123

KD飞飞 发表于 2025-5-14 14:38
你是一点也不会写吗？
其实很简单的

会写一些简单的
这次运行后显示这样

shaokui123

比如08:00运行，17:00结束，总共运行9小时，实在不行就关闭的时候提示我总共运行9小时就行