>> TEXT To m.testclause NOSHOW TEXTMERGE PRETEXT 15 >> >><< m.dtest >> >> >>ENDTEXT >>>>
>******************************************************************** >* Description.......: DateToStr - creates a strict date string from date >* Calling Samples...: >* Parameter List....: tdDate >******************************************************************** >function DateToStr >lparameter tdDate >local lcReturn >if empty(m.tdDate) > lcReturn='{}' >else > lcReturn="{^" + (transform(dtos(m.tdDate), "@R 9999-99-99")) + "}" >endif >return m.lcReturn >>
> TEXT To m.testclause NOSHOW TEXTMERGE PRETEXT 15 > ><< DateToStr(m.dtest) >> > >ENDTEXT >
transf(dtos(m.d), '@R {^####/##/##') + '}'