'Get a string of time, for example: 20031110
Function getDateStringBydatetime (byval datetime as date) AS String
Return DateTime.Year & Format (DateTime.mont, "00") & format (datetime.day, "00")
END FUNCTION
