******************************************************************** * Description.......: TimeToStr - creates a date string from date * Calling Samples...: * Parameter List....: ttTime * Created by........: Nadya Nosonovsky 07/13/2001 02:52:32 PM * Modified by.......: ******************************************************************** function TimeToStr lparameter ttTime local lcReturn if empty(m.ttTime) lcReturn='{}' else lcReturn="{^" + (transform(ttoc(m.ttTime,1), "@R 9999/99/99 99:99:99")) + "}" endif return m.lcReturn