>******************************************************************** >* 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