... function MsgDate( dDate, cPrompt, oGet ) local oDlg, oFont, oCursor, dSelect, dWork local nRow, nCol, nMonth, nYear local aMonths := {'Enero ',; 'Febrero ',; 'Marzo ',; 'Abril ',; 'Mayo ',; 'Junio ',; 'Julio ',; 'Agosto ',; 'Septiembre',; 'Octubre ',; 'Noviembre ',; 'Diciembre '} local aDays := ...