>DEFINE CLASS... > cMonths=",jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec," > > PROCEDURE FormatDT(INPREF lcDT) > *!* <pdm_sc_yes/> > *!* <pdm_dd_yes/> > LOCAL liMonth,lcRet > liMonth=ATC(","+LEFT(m.lcDT,3)+",",This.cMonths) > liMonth=OCCURS(",",LEFT(This.cMonths,m.liMonth)) > > IF AT(":",m.lcDT)>0 && Time > lcRet=EVALUATE("{^"+STR(YEAR(DATE()))+"-"+; > LTRIM(STR(m.liMonth,2))+; > "-"+LTRIM(SUBSTR(m.lcDT,5,2))+" "+SUBSTR(m.lcDT,8,5)+":00}") > ELSE > lcRet=EVALUATE("{^"+SUBSTR(m.lcDT,9,4)+"-"+; > LTRIM(STR(m.liMonth,2))+; > "-"+LTRIM(SUBSTR(m.lcDT,5,2))+" 00:00:00}") > ENDIF > RETURN m.lcRet > ENDPROC >ENDDEF > >Thanks Martina.... good suggestion and I will file this for future reference.