源码分享 时间转毫秒 【hh小时mm分钟ss秒 hh小时ss秒】to ms

喵藏

源码分享  时间转毫秒
【hh小时mm分钟ss秒   hh小时ss秒】 to  ms
【hh小时mm分钟ss秒   hh小时ss秒】 转 毫秒

  

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

.版本 2<br /> <br /> .子程序 时间转毫秒, 整数型, , hh小时mm分钟ss秒    hh小时ss秒<br /> .参数 时间文本, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 返回ms, 整数型<br /> .局部变量 逻辑, 逻辑型<br /> <br /> .如果真 (时间文本 ＝ “0”)<br />     返回 (0)<br /> .如果真结束<br /> .如果真 (时间文本 ＝ “”)<br />     返回 (0)<br /> .如果真结束<br /> .如果真 (时间文本 ＝ “ ”)<br />     返回 (0)<br /> .如果真结束<br /> <br /> .如果真 (文本_寻找文本 (时间文本, “分钟”, , ) ＞ -1)<br />     逻辑 ＝ 真<br /> .如果真结束<br /> 时间文本 ＝ 文本_替换 (时间文本, , , , “ ”, “”, “小时”, “,”, “分钟”, “,”, “秒”, “,”, , )<br /> ' 调试输出 (“源文本”, 时间文本)<br /> 文本数组 ＝ 分割文本 (时间文本, “,”, )<br /> .如果真 (取数组成员数 (文本数组) ＝ 3)<br />     返回ms ＝ 返回ms ＋ 到整数 (文本数组 [1]) × 60 × 60 × 1000  ' 1小时 = 60分钟<br />     返回ms ＝ 返回ms ＋ 到整数 (文本数组 [2]) × 60 × 1000  ' 1分钟 = 60秒<br />     返回ms ＝ 返回ms ＋ 到整数 (文本数组 [3]) × 1000  ' 1秒 = 1000ms<br /> .如果真结束<br /> .如果真 (取数组成员数 (文本数组) ＝ 2)<br />     .如果 (逻辑)  ' “分钟”<br />         返回ms ＝ 返回ms ＋ 到整数 (文本数组 [1]) × 60 × 1000  ' 1分钟 = 60秒<br />         返回ms ＝ 返回ms ＋ 到整数 (文本数组 [2]) × 1000  ' 1秒 = 1000ms<br />     .否则<br />         ' 小时<br />         返回ms ＝ 返回ms ＋ 到整数 (文本数组 [1]) × 60 × 60 × 1000  ' 1小时 = 60分钟<br />         返回ms ＝ 返回ms ＋ 到整数 (文本数组 [2]) × 1000  ' 1秒 = 1000ms<br />     .如果结束<br /> <br /> .如果真结束<br /> .如果真 (取数组成员数 (文本数组) ＜ 2)<br />     返回ms ＝ 返回ms ＋ 到整数 (文本数组 [1]) × 1000  ' 1秒 = 1000ms<br /> .如果真结束<br /> 返回 (返回ms)

用了精易模块

b0y

转秒就行了 你的时间文本参数也就精确到秒  需要毫秒用户自己*1000

还可以直接把 时间文本参数 到时间() 转为时间 这样取 时分秒方便些

kingchain

这个返回的都是1000吧 毫秒也有几毫秒 几十毫秒的

pipicool

学习一下

沐白

支持开源~！感谢分享

xmtian

感谢分享。

一指温柔

感谢分享源码

yamiedie

支持开源~！感谢分享

qqmqqg

66666666666666666666

豆豆灰常开心

感谢楼主分享！