The TTOD() function should do it.

This.oleDate = TTOD(This.oleCalendar.Object.Value)

>Hi,
>I have a datepicker class which is a olecontrol which return me the date when double
>click the day on the calendar. It return me the date format is 19/04/2004 11:30 AM,
>I have the code in QueryUnload Event

>if ThisForm.lCanceled
>	This.oleDate = {}
>else
>	This.oleDate = This.oleCalendar.Object.Value
>endif

>But I want to the return date format is only 19/04/2004, how to do it to ignore the time.
>