精易论坛

标题: 怎么求列表框里所有时间的总和，就是列表框里都是时间00：20：55等时间，我想算总时间 [打印本页]

---

作者: 大路鸟    时间: 2016-1-6 15:33
标题: 怎么求列表框里所有时间的总和，就是列表框里都是时间00：20：55等时间，我想算总时间
求列表框里所有时间的总和。

QQ图片20160106153302.png (5.6 KB, 下载次数: 1)

下载附件

2016-1-6 15:33 上传

---

作者: 冯古屋    时间: 2016-1-6 15:35
以前写过一个。

（时：分：秒）时间相加.rar

2016-1-6 15:35 上传

点击文件名下载附件

144.17 KB, 下载次数: 8

---

作者: leiyh    时间: 2016-1-6 15:49

  

子程序名	返回值类型	公开	备 注
取s	整数型
参数名	类 型	参考	可空	数组	备 注
time	文本型

变量名	类 型	静态	数组	备 注
array	文本型		0
index	整数型

array ＝ 分割文本 (time, “:”, )
index ＝ 取数组成员数 (array)
如果真 (index ≠ 3)
返回 (0)
返回 (到整数 (array [1]) × 60 × 60 ＋ 到整数 (array [2]) × 60 ＋ 到整数 (array [3]))

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i2	整数型
str	文本型
retult	整数型

计次循环首 (列表框1.取项目数 (), i2)
str ＝ 列表框1.取项目文本 (i2 － 1)
如果真 (str ≠ “”)
retult ＝ retult ＋ 取s (str)
调试输出 (取s (str))

计次循环尾 ()
信息框 (到文本 (retult), 0, , )

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 取s, 整数型<br /> .参数 time, 文本型<br /> .局部变量 array, 文本型, , "0"<br /> .局部变量 index, 整数型<br /> <br /> array ＝ 分割文本 (time, “:”, )<br /> index ＝ 取数组成员数 (array)<br /> .如果真 (index ≠ 3)<br />     返回 (0)<br /> .如果真结束<br /> 返回 (到整数 (array [1]) × 60 × 60 ＋ 到整数 (array [2]) × 60 ＋ 到整数 (array [3]))<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i2, 整数型<br /> .局部变量 str, 文本型<br /> .局部变量 retult, 整数型<br /> <br /> .计次循环首 (列表框1.取项目数 (), i2)<br />     str ＝ 列表框1.取项目文本 (i2 － 1)<br />     .如果真 (str ≠ “”)<br />         retult ＝ retult ＋ 取s (str)<br />         调试输出 (取s (str))<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 信息框 (到文本 (retult), 0, , )

---

作者: 大路鸟    时间: 2016-1-7 19:33

leiyh 发表于 2016-1-6 15:49
[e=0].版本 2
.支持库 spec

你这个加完以后是个数，我是要像时间那种格式的，00：00：00，这种格式的

---

作者: leiyh    时间: 2016-1-7 19:53

---

作者: 大路鸟    时间: 2016-1-8 10:57

leiyh 发表于 2016-1-7 19:53

哥，你弄个图片我还得打，你敢把源码放上么。

---

作者: 小米加鸡蛋    时间: 2016-1-9 22:22
全部都取出来然后加一起，

---

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

Powered by Discuz! X3.4