请教高手,怎样把文本型"3分23秒"此类的转换成203秒!

Question

怎样把文本型"3分23秒"此类的转换成203秒
text1.text=3 分 text2.text=23  秒
 prviate sub command1 click
  text3.text=val(text1.text)*60+text2.text

Answer 1

Debug.Print DateDiff("s", "00:00:00", "00:3:23")

Answer 2

忘了说,此类数据很多并且长度都不同,例:
10分2秒
12分45秒
1分2秒
1分23秒
7秒   ---- 没有"分"
48秒    我的初步想法是:
 1.用len函数得到长度,大于4的是有"分"的
   用SEARCH("分",str,1) 判断"分"前的位数是1位还是2位,然后用mid()取出
 2.len小于4,字符串就没有"分",用search("秒",str,1)判断位数,然后用mid()取出
 复杂了点,不知道有没有好点的方法!

Answer 3

Debug.Print DateDiff("s", "00:00:00", "3分23秒")
返回203
Debug.Print DateDiff("s", "00:00:00", "8时15分49秒")
返回29749

Answer 4

Debug.Print DateDiff("s", "00:00:00", "7秒")
返回7

Answer 5

不过我是用在EXCEL中的,刚才我试了一下,不行啊,函数未定义!

Answer 6

TimeValue("8时15分49秒") * 86400