Converting 04:30 into Seconds 2

[fabby1]

Hi

I have an input box that the users enters the number of minutes and seconds to include in a query.

I need to convert this date format 04:30c (4 minutes 30 seconds) into the seconds equivalent.

Is there a function that will do this ?

Thanks

Phil

 

[Ed2020]

Public Function CalcSecs(ByVal strMinsAndSecs As String) As Long

Dim intSeconds As Integer
Dim intMins As Integer

intSeconds = Right(strMinsAndSecs, InStr(1, strMinsAndSecs, ":") - 1)
intMins = Left(strMinsAndSecs, InStr(1, strMinsAndSecs, ":") - 1)

CalcSecs = (intMins * 60) + intSeconds

End Function

Please do not feed the trolls.....

 

[fabby1]

Ed

Brilliant, thanks for the help

 

[MichaelRed]

then, of course, you could get the conversion in a single step - IF (and ONLY if) the entry is forced to the h:m:s format.

? DateDiff("s", 0, CDate("0:4:30"))
 270

Which might be accomplished via a mask for the textbox.




MichaelRed