时间和秒互相转换

.子程序 功能_时间到秒, 整数型
.参数 参_时间, 文本型
.局部变量 局_累计时间, 整数型
.局部变量 局_正则, 正则表达式类
易语言时间和秒互相转换例子。

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