易语言把时分秒格式的转换成秒

开始

这是一个易语言子程序，可以把这样的格式：15:35:20 这样的转换成总共的秒数，比如：1315645645，用法很简单，下面也带注释，直接把下面的代码复制到你的易语言项目中调用即可。

.版本 2

.子程序 时分秒转秒, 长整数型, , 转换失败返回0，否则返回秒数
.参数 时分秒, 文本型, , 格式如：22:35:45
.局部变量 临时数组, 文本型, , "0"
.局部变量 计算后的秒数, 长整数型

.如果真 (时分秒 ＝ “” 或 寻找文本 (时分秒, “:”, , 假) ＝ -1)
    计算后的秒数 ＝ 0
    返回 (计算后的秒数)
.如果真结束

临时数组 ＝ 分割文本 (时分秒, “:”, )
.如果 (取数组成员数 (临时数组) ＝ 3)
    计算后的秒数 ＝ 到整数 (临时数组 [1]) × 60 × 60 ＋ 到整数 (临时数组 [2]) × 60 ＋ 到整数 (临时数组 [3])
    返回 (计算后的秒数)
.否则
    .如果 (取数组成员数 (临时数组) ＝ 2)
        计算后的秒数 ＝ 到整数 (临时数组 [1]) × 60 ＋ 到整数 (临时数组 [2])
        返回 (计算后的秒数)

    .否则

    .如果结束

.如果结束
返回 (计算后的秒数)