The TimeValue function converts an argument into the variant of
subtype Date.
The String argument must be a string in valid date format or
you will get an error message.
<% mystring = "2:23:17 PM" %>
<% =TimeValue(mystring) %>
2:23:17 PM
<% =TimeValue("14:23") %>
2:23:00 PM