求助时间转换为毫秒的问题

zhonglei1996

如何将00:01:20这种时间 转换为毫秒呢？
例如00:01:20转换后是80000
00:02:00转换后是120000

求助~20精币奉上

mingyu3600

https://bbs.125.la/forum.php?mod=viewthread&tid=14812618

mingyu3600

.版本 2

.子程序 时间转毫秒, 整数型, , hh小时mm分钟ss秒    hh小时ss秒
.参数 时间文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 返回ms, 整数型
.局部变量 逻辑, 逻辑型

.如果真 (时间文本 ＝ “0”)
    返回 (0)
.如果真结束
.如果真 (时间文本 ＝ “”)
    返回 (0)
.如果真结束
.如果真 (时间文本 ＝ “ ”)
    返回 (0)
.如果真结束

.如果真 (文本_寻找文本 (时间文本, “分钟”, , ) ＞ -1)
    逻辑 ＝ 真
.如果真结束
时间文本 ＝ 文本_替换 (时间文本, , , , “ ”, “”, “小时”, “,”, “分钟”, “,”, “秒”, “,”, , )
' 调试输出 (“源文本”, 时间文本)
文本数组 ＝ 分割文本 (时间文本, “,”, )
.如果真 (取数组成员数 (文本数组) ＝ 3)
    返回ms ＝ 返回ms ＋ 到整数 (文本数组 [1]) × 60 × 60 × 1000  ' 1小时 = 60分钟
    返回ms ＝ 返回ms ＋ 到整数 (文本数组 [2]) × 60 × 1000  ' 1分钟 = 60秒
    返回ms ＝ 返回ms ＋ 到整数 (文本数组 [3]) × 1000  ' 1秒 = 1000ms
.如果真结束
.如果真 (取数组成员数 (文本数组) ＝ 2)
    .如果 (逻辑)  ' “分钟”
        返回ms ＝ 返回ms ＋ 到整数 (文本数组 [1]) × 60 × 1000  ' 1分钟 = 60秒
        返回ms ＝ 返回ms ＋ 到整数 (文本数组 [2]) × 1000  ' 1秒 = 1000ms
    .否则
        ' 小时
        返回ms ＝ 返回ms ＋ 到整数 (文本数组 [1]) × 60 × 60 × 1000  ' 1小时 = 60分钟
        返回ms ＝ 返回ms ＋ 到整数 (文本数组 [2]) × 1000  ' 1秒 = 1000ms
    .如果结束

.如果真结束
.如果真 (取数组成员数 (文本数组) ＜ 2)
    返回ms ＝ 返回ms ＋ 到整数 (文本数组 [1]) × 1000  ' 1秒 = 1000ms
.如果真结束
返回 (返回ms)