Class: | _LIST_PARSER |
LPARAMETERS INPREF lcDT LOCAL liMonth,lcRet liMonth=ATC(","+LEFT(lcDT,3)+",",This.cMonths) liMonth=OCCURS(",",LEFT(This.cMonths,liMonth)) IF AT(":",lcDT)>0 && Time lcRet=EVALUATE("{^"+STR(YEAR(DATE()))+"-"+; LTRIM(STR(liMonth,2))+; "-"+LTRIM(SUBSTR(lcDT,5,2))+" "+SUBSTR(lcDT,8,5)+":00}") ELSE lcRet=EVALUATE("{^"+SUBSTR(lcDT,9,4)+"-"+; LTRIM(STR(liMonth,2))+; "-"+LTRIM(SUBSTR(lcDT,5,2))+" 00:00:00}") ENDIF RETURN lcRet