| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 时间转毫秒 | 整数型 | 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)