FoxPro/Visual FoxPro - Como crear un pequeño calendario???

Mi pregunta es: se puede crear un pequeño calendario para de ahí seleccionar la fecha y que se coloque en el campo donde deberíamos escribir la fecha??? Lo he visto en visual basic, como puedo lograr esto en VFP 6.0???

Hola.

Baje un ejemplo de la red que le hice algunos retoques y podria ser de utilidad.Escribeme y te lo envio.

Saludos

Aquí está un ejemplo:
http://foros.solocodigo.com/index.php?act=ST&f=43&t=15217

Puedes usar el mismo calendario que usan en VB, pues no es nativo de este lenguaje. Puede ser Microsoft Calendar o DatetimePicker Control.
Para incluirlos ve a la opcion Herramientas (tools), Opciones (Options), Controles y ahi agregas esos activexs a tu barra.

Tambien puedes ver un calendario hecho en VFP totalmente gratis.Busca "calendar Control" en la siguiente pagina
http://www.kirtlandsys.com/Tools%20Page.htm

Ya está, pero como almaceno en mi tabla la fecha seleccionada??

No sé cual control decidiste poner, pues podrían tener diferencias. Pero, si no tiene propiedad "Value", puedes tener una caja de texto con visible=.f., y que tenga como ControlSource el nombre de tu campo. Entonces, programas en el clic del control para que envíe el dato al Text. Supongamos que tienes un Text1, para tu campo, entonces podrías esto en el clic del control:
mi_dia=right('0'+allt(str(this.day)),2)
mi_mes=right('0'+allt(str(this.month)),2)
mi_año=allt(str(this.year))
mi_fecha_char=mi_dia+'/'+mi_mes+'/'+mi_año
mi_fecha_date=ctod(mi_fecha_char)
thisform.text1.value=mi_fecha_date

RE:Ya funciona pero no me pone las fechas proximas, es decir, hoy es 18 de mayo, si le pongo 13 de mayo si funciona, si le pongo 20 de mayo me pone la caja de texto en blanco.
Estoy usando Microsoft Date and Time Picker Control 6.0

¿Ya probaste estos?
http://foros.solocodigo.com/index.php?act=ST&f=43&t=15217

Yo tenia el mismo problema, corregi borrando la siguiente linea

mi_fecha_date=ctod(mi_fecha_char)

el nuevo problema es que el dato pasaba como si fuera texto, por lo que en el boton de ejecución agregaba la siguiente linea

replace fecha WITH CTOD(thisform.text2.value)

de esta forma se almacena como date y no como caracter