FoxPro/Visual FoxPro - fecha del calendario

como hago para que al seleccionar una fecha del control calendar me lo inserte en cuadro de texto.
Tengo este código ( ThisForm.txtfecha.value = Thisform.calendario.object.value ) en un botón, y lo que hace es que me envía
al cuadro de texto la fecha pero también me envía una hora 12:00:00.
Lo que quiero es hacer lo mismo pero sin la hora.
Desde ya muchas gracias.

Amigo:

Prueba esto:
ThisForm.txtfecha.value=SUBSTR(DTOC(Thisform.calendario.object.value) ,1,11)

Una Abrazo desde Concepcion - CHILE

Hola Armando coloca un calendario en un form. Y en el evento DateClick del calendario coloca el siguiente evento. Acuerdate que este control no esta en el panel principal de controles. Tienes que agregarlo es un archivo ocx. Monthview

thisform.text1.value = this._value
Eso es todo
Que tengas suerte