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