FormatDT Method
Class: _LIST_PARSER
Description:
Expand/Collapse source code of procedure FormatDT Source Code
      LPARAMETERS INPREF lcDT
      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