>this.caption = LEFT(CDOW(Date1),3)+", "+LEFT(CMONTH(Date1),3)+" "+ALLTRIM(STR(DAY(Date1))) >>
#define DAYNAMES "Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday" #define MONTHNAMES "January,February,March,April,May,June,July,August,September,November,October,December" ? myDateFormat(DATE()) Function myDateFormat LPARAMETERS tdDate RETURN LEFT(GETWORDNUM(DAYNAMES,DOW(m.tdDate,2),','),3)+', '+; LEFT(GETWORDNUM(MONTHNAMES,month(m.tdDate),','),3)+' '+; PADL(DAY(m.tdDate),2,'0')Cetin