'Get date types based on time string (20031110)
Function getDateTimeBydateString (byval datessring as string) AS Date
Return Cdate (Left (DateString, 4) & "-" & Right (LEFT (DateString, 6), 2) & "-" & Right (DateString, 2))
END FUNCTION
