提示：用到了精易模块

.版本 2

.子程序 功能_时间到秒, 整数型
.参数 参_时间, 文本型
.局部变量 局_累计时间, 整数型
.局部变量 局_正则, 正则表达式类

.如果真 (寻找文本 (参_时间, “天”, , 假) ≠ -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)
    局_累计时间 ＝ 局_累计时间 ＋ 到文本 (局_秒) ＋ “秒”
.如果真结束

返回 (局_累计时间)

来源：精易论坛
原地址：https://bbs.125.la/thread-14583528-1-1.html