devxlogo

TimeToSeconds – Convert a time value into a number of seconds

TimeToSeconds – Convert a time value into a number of seconds

' Converts a time value to a numeric value in seconds' Example:'    MsgBox TimeToSeconds(TimeSerial(3, 5, 20)) --> 11120Function TimeToSeconds(ByVal newTime As Date) As Long    TimeToSeconds = Hour(newTime) * 3600 + Minute(newTime) * 60 + Second _        (newTime)    End Function

devx-admin

Share the Post: