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

zwbstar · 发表于 2020-1-3 18:00:01

如题,诸如此类

张家太太 · 发表于 2020-1-3 22:12:02

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

深渊的尽头 · 发表于 2020-1-4 00:15:01

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

wenbinjiao · 发表于 2020-1-4 01:18:01

TimeSerial函数

zwbstar · 发表于 2020-1-4 06:03:01

忘了说,此类数据很多并且长度都不同,例:
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()取出
复杂了点,不知道有没有好点的方法!

rockyoung · 发表于 2020-1-4 06:39:01

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

rockyoung · 发表于 2020-1-4 06:45:01

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

rockyoung · 发表于 2020-1-4 07:21:01

//我的初步想法是:
虽然你的想法也可以实现,不过太繁琐,
还是用现成的函数来的方便

zwbstar · 发表于 2020-1-4 08:51:01

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

zwbstar · 发表于 2020-1-4 09:18:01

现在解决了,谢谢!~
还是用现成的函数方便啊!

		自动登录	找回密码
密码			立即注册