******************************************************************** * Description.......: DateToStr - creates a date string from date * Calling Samples...: * Parameter List....: tdDate * Created by........: Nadya Nosonovsky 07/13/2001 02:52:32 PM * Modified by.......: ******************************************************************** FUNCTION DateToStr LPARAMETER tdDate LOCAL lcReturn IF EMPTY(m.tdDate) lcReturn='{}' ELSE lcReturn="{^" + (TRANSFORM(DTOS(m.tdDate), "@R 9999-99-99")) + "}" ENDIF RETURN m.lcReturnSo, your code would be