Ask the master how to convert text-type "3 minutes 23 seconds" into 203 seconds!

zwbstar

Title, etc.

张家太太

How to convert text type "3 minutes 23 seconds" into 203 seconds
text1.text = 3 minutes text2.text = 23 seconds
 prviate sub command1 click
  text3.text = val (text1.text) * 60 + text2.text

深渊的尽头

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

wenbinjiao

TimeSerial function

zwbstar

Forgot to say that this kind of data is many and different in length, for example:
10 minutes and 2 seconds
12 minutes 45 seconds
1 minute and 2 seconds
1 minute 23 seconds
7 seconds ---- no "minutes"
48 seconds

  My initial thoughts were:
 1. Use the len function to obtain the length.
   Use SEARCH ("minute", str, 1) to determine whether the number of digits before "minute" is 1 or 2 digits, and then use mid () to take out
 2.len is less than 4, the string has no "minute", use search ("second", str, 1) to determine the number of digits, and then use mid () to take out
 It's complicated, I don't know if there is a better way!

rockyoung

Debug.Print DateDiff ("s", "00:00:00", "3 minutes 23 seconds")
Returns 203
Debug.Print DateDiff ("s", "00:00:00", "8:15:49")
Returns 29749

rockyoung

Debug.Print DateDiff ("s", "00:00:00", "7 seconds")
Returns 7

rockyoung

// My initial thoughts are:
Although your idea can be realized, it is too tedious.
It is convenient to use ready-made functions

zwbstar

But I use it in EXCEL, I tried it just now, no, the function is undefined!

zwbstar

Solved now, thanks! ~
It is convenient to use ready-made functions!