Clipper/FiveWin - xHarbour y calendario

xHarbour,FiveWin , xedit y PELLES C para los recursos y es ahí donde encontré un hermoso calendario ….¿Cómo puedo traer la fecha del calendario a un GET .
Agradezco sus ayudas

Si tu version de FiveWin soporta los controles DatePicker no tienes que hacer nada en especial, el control esta incluido:

REDEFINE DTPICKER [ <oDTPicker> VAR ] <uVar> ;
[ ID <nId> ] ;
[ <dlg: OF, WINDOW, DIALOG> <oDlg> ] ;
[ <help:HELPID, HELP ID> <nHelpId> ] ;
[ <color: COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
[ FONT <oFont> ] ;
[ CURSOR <oCursor> ] ;
[ MESSAGE <cMsg> ] ;
[ <update: UPDATE> ] ;
[ WHEN <uWhen> ] ;
[ VALID <uValid> ] ;
[ ON CHANGE <uChange> ] ;

Y listo aparecerá un control para capturar fechas que automaticamente pondra el calendario que haz visto en el Pelles C

Gracias ,Gracias,Gracias,Gracias,Gracias,Gracias
Gracias Gabriel , hice la prueba y funcionó perfecto
así serían mas o menos las lineas
....
.....
...
vFecIni:=Date()
Define ..etc…
REDEFINE DTPicker o821 VAR vFecIni ID 821 UPDATE OF oDlg ; // Calendario
VALID Empty(vFecIni) .OR. Eval ( { ||;
IF (! Valtype(vFecIni)='D' , ;
(Stop (OemToAnsi("Fecha no Ingresada ")), .F.) ,;
(vFecha := vFecIni,;
o822:Refresh() , .T. ) ) })
REDEFINE SAY o822 prompt vFecIni ID 822 UPDATE OF oFld:aDialogs[2] Picture "D" //Recepción de la fecha
Activate etc..


Nolo