时间和秒互相转换

小磊

  

子程序名	返回值类型	公开	备 注
功能_时间到秒	整数型
参数名	类 型	参考	可空	数组	备 注
参_时间	文本型

变量名	类 型	静态	数组	备 注
局_累计时间	整数型
局_正则	正则表达式类

如果真 (寻找文本 (参_时间, “天”, , 假) ≠ -1)
局_正则.创建 (“(\d+)天(\d+)小时(\d+)分(\d+)秒”, 参_时间, )
局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 1)) × 86400
局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 2)) × 3600 ＋ 局_累计时间
局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 3)) × 60 ＋ 局_累计时间
局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 4)) ＋ 局_累计时间
返回 (局_累计时间)

如果真 (寻找文本 (参_时间, “小时”, , 假) ≠ -1)
局_正则.创建 (“(\d+)小时(\d+)分(\d+)秒”, 参_时间, )
局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 1)) × 3600
局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 2)) × 60 ＋ 局_累计时间
局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 3)) ＋ 局_累计时间
返回 (局_累计时间)

如果真 (寻找文本 (参_时间, “分”, , 假) ≠ -1)
局_正则.创建 (“(\d+)分(\d+)秒”, 参_时间, )
局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 1)) × 60
局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 2)) ＋ 局_累计时间
返回 (局_累计时间)

如果真 (寻找文本 (参_时间, “秒”, , 假) ≠ -1)
局_正则.创建 (“(\d+)秒”, 参_时间, )
局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 1))
返回 (局_累计时间)

返回 (局_累计时间)

子程序名	返回值类型	公开	备 注
功能_秒到时间	文本型
参数名	类 型	参考	可空	数组	备 注
参_时间	整数型

变量名	类 型	静态	数组	备 注
局_天	整数型
局_小时	整数型
局_分	整数型
局_秒	整数型
局_累计时间	文本型

局_天 ＝ 到整数 (参_时间 ÷ 86400)
局_小时 ＝ 到整数 (到整数 (参_时间 － 局_天 × 86400) ÷ 3600)
局_分 ＝ 到整数 (到整数 (参_时间 － 局_天 × 86400 － 局_小时 × 3600) ÷ 60)
局_秒 ＝ 到整数 (参_时间 － 局_天 × 86400 － 局_小时 × 3600 － 局_分 × 60)
如果真 (局_天 ＞ 0)
局_累计时间 ＝ 局_累计时间 ＋ 到文本 (局_天) ＋ “天”

如果真 (局_小时 ＞ 0)
局_累计时间 ＝ 局_累计时间 ＋ 到文本 (局_小时) ＋ “小时”

如果真 (局_分 ＞ 0)
局_累计时间 ＝ 局_累计时间 ＋ 到文本 (局_分) ＋ “分”

如果真 (局_秒 ＞ 0)
局_累计时间 ＝ 局_累计时间 ＋ 到文本 (局_秒) ＋ “秒”

返回 (局_累计时间)

.版本 2<br /> <br /> .子程序 功能_时间到秒, 整数型<br /> .参数 参_时间, 文本型<br /> .局部变量 局_累计时间, 整数型<br /> .局部变量 局_正则, 正则表达式类<br /> <br /> .如果真 (寻找文本 (参_时间, “天”, , 假) ≠ -1)<br />     局_正则.创建 (“(\d+)天(\d+)小时(\d+)分(\d+)秒”, 参_时间, )<br />     局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 1)) × 86400<br />     局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 2)) × 3600 ＋ 局_累计时间<br />     局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 3)) × 60 ＋ 局_累计时间<br />     局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 4)) ＋ 局_累计时间<br />     返回 (局_累计时间)<br /> .如果真结束<br /> <br /> .如果真 (寻找文本 (参_时间, “小时”, , 假) ≠ -1)<br />     局_正则.创建 (“(\d+)小时(\d+)分(\d+)秒”, 参_时间, )<br />     局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 1)) × 3600<br />     局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 2)) × 60 ＋ 局_累计时间<br />     局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 3)) ＋ 局_累计时间<br />     返回 (局_累计时间)<br /> .如果真结束<br /> <br /> .如果真 (寻找文本 (参_时间, “分”, , 假) ≠ -1)<br />     局_正则.创建 (“(\d+)分(\d+)秒”, 参_时间, )<br />     局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 1)) × 60<br />     局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 2)) ＋ 局_累计时间<br />     返回 (局_累计时间)<br /> .如果真结束<br /> <br /> .如果真 (寻找文本 (参_时间, “秒”, , 假) ≠ -1)<br />     局_正则.创建 (“(\d+)秒”, 参_时间, )<br />     局_累计时间 ＝ 到数值 (局_正则.取子匹配文本 (1, 1))<br />     返回 (局_累计时间)<br /> .如果真结束<br /> <br /> 返回 (局_累计时间)<br /> <br /> .子程序 功能_秒到时间, 文本型<br /> .参数 参_时间, 整数型<br /> .局部变量 局_天, 整数型<br /> .局部变量 局_小时, 整数型<br /> .局部变量 局_分, 整数型<br /> .局部变量 局_秒, 整数型<br /> .局部变量 局_累计时间, 文本型<br /> <br /> 局_天 ＝ 到整数 (参_时间 ÷ 86400)<br /> 局_小时 ＝ 到整数 (到整数 (参_时间 － 局_天 × 86400) ÷ 3600)<br /> 局_分 ＝ 到整数 (到整数 (参_时间 － 局_天 × 86400 － 局_小时 × 3600) ÷ 60)<br /> 局_秒 ＝ 到整数 (参_时间 － 局_天 × 86400 － 局_小时 × 3600 － 局_分 × 60)<br /> .如果真 (局_天 ＞ 0)<br />     局_累计时间 ＝ 局_累计时间 ＋ 到文本 (局_天) ＋ “天”<br /> .如果真结束<br /> <br /> .如果真 (局_小时 ＞ 0)<br />     局_累计时间 ＝ 局_累计时间 ＋ 到文本 (局_小时) ＋ “小时”<br /> .如果真结束<br /> <br /> .如果真 (局_分 ＞ 0)<br />     局_累计时间 ＝ 局_累计时间 ＋ 到文本 (局_分) ＋ “分”<br /> .如果真结束<br /> <br /> .如果真 (局_秒 ＞ 0)<br />     局_累计时间 ＝ 局_累计时间 ＋ 到文本 (局_秒) ＋ “秒”<br /> .如果真结束<br /> <br /> 返回 (局_累计时间)

要强不要秃

感谢分享，学习学习666666

成神之日

tapouki

拿走了拿走了

小宝Augus

优秀

xieqingb

前排留名

wjswzj0

感谢分享，很给力！~

Cand

磊总...............................................................................